ags*_*udy 22
你可以用text
.使用@HongOoi数据:
dat <- data.frame(x=rnorm(100), y1=rnorm(100)-1, y2=rnorm(100), y3=rnorm(100)+1)
plot(y1 ~ x, data=dat, type='n', ylim=c(-4, 4))
text(dat$x,dat$y1,label=0,col='blue')
text(dat$x,dat$y2,label=1,col='green')
text(dat$x,dat$y3,label=2,,col='red')
Run Code Online (Sandbox Code Playgroud)
Hon*_*Ooi 18
当然,只需将pch
参数作为字符传递即可.
dat <- data.frame(x=rnorm(100), y1=rnorm(100)-1, y2=rnorm(100), y3=rnorm(100)+1)
plot(y1 ~ x, data=dat, pch="0", ylim=c(-4, 4))
points(y2 ~ x, data=dat, pch="3")
points(y3 ~ x, data=dat, pch="6")
Run Code Online (Sandbox Code Playgroud)
ETA:一个好处是pch
参数,像许多基本图形参数一样,是矢量化的.所以你可以做这样的事情(这也适用于Agstudy的回答).
dat <- data.frame(x=rnorm(300), y=rnorm(300) + c(0,3,6), depth=rep(c(0,3,6), 100))
plot(x ~ y, data=dat, pch=as.character(dat$depth))
Run Code Online (Sandbox Code Playgroud)
归档时间: |
|
查看次数: |
25902 次 |
最近记录: |