我试图在绘图中绘制点,其中每个点由数字表示。但是,似乎这些点只能是一个字符长,正如您在以下代码生成的图中所看到的那样:
set.seed(1); plot(rnorm(15), pch=paste(1:15))
我想知道是否有任何解决方法。感谢。
答案 0 :(得分:8)
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')})