用ggplot2在R中绘制卡方分布

Question

我想用R随机构造自由度为5的卡方分布，有100个观测量。这样做之后，我想计算这些观测的平均值，并使用ggplot2用条形图绘制卡方分布。以下是我的代码：

rm(list = ls())
library(ggplot2)
set.seed(9487)

###Step_1###
x_100 <-data.frame(rchisq(100, 5, ncp = FALSE))

###Step_2###
mean_x <- mean(x_100[,1])
class(x_100)

###Step_3###
plot_x_100 <- ggplot(data = x_100, aes(x = x_100)) +
  geom_bar()
plot_x_100

首先，构造一个df=5,obs=100的随机卡方分布的数据帧。

但是，我得到的结果如下：

Don't know how to automatically pick scale for object of type data.frame. Defaulting to continuous.
Error in is.finite(x) : default method not implemented for type 'list'

我被这个问题困了几个小时，在我的全局环境中找不到任何列表。如果有人能帮助我，给我一些建议，将不胜感激。

Answer 1

问题是，在ggplot函数中，调用的是与aes中的数据和x变量相同的dataframe(x_100)。请记住，在ggplot中，在aes中，您应该指出要映射的列的名称。此外，如果您想绘制卡方分布，我认为使用Geom_histogram而不是Geom_bar可能是更好的主意，因为第一个方法将观察数据分组到垃圾箱中。

library(ggplot2)
# Rename the only column of your data frame as "value"
colnames(x_100) <- "value"
plot_x_100 <- ggplot(data = x_100, aes(x = value)) +
  geom_histogram(bins = 20)