2009年4月12日星期日

用R语言画柱状图 (bar)

vim高亮的插件:R.vim : Send R code from a VIM buffer to R
参考:
利用統計軟體R
Producing Simple Graphs with R
Quick-R
R Graph Gallery
在上面的网站逛两圈,就可以照猫画虎了。。。
柱状图:

源码:
slices <- c(3,1,4,2) 
names <- c( "甲", "乙", "丙", "丁") 

png("r-graph-sample.png") 

barplot(beside=TRUE, 
        slices, #纵轴取值 
        names.arg=names, #边框名字 
        border="black",  #边框颜色 
        col=c("purple","green3","blue","red"), #框内线条颜色
        density =   c(7.5,12.5,17.5,22.5), #框内线条密度
        angle =  c(45,60,120,135),  #框内线条倾斜角度
        width = c(4,2.2,2.2,3),  #边框宽度 
        space = c(1.5,0.5,0.5,1), #边框间距 
        ylim=c(0,5),  #纵轴取值范围 
        )  

title(xlab="横") #横轴名字 
title(ylab="竖") #纵轴名字 

lbls <- round(slices/sum(slices)*100) 
lbls <- paste(lbls,"%",sep="") # ad % to labels 
lbls <- paste(names, lbls) # add percents to labels 

#图例 
legend("topright",lbls, 
        fill=c("purple","green3","blue","red"), 
        density =   c(7.5,12.5,17.5,22.5), 
        angle =  c(45,60,120,135),   
        )