上一个全注释的例子，要什么有什么的——
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),
)
扫码加好友，拉您进群
全部版块
我的主页
收藏
