点的颜色和线的类型设置

1.点元素的设置参数:点的样式pch,颜色col、大小cex

在画布上画出pch从0到25的样式,要求随着pch数字的增大,图像呈现由上到下,从左到右进行排列。

plot(1,1,col="white",xlim=c(1,7),ylim=c(1,7))
   for(i in c(0:25)){
     x<-i%/%5+1
     y<-6-i%%5
     if(i>=21 & i<=25){
       points(x,y,pch=i,bg="red",cex=2)
     }else{
       points(x,y,pch=i,cex=2)
     }
     text(x+0.1,y+0.3,labels=paste("pch=",i))
   }
## 增加text 才会有每个点的描述。


利用for循环和if ,为pch从21到25的符号添加背景色。if判断语句也可以这样写:

 for(i in c(0:25)){
     x<-i%/%5+1
     y<-6-i%%5
     if(length(which(c(21:25)==i)>=1)){
       points(x,y,pch=i,bg="red",cex=2)
     }else{
       points(x,y,pch=i,cex=2)
     }
     text(x+0.1,y+0.3,labels=paste("pch=",i))
   }
2.线条类型的设置

data<-matrix(rep(rep(1:7),10),ncol=10,nrow=7)
plot(data[1,],type="l",lty=0,ylim=c(1,8),xlim=c(-1,10),axes=F,xlab=NA,ylab=NA)
text(0,1,labels="lty=0")
for(i in c(2:7)){
  lines(data[i,],lty=i-1)
  text(0,i,labels=paste("lty=",i-1))
}
控制线的宽度用lwd.



  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值