[英]Grouped bar chart with ggplot2 and already tabulated data
I fit a count model to a vector of actual data and would now like to plot the actual and the predicted as a grouped (dodged) bar chart. 我将计数模型拟合到实际数据的矢量,现在想要将实际和预测绘制为分组(躲闪)条形图。 Since this is a count model, the data are discrete (X=x from 0 to 317).
由于这是计数模型,因此数据是离散的(X = x从0到317)。 Since I am fitting a model, I only have already-tabulated data for the predicted values.
由于我正在拟合模型,因此我只有已经列出的预测值数据。
Here is how my original data frame looks: 以下是我原始数据框的外观:
actual predicted
1 3236 3570.4995
2 1968 1137.1202
3 707 641.8186
4 302 414.8763
5 185 285.1854
6 104 203.0502
I transformed the data to be plotted with ggplot2: 我用ggplot2转换了要绘制的数据:
melted.data <- melt(plot.data)
melted.data$realization <- c(rep(0:317, times=2))
colnames(melted.data)=c('origin','count','realization')
So that my data frame now looks like this: 所以我的数据框现在看起来像这样:
head(melted.data)
origin count realization
1 actual 3236 0
2 actual 1968 1
3 actual 707 2
4 actual 302 3
5 actual 185 4
6 actual 104 5
> tail(melted.data)
origin count realization
631 predicted 1.564673e-27 312
632 predicted 1.265509e-27 313
633 predicted 1.023552e-27 314
634 predicted 8.278601e-28 315
635 predicted 6.695866e-28 316
636 predicted 5.415757e-28 317
When I try to graph it (again, I'd like to have the actual and predicted count --which is already tabulated in the data-- by discrete realization), I give this command: 当我试图绘制它时(再次,我想要实际和预测的数量 - 已经在数据中列表 - 通过离散实现),我给出了这个命令:
ggplot(melted.data, stat="identity", aes(x=realization, fill=origin)) + geom_bar(position="dodge")
Yet it seems like the stat parameter is not liked by ggplot2, as I don't get the correct bar height (which would be those of the variable "count"). 然而,似乎ggplot2不喜欢stat参数,因为我没有得到正确的条形高度(这将是变量“count”的条形高度)。
Any ideas? 有任何想法吗?
Thanks, 谢谢,
Roberto. 罗伯托。
You need y-values in the aes
mapping if you use stat_identity
(column count
). 如果使用
stat_identity
(列count
),则需要在aes
映射中使用y值。 Try the following: 请尝试以下方法:
ggplot(melted.data, aes(x=realization, y=count, fill=origin)) +
stat_identity(position="dodge", geom="bar")
or 要么
ggplot(melted.data, aes(x=realization, y=count, fill=origin)) +
geom_bar(position="dodge", stat="identity")
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.