将数据读到一个数据框,比如dd,然后如下操作:
dd<-dd[order(dd$Math,decreasing=TRUE),]#对数学排序
dd[dd$Sex=="F","col"]<-"red"#给性别为女的红色
dd[dd$Sex=="M","col"]<-"blue"#给性别为男的蓝色
dd[dd$Sex=="F","pch"]<-17
dd[dd$Sex=="M","pch"]<-19
dotchart(dd$Math,labels=dd$ID,groups=dd$Sex,pch=dd$pch,col=dd$col)
结果为克利夫兰点图 |