一个非常简单的直方图 R？

Question

我刚开始使用 R 编程。我正在使用 RStudio 进行考试，我必须以图形方式表示数据集上某些计算的结果。 我有这样的结构：

我想做的是用每行的 3 个平均值制作一些直方图，中位数和修剪后的平均值也是如此。

第一个问题：这是用图形表示这类数据的正确方法吗？或者有更好的情节。

第二个问题： 谁能给我代码，让我在 x 和 3 个字符串（“Lobby”、“R & D”、“ROE”）和 y 上绘制图表轴是一个包含结果的值的尺度，以便得到表示在 lobbing、r & d 和获得的 roe 方面的投资差异的直方图。

希望我已经足够清楚了，如果我没有指定相关的内容，请询问我。

Answer 1

听起来您想要执行以下操作。使用 csv 调用中的数据 bar.csv 具有以下格式：

Dept    Mean    Median  Trimmed_Mean
Lobby   0.008   0.0018  0.0058
R & D   6.25    3.2     4.78
ROE     19.08   16.66   16.276

您可以使用library(ggplot2) 和library(reshape) 以及此处列出的命令

dat.m<-read.csv("bar.csv")
dat.m<-melt(dat.m,id.vars="Dept")

ggplot(dat.m, aes(x = Dept, y = value,fill=variable)) + geom_bar(stat='identity')+
facet_wrap(~ Dept, ncol = 3,scales="free_y") #facet wrapped

ggplot(dat.m, aes(x = Dept, y = value,fill=variable)) + geom_bar(stat='identity') 
#stacked bar

显示下面的图表：

正如 zhaoy 所说，直方图（通常）使用原始数据 - 而您拥有的是汇总数据。此外，您可以使用library(ggplot2) 生成这样的箱线图摘要图（使用 ggplot2 库中的spray 数据）：

library(ggplot2)
p<-qplot(spray,count,data=InsectSprays,geom='boxplot')
p<-p+stat_summary(fun.y=mean,shape=1,col='red',geom='point')
print(p)

或者简单地使用标准的boxplot 命令，使用相同的数据，添加显示手段的功能：

boxplot(count ~ spray, data = InsectSprays, col = "lightgray")
means <- tapply(InsectSprays$count,InsectSprays$spray,mean)
points(means,col="red",pch=18)

Answer 2

回答问题1：直方图的目的是显示连续数据的密度或频率。如果您想比较 row.name 列中 3 个类别的平均值/中值/修剪平均值，我建议使用条形图。我不确定比较单个图表中的平均值/中值/修剪平均值是否与查看者一致，因此生成 3 个条形图可能是理想的。

回答问题 2：如果您打算使用多列数据比较 row.name 列中的 3 个类别，我建议使用箱线图。我意识到箱线图传统上不包括均值，但它是比较跨类别数据的最佳可视化之一。示例请参见r-bloggers.com/box-plot-with-r-tutorial。