4

72 個の個別のカテゴリを持つ data.frame があります。これらのカテゴリで色を付けると、凡例に 72 の異なるキーが表示されます。2 番目または 3 番目のキーごとにのみ使用することをお勧めします。

凡例の行数を減らす方法はありますか?

ありがとうございます。

私の問題を再現するコードを以下に示します。

t=seq(0,2*pi,length.out=10)
RR=rep(cos(t),72)+0.1*rnorm(720)
dim(RR)=c(10,72)
stuff=data.frame(alt,RR)
names(stuff)=c("altitude",
               paste(rep(15:20,each=12),
               rep(c("00","05",as.character(seq(from=10,to=55,by=5))),6),
               sep=":"))

bb=melt(stuff,id.vars=c(1))
names(bb)[2:3]=c("period","velocity")
ggplot(data=bb,aes(altitude,velocity))+geom_point(aes(color=period))+geom_smooth()
4

2 に答える 2

3

periodでは値を数値として扱うことができますgeom_point()。これにより、色がグラデーション (レベル数に対応する 1 から 72 までの値) になります。次に、scale_colour_gradient()必要な休憩の数を設定し、実際の期間の値としてラベルを追加できます。

ggplot(data=bb,aes(altitude,velocity))+
  geom_point(aes(color=as.numeric(period)))+
  geom_smooth()+
  scale_colour_gradient("Period",low="red", high="blue",
          breaks=c(seq(1,72,12),72),labels=unique(bb$period)[c(seq(1,72,12),72)])

ここに画像の説明を入力

于 2013-02-27T06:09:12.967 に答える
1

It looks hard to customize the legend here for a discrete_color_scale!So I propose a lattice solution. You need just to give the right text to the auto.key list.

libarry(latticeExtra)
labels.time <- unique(bb$period)[rep(c(F,F,T),each=3)] ## recycling here to get third label
 g <- xyplot(velocity~altitude, data=bb,groups=period,
       auto.key=list(text=as.character(labels.time),
                     columns=length(labels.time)/3),
       par.settings = ggplot2like(),   axis = axis.grid,
       panel = function(x,y,...){
         panel.xyplot(x,y,...)
         panel.smoother(x,y,...)
       })

enter image description here

于 2013-02-27T07:00:39.267 に答える