r - R中合并数据帧的直方图

Question

来自 python 代码的我的(巨大的)数据框由每个样本的不同大小类别的计数组成，如:

dummy <- as.data.frame(matrix(nrow = 10, ncol = 12))
colnames(dummy) <- c("ID", paste("cl", c(1:11), sep = "."))
dummy$ID <- c(letters[1:10])
dummy[, -1] <- rep(round(abs(rnorm(11))*1000,0), 10)

我尝试为每个样本 (ID) 创建计数直方图，在 X 轴上具有大小类别，在 Y 轴上具有计数(频率)。 hist() 没有成功，结合了 as.numeric() 和 t() 和 as.table() ...

我没有成功地告诉 R 这个数据框是(至少部分)一个表，其中计数已经分布在 colnames 的容器中。我确定我不是第一个寻找答案的人，但两天后找不到答案，可能是因为我没有找到正确的关键字 (?)。

有人可以帮忙吗？

Answer 1

直方图基本上是一种特殊的条形图。所以你可以只使用函数 barplot。

我更喜欢 ggplot2 包:

#reshape to long format
library(reshape2)    
dummy <- melt(dummy, id.var="ID")

library(ggplot2)    
p <- ggplot(dummy, aes(x=variable, y=value)) + 
  geom_histogram(stat="identity") + 
   #specifying stat_identity tells ggplot2 that the data is already binned
  facet_wrap(~ID, ncol=2)

print(p)