堆积的高度相同的条形图

Question

我有一组看起来像这样的数据：

col1  col2   col3   col4     cr
84  88.242  9.833   4.194     A
94  107.571 10.917  3.708     B
188 240.288 16.917  6.333     A
245 371.005 22.333  10.389    A
114 131.599 9.167   4.25      A
71  100.751 8.167   3         B
118 138.543 11.167  4.278     A
162 203.435 14.667  6.444     B
123 152.032 12.167  4.639     B
115 126.945 11.667  5.056     A
125 134.178 10      4.639     B
119 138.926 9.5     4.222     A
106 129.19  9.833   3.833     A
146 162.319 9.833   4.118     A

我尝试使用简单的barplot命令绘制数据，但它没有给出我真正想要的图形。我希望为每列生成一个10个条形图（每个条形代表一个范围，例如0-20,20-40等），X轴为{{1 } column values轴为Y（% frequency和A）。不同颜色的B（请注意，条形的高度必须相同，因为Y轴是％频率）。

这就是我要生成的内容

每列1 bar ...知道我应该使用什么命令。

（请忽略照片中的轴名称，这只是我在谷歌上找到的照片，代表我需要的照片）

谢谢，

Answer 1

请尝试以易于复制和粘贴的格式发布您的数据，就像我在下面所做的那样：

mydata <- structure(list(col1 = c(84L, 94L, 188L, 245L, 114L, 71L, 118L, 
162L, 123L, 115L, 125L, 119L, 106L, 146L), col2 = c(88.242, 107.571, 
240.288, 371.005, 131.599, 100.751, 138.543, 203.435, 152.032, 
126.945, 134.178, 138.926, 129.19, 162.319), col3 = c(9.833, 
10.917, 16.917, 22.333, 9.167, 8.167, 11.167, 14.667, 12.167, 
11.667, 10, 9.5, 9.833, 9.833), col4 = c(4.194, 3.708, 6.333, 
10.389, 4.25, 3, 4.278, 6.444, 4.639, 5.056, 4.639, 4.222, 3.833, 
4.118), cr = structure(c(1L, 2L, 1L, 1L, 1L, 2L, 1L, 2L, 2L, 
1L, 2L, 1L, 1L, 1L), .Label = c("A", "B"), class = "factor")), .Names = c("col1", 
"col2", "col3", "col4", "cr"), class = "data.frame", row.names = c(NA, 
-14L))

现在。解决你的问题。您需要先aggregate数据，然后将其转换为matrix，然后计算矩阵中的每个值与该列中总数的比例（使用prop.table）：

mydataAgg <- aggregate(cbind(col1, col2, col3, col4) ~ cr, mydata, sum)
mydata2 <- as.matrix(mydata1[-1])
rownames(mydata2) <- mydataAgg[[1]]
mydata2
#   col1     col2    col3   col4
# A 1235 1527.057 110.250 46.673
# B  575  697.967  55.918 22.430
prop.table(mydata2, 2)
#        col1      col2      col3      col4
# A 0.6823204 0.6863103 0.6634851 0.6754121
# B 0.3176796 0.3136897 0.3365149 0.3245879

绘图很简单：

barplot(prop.table(mydata2, 2))

或者，用颜色：

barplot(prop.table(mydata2, 2), col = c("slateblue", "palevioletred"))

嗯。不是最有趣的情节，但我想绝对是一个明显的比例模式......

---

lattice

@Arun以完整性的名义显示ggplot2解决方案，但如果是这种情况，那么我们至少应该从“lattice”添加barchart。 ;）

为此，我们需要转置我们之前计算的prop.table(mydata2, 2)的输出：

barchart(t(prop.table(mydata2, 2)), stack = TRUE, horizontal = FALSE)

结果如下：

Answer 2

为了完整起见，这里是ggplot2解决方案（使用@ AnandaMahto的数据，感谢dput输出）。我首先使用melt，然后使用data.table来计算和获取比例（基本上所有内部计算）：

require(ggplot2)
require(reshape2)
require(data.table)

df.m <- melt(df, names(df)[5], names(df)[1:4])
dt <- data.table(df.m)
setkey(dt, "cr", "variable")
dt.m <- dt[, list(count = sum(value)), by=list(cr,variable)]
dt.m <- dt.m[, list(cr=cr, prop = count/sum(count)), by=variable]
p <- ggplot(data = dt.m, aes(factor(variable))) + 
         geom_bar(aes(group = cr, weights=prop, fill=cr))
p <- p + scale_fill_brewer(palette = "Set1")
p