R 3.1.1中的barplot

debugcn 发表于 Dev

脆弱的

即使我对RI还是很陌生，但我希望有人可以帮助我完成这项任务...我试图寻找一些以前的主题，但是找不到我想要的东西，所以在这里，我希望有所帮助。

我正在尝试绘制条形图，但在某些设置上运气不佳，因此我希望有人可以提供帮助。我在Mac OS 10.9.4上使用R 3.1.1。

我的桌子看起来像这样：

family      area1 area2 area3 area4 area5 area6 

   A        15    20    500  200   17    26 

   B        170   520    26   13   100    70 

   C        35    250    358   128   88    26

   D        95    375    289   156  169    356

   E        425   177    136   144   285    70

由于我将文件另存为csv，因此我正在执行以下步骤：

fam <- read.csv ("family_per_area_count.csv", sep =";", header = T)

我正在将文件转换为矩阵

fam.mat <- as.matrix(fam_1, ncol = 6, byrow = T)

然后我指定行名和列名

rownames(fam.mat) <- c("A", "B", "C", "D", "E") 
colnames(fam.mat) <- c("area1", "area2", "area3", "area4", "area5", "area6")

然后我只是在运行bar plot命令

barplot(fam.mat, beside = T, col = rainbow(ncol(fam.mat)))

但我错过了x轴的大多数标签，该图似乎被压在一起了。

我也尝试使用此命令运行累积条形图

par(mar = c(5.1, 4.1, 4.1, 7.1), xpd = TRUE)

prop <- prop.table(data_mat, margin = 2)

barplot(data_mat, col = rainbow(length(rownames(data_mat))), width = 3)

legend("topright", inset = c(-0.25, 0), fill = rainbow(length(rownames(data_mat))), 
       legend = rownames(data_mat))

但是图例颜色与数据不匹配，并且我的x轴再次偏心。我已经尝试过转置矩阵，但是仍然没有运气。

有人可以提出任何建议吗？

提前谢谢你

F。

罗兰

这是一个开始：

DF <- read.table(text="family      area1 area2 area3 area4 area5 area6 

   A        15    20    500  200   17    26 

                 B        170   520    26   13   100    70 

                 C        35    250    358   128   88    26

                 D        95    375    289   156  169    356

                 E        425   177    136   144   285    70", header=TRUE)

library(reshape2)
DF <- melt(DF, id.var="family")

library(ggplot2)
ggplot(DF, aes(x=family, y=value, fill=variable)) +
  geom_bar(stat="identity", position="dodge")