1页上的多个直方图(不生成长数据)

Question

我想为每一列做一个直方图。每一列都有三个值(Phase_1_Mean、Phase_2_Mean和Phase_3_Mean)

输出应该是:12个直方图(因为我们有12行)，每个直方图显示在一个条形图中的3个值(Y轴=值，X轴= Phase_1_Mean，Phase_2_Mean和Phase_3_Mean)。

粘住了：当我搜索互联网时，几乎每个人都在制作一个“长”数据框架。这对这个示例没有帮助(因为我们将生成一个值" value“。但我想把这三行分开。

在底部你可以找到我的数据。感谢你！

我尝试了这个(How do I generate a histogram for each column of my table?)，但是这里有一个“长表”问题，然后我尝试了Multiple Plots on 1 page in R，它解决了如何在1页上绘制多个图。

dput(Plots1)
structure(list(`0-0.5` = c(26.952381, 5.455598, 28.32947), `0.5-1` = 
c(29.798635, 
25.972696, 32.87372), `1-1.5` = c(32.922764, 41.95935, 41.73577
), `1.5-2` = c(31.844156, 69.883117, 52.25974), `2-2.5` = c(52.931034, 
128.672414, 55.65517), `2.5-3` = c(40.7, 110.1, 63.1), `3-3.5` =         
c(73.466667, 
199.533333, 70.93333), `3.5-4` = c(38.428571, 258.571429, 95), 
`4-4.5` = c(47.6, 166.5, 233.4), `4.5- 5` = c(60.846154, 
371.730769, 74.61538), `5-5.5` = c(7.333333, 499.833333, 
51), `5.5-6` = c(51.6, 325.4, 82.4), `6-6.5` = c(69, 411.5, 
134)), class = "data.frame", .Names = c("0-0.5", "0.5-1", 
"1-1.5", "1.5-2", "2-2.5", "2.5-3", "3-3.5", "3.5-4", "4-4.5", 
"4.5- 5", "5-5.5", "5.5-6", "6-6.5"), row.names = c("Phase_1_Mean", 
"Phase_2_Mean", "Phase_3_Mean"))

在这个例子中显示的一些东西(因为它是Python，所以对我无效) l=img.3..0i19.4028.7585..7742...1.0..1.412.3355.0j19j1j0j1......0....1..gws-wiz-img.......0j0i67j0i30j0i5i30i19j0i8i30i19j0i5i30j0i8i30j0i30i19.j-1kDXNKZhI#imgrc=L0Lvbn1rplYaEM

Answer 1

我认为你必须重新塑造来让这件事成功，但我不明白为什么这是个问题。我想这段代码能实现你想要的。请注意，这里有13个地块，因为您在发布的dataframe中有13 (而不是12)列。

# Load libraries
library(reshape2)
library(ggplot2)

Plots1$ID <- rownames(Plots1) # Add an ID variable
Plots2 <- melt(Plots1) # melt to long format
ggplot(Plots2, aes(y = value, x = ID)) + geom_bar(stat = "identity") + facet_wrap(~variable)

下面是最终的情节。我保持了它的基本，但你当然可以通过添加更多的层来使它变得漂亮。

​

​