R plot 画图

x和yget data

par(mfrow=c(2, 2), mar=c(1, 1, 2, 1))
par(cex=0.7)
 x <- 1:10
y <- matrix(sort(rnorm(30)), ncol=3)

 

================================================

plot(x, y[,1], ylim=range(y), ann=FALSE, axe=FALSE, type="l", col="red")

#ylim指定纵坐标的range
axis(1, at = 1:max(x), labels = letters[1:max(x)])
axis(2)
points(x, y[,1])
lines(x, y[,2], col="green")
points(x, y[,2], pch=2)
lines(x, y[,3], col="blue")
points(x, y[,3], pch=3)

box(lty='1373',col='red')

 

=================================================

最简洁的

plot(x, y[,1], ylim=range(y), ann=FALSE, axe=FALSE, type="o ", col="red")
axis(1, at = 1:max(x), labels = letters[1:max(x)])
axis(2)

# points(x, y[,1]) #这样画线和点的颜色一样,不太方便控制
lines(x, y[,2], col="green")
# points(x, y[,2], pch=2)
lines(x, y[,3], col="blue")
# points(x, y[,3], pch=3)

box(lty='1373',col='red')

 

=================================================

也可以这样指定坐标点的文本显示

axis(side=1,at=seq(0,max(x),1),outer=FALSE, tick=TRUE,lwd.ticks=1,lty=1,tck=0.01, labels=FALSE)

#tick     a logical value specifying whether tickmarks and an axis line should be drawn.

#lwd     line width

#lwd.tick   line width of tick mark

#tck    tick的长度占图的长(应该对应纵坐标上的tick mark)或者宽的比例
axis(side=2)
mtext("a", side=1,at=1)
mtext("b", side=1,at=2)
mtext("c", side=1,at=3)
mtext("d", side=1,at=4)
mtext("e", side=1,at=5)
mtext("f", side=1,at=6)
mtext("h", side=1,at=7)
mtext("i", side=1,at=8)
mtext("jj", side=1,at=9)
mtext("k", side=1,at=10)