关注微信公众号“R医学”，免费获取更多画图代码和技巧

# 初始化

par(mar=c(3,3,3,3))

num <- 0

num1 <- 0

plot(0,0 , xlim=c(0,21) , ylim=c(0.5,6.5), col="white" , yaxt="n" , ylab="" , xlab="")

# 0,0：表示绘图区域的左下角坐标为(0,0)

# xlim=c(0,21)：表示x轴的取值范围在0到21之间

# ylim=c(0.5,6.5)：表示y轴的取值范围在0.5到6.5之间

# col=“white”：表示绘图区域的背景颜色为白色

# yaxt=“n”：表示不显示y轴刻度

# ylab=“”：表示y轴的标签为空

# xlab=“”：表示x轴的标签为空

# 填充图形

for (i in seq(1,20)){

  points(i,1 , pch=i , cex=3)

  points(i,2 , col=i , pch=16 , cex=3)

  points(i,3 , col="black" , pch=16 , cex=i*0.25)

}

# cex→形状大小

# lwd→线宽

# col→控制颜色

# lty→线类型

# pch→标记形状

# type点之间的→链接

#线的类型

for (i in seq(1,20)){

  if(i %in% c(seq(1,18,3))){

    num=num+1

    points(c(i,i+2), c(4,4) , col="black" , lty=num , type="l" , lwd=2)

    text(i+1.1 , 4.15 , num)

  }

}

# c(i,i+2)：表示要添加的点在x轴上的坐标分别为i和i+2。

# c(4,4)：表示要添加的点在y轴上的坐标都为4

#线的种类和线宽

num1 <- 0

for (i in seq(1,20)){

  if(i %in% c(seq(1,20,5))){

    num1=num1+1

    points(c(i,i+1,i+2,i+3), c(5,5,5,5) , col="black"  , type=c("p","l","b","o")[num1] , lwd=2)

    text(i+1.1 , 5.2 , c("p","l","b","o")[num1] )

    points(c(i,i+1,i+2,i+3), c(6,6,6,6) , col="black"  , type="l",  lwd=num1)

    text(i+1.1 , 6.2 , num1 )

  }

}

#添加轴

axis(2,

    at = c(1,2,3,4,5,6),

    labels = c("pch" , "col" , "cex" , "lty", "type" , "lwd" ),

    tick = TRUE,

    col = "black",

    las = 1,

    cex.axis = 0.8)

# tick=TRUE：表示显示刻度线。

# las=1：表示标签的方向为水平方向。

# cex.axis=0.8：表示标签的字体大小为0.8倍的默认大小。