1

これを行うときに、どのカテゴリが everypoint と一致するかを知る方法が欲しかっただけです。

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またはを使用する方が簡単です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 に答える