1

当我这样做时,我只是想知道什么类别与每个点匹配:

x<-rnorm(mean=0,sd=1,500)
y<-sample(1:500,500,replace=T)
group<-as.factor(sample(c('A','B','C'),500,replace=T,prob=c(0.2,0.3,0.5)))
plot(x,y,col=group)

我知道如何制作图例并使用任意向量 c('A','B',C') 放置文本,但是有没有更“自动”的方式来做到这一点?这是一个简单的例子,但我需要用残差或生存函数图来做

先感谢您。

4

1 回答 1

3

传统的图形系统提供了在绘图legend中添加图例或键的功能。但需要注意的是,确保图例与剧情对应完全是用户的责任。没有自动检查图例中的数据符号是否与图中的数据符号匹配。lattice使用or更简单ggplot2。例如:

 library(lattice)
 xyplot(y~x,groups=group,auto.key=T)

在此处输入图像描述

如果你想绝对使用基本图形,你可以这样做:

x<-rnorm(mean=0,sd=1,500)
y<-sample(1:500,500,replace=T)
group<-as.factor(sample(c('A','B','C'),500,replace=T,prob=c(0.2,0.3,0.5)))
plot(x,y,col=group,pch=as.numeric(group))

legend(2, 500, c('A','B','C'),
       cex=1.5, pch=1:3,col=1:3)

在此处输入图像描述

于 2013-02-22T17:53:55.203 回答