在益辉的提示下，我拼凑了一把（并参考Statistics with R一书）。[s:11]
另外，这种条文的线的粗细可以调吗？
<br />
VADeaths.12 <- VADeaths;VADeaths.12[,3:4] <- 0<br />
barplot(VADeaths.12, density = c(10, NA, 20, NA, NA), <br />
angle = c(45, NA, 135, NA, NA), col = 1:5,ylim=c(0,300),legend=T) <br />
VADeaths.34 <- VADeaths;VADeaths.34[,1:2] <- 0<br />
barplot(VADeaths.34,density = c(10, NA, 20, NA, NA), legend=T,<br />
angle = c(135, NA, 45, NA, NA), col = 1:5,add=TRUE,ylim=c(0,300)) <br />
legend("topleft",angle = c(NA,NA,135,45,NA,45,135),<br />
legend=c("a","b","c1","c2","d","e1","e2"),<br />
density= c(NA,NA,20,20,NA,10,10),<br />
fill=c(5,4,3,3,2,1,1),ncol=4)<br />
savePlot(file="barplot.png",type="png")<br />
结果如下图：
[attachment=61]
