1

我有许多相关的时间序列要一起绘制。我正在使用ggplot2 以下是我的数据的示例:

set.seed(0)
require(ggplot2)
id <- LETTERS[1:18]
appDates <- as.Date("2000-01-01", origin = '1970-01-01') + 1:10
appRate <- runif(18, 1,4)
appRank <- rank(-appRate - colSums(anorm))

anorm <- array(rnorm(18*11), c(11,18))
tempDf <-lapply(seq_along(appDates), function(x) data.frame(adate = appDates[x], group = 1:18, id = id, arate = appRate + colSums(anorm[1:(x+1),]), ranked = appRank))

tempDf <- do.call(rbind, tempDf)
ggplot(tempDf, aes(x = adate, y = arate, group = group, color = id)) + geom_line()

这很好,但我希望箭头从 id 标签到相关的时间序列,因为很难挑选出颜色相似的特定路径。

在此处输入图像描述

我试过“directlabels”,但我似乎不太明白

p <- ggplot(tempDf, aes(x = adate, y = arate, group = group, color = id)) + geom_line()
require(directlabels)
direct.label(p,list(last.points, hjust=0.8, vjust = 1))

在此处输入图像描述

我正在寻找的一个粗略的例子

在此处输入图像描述

随着最终排名的增加,我添加了不同的线条粗细以帮助识别。

p <- ggplot(tempDf, aes(x = adate, y = arate, group = group, color = id, size = ranked)) + geom_line()
p + scale_size(range=c(2.6, 0.4), guide=FALSE)+
       guides(colour = guide_legend(override.aes = list(size=seq(2.6,0.4, length.out = 18)[appRank])))

在此处输入图像描述

4

1 回答 1

1

虽然这不能完全回答你的问题,但我想包括一些我的意思的图片,所以我把它放在一个答案中。

如果排名真的是你想要展示的,那么我特别推荐热图。除了不使用比率作为 y 轴,您使用排名,并且使用比率作为填充颜色。这就是我的意思:

# I think your rank was broken -- but I might be missing something.
tempDf$real.rank<-unlist(by(tempDf$arate,tempDf$adate,rank)) 
ggplot(tempDf, aes(x = adate ,fill = arate, y = real.rank)) +   ]
  geom_tile() +
  geom_text(aes(label=id),color='white')

在此处输入图像描述

如果你真的想强调排名的变化,你可以在字母之间画线:

ggplot(tempDf, aes(x = adate ,fill = arate, y = real.rank)) +   
  geom_tile() +
  geom_text(aes(label=id),color='white') +
  geom_line(aes(group=id,color=id))

在此处输入图像描述

在任何一种情况下,我都认为你会添加一个带有热图的额外数据维度,即排名本身,但代价是更难以判断准确的比率。

于 2013-06-26T11:45:26.343 回答