【3.1】文本的添加--text()

text1<-read.delim("fun.txt",header=FALSE)

len<-nrow(text1);
b<-20;	 

#tiff(filename="haha.tif",width=25,height=12,units="cm",compression="lzw",bg="white")

png(file="aaaa.png",width=800,height=600);

par(fig=c(0.55,1,0,1),bty="n");

plot(1:b,1:b,type="n",xaxt="n",yaxt="n",xlab="",ylab="");#type="n"不生成任何点和#线,为后面#的命令创建坐标轴

sum=b+b/(2*len);

for(i in 1:(len)){
 if (i %in% c(1,7,18,27) ){
text(1,sum,text1[i,],adj=0,cex=0.8,font=2);
 sum=sum-b/(len);
}else{
text(1,sum,text1[i,],adj=0,cex=0.8)
sum=sum-b/(len);}
}

dev.off()

text用法

text(x, y = NULL, labels = seq_along(x), adj = NULL,

 pos = NULL, offset = 0.5, vfont = NULL,

 cex = 1, col = NULL, font = NULL, ...)

x,y分别对应是图形的的横纵坐标的位置

fun.txt下载地址:http://pan.baidu.com/s/1k0cPK

药企,独角兽,苏州。团队长期招人,感兴趣的都可以发邮件聊聊:tiehan@sina.cn
个人公众号,比较懒,很少更新,可以在上面提问题,如果回复不及时,可发邮件给我: tiehan@sina.cn