2

我正在尝试在每个点都由一个数字表示的图中绘制点。但是,这些点似乎只能是一个字符长,如下面的代码生成的图中所示:

set.seed(1); plot(rnorm(15), pch=paste(1:15))

在此处输入图像描述

我想知道是否有任何解决方法。谢谢。

4

1 回答 1

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')})

在此处输入图像描述

于 2013-02-18T01:02:49.910 回答