每个频率值都带有条形图的直方图

Question

我有两个骰子100卷的数据，可以取11个值 - ＆gt; {2,3,4,5,6,7,8,9,10,11,12}

如何在R中创建一个直方图，显示所有11个直方图，每个直方图都是自己的条形图，每个条形图都有一个标签。

hist(data$X1,breaks=c(1,2,3,4,5,6,7,8,9,10,11,12,13),col = "lightblue",xlab="Sum of a roll") 

只提供10个酒吧。

编辑：

我做了近似的移动休息0.5这样的事情：

breaks=c(1.5,2.5,3.5,4.5,5.5,6.5,7.5,8.5,9.5,10.5,11.5,12.5,13.5)

Answer 1

你可以只做一个频率表的条形图：

num.dices <- 2L
num.rolls <- 100000L
outcomes <- matrix(sample(1:6, num.dices * num.rolls, replace = TRUE),
                   nrow = num.rolls, ncol = num.dices)
sums <- rowSums(outcomes)
barplot(table(sums))

Answer 2

直方图也可以用ggplot绘制。使用@ flodel的数据：

 dd = data.frame(table(sums))
 ggplot(dd)+geom_bar(aes(x=sums, y=Freq), stat='identity')