它聽起來像你想要做以下事情。隨着具有這種格式的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)
問題是如果你把同一個圖放在一起,那麼像0.0084和6這樣的不同尺度的數字就不能從零中辨別出第一個數字......例如試試這個:barplot(t(as.matrix(yourDataFrame)),旁邊= TRUE)#用您的數據名稱替換yourDataFrame。框架 – digEmAll 2014-08-30 14:40:46