4

我有一个包含 72 个离散类别的 data.frame。当我按这些类别着色时，我会在图例中得到 72 个不同的键。我宁愿只使用第二个或第三个键。

知道我如何减少图例中的行数吗？

谢谢H。

下面给出了重现我的问题的代码。

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

在这里为离散颜色比例定制图例看起来很难！所以我提出了一个格子解决方案。您只需为 auto.key 列表提供正确的文本。

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,...)
       })

在此处输入图像描述

于 2013-02-27T07:00:39.267 回答