我正在尝试在每个点都由一个数字表示的图中绘制点。但是,这些点似乎只能是一个字符长,如下面的代码生成的图中所示:
set.seed(1); plot(rnorm(15), pch=paste(1:15))
我想知道是否有任何解决方法。谢谢。
set.seed(1); plot(rnorm(15), pch=paste(1:15),type='n')
text(x=1:15,y=rnorm(15),label=round(rnorm(15),2))
另一个网格选项使用lattice
例如:
dat <- data.frame(x=1:15,y=rnorm(15))
xyplot(y~x,data=dat,
panel=function(x,y,...){
panel.xyplot(x,y,...)
panel.text(x,y,label=round(rnorm(15),2),adj=2,col='red')})