R语言画图 1999-2008中国高考状元性别比例变化趋势图

biostatistic

> data
     年 男性比例 女性比列
1  1999    65.22    34.78
2  2000    56.76    43.24
3  2001    54.05    45.95
4  2002    35.38    64.62
5  2003    54.41    45.59
6  2004    51.43    48.57
7  2005    43.24    56.76
8  2006    40.00    60.00
9  2007    37.21    62.79
10 2008    40.00    60.00




plot(data[1:2],xlim=c(1998,2010),axes=T,cex=0.5,pch=0.5,las=1,col="red",type="p",xaxt="n",ylab="")

lines(lowess(data[1:2]),col="red")

points(data[c(1,3)],col="blue")
lines(lowess(data[c(1,3)]),col="blue")

axis(1,at=seq(1999,2009,1))

legend(2010,55, legend=names(data)[2:3],angle=45,fill=c("red","blue"),xjust=1,yjust=1)

title("1999-2008中国高考状元性别比例变化趋势",
  cex.main = 2,   font.main= 1, col.main= "blue",ylab ="百分比%")



数据来源
http://wap.sciencenet.cn/blog.as ... =blog&id=553187

genechip

data<-cbind(1999:2008,sample(37:65,10),sample(34:64,10))
data<-as.data.frame(data)
colnames(data)=c("年","男性比例","女性比例")

plot(data[1:2],xlim=c(1998,2010),axes=T,cex=0.5,pch=0.5,las=1,col="red",type="p",xaxt="n",ylab="")

lines(lowess(data[1:2]),col="red")

points(data[c(1,3)],col="blue")
lines(lowess(data[c(1,3)]),col="blue")

axis(1,at=seq(1999,2009,1))

legend(2010,55, legend=names(data)[2:3],angle=45,fill=c("red","blue"),xjust=1,yjust=1)

title("1999-2008中国高考状元性别比例变化趋势",
  cex.main = 2,   font.main= 1, col.main= "blue",ylab ="百分比%")

###对女性所在坐标位置旁边加上姓名
text(data[c(1,3)],labels=1:10)
##或者对对2004年女性比例坐标位置加上姓名,并把字体变大一些,再改一下颜色。
text(data[6,c(1,3)],labels="张",cex=3,col="pink")

genechip

对于图中legend的设置，可以参考http://www.biostatistic.net/foru ... 6orderby%3Ddateline

zxcv_bnm

逐渐趋同？