0

亲爱的堆栈溢出读者,

我有一个数据集,我有“原始”数据,并且我还为此计算了某种平滑函数。然后我想将原始数据绘制为点,将平滑绘制为一条线。这适用于以下情况:

Loc <- seq(from=1,to=50)
Loc <- append(Loc,Loc)
x <- seq(from=0,to=45,by=0.01)
Val <- sample(x,100)
labels <- NULL
labels[1:50] <- 'one'
labels[51:100] <- 'two'

x2 <- seq(from=12,to=32,by=0.01)
Val2 <- sample(x2,100)
raw <- data.frame(loc=Loc,value=Val,lab=labels)
smooth <- data.frame(loc=Loc,value=Val2,lab=labels)

pl <- ggplot(raw,aes(loc,value,colour=lab)) + geom_point() + geom_line(data=smooth)
print(pl)

结果如下所示:

在此处输入图像描述

问题是我的实际数据包含太多数据点,使用相同的调色板会非常混乱(点和线之间的差异几乎无法区分)。最好,我会让 geom_lines() 稍微暗一些。我已经尝试过scale_colour_hue(l=40),但这会导致 geom_points() 也更暗。

感谢您的任何建议!

4

2 回答 2

2

我没有给你一个完美的答案,但我有一个有效的答案。您可以通过将线条拆分为单独的几何图形来单独控制线条的颜色,如下所示:

ggplot(raw,aes(loc,value)) + 
geom_point(aes(col=lab)) + 
geom_line(data=smooth[smooth$lab=="one",], colour="blue", size=1) + 
geom_line(data=smooth[smooth$lab=="two",], colour="black", size=1)

图一

这样做的缺点是您必须手动指定行选择,但优点是您可以手动指定每行的视觉属性。

另一种选择是使用相同的调色板,但使线条更大且部分透明,如下所示:

ggplot(raw,aes(loc,value,colour=lab)) + 
geom_point() + 
geom_line(data=smooth, size=2, alpha=0.5)

图 2

您应该能够从这里自定义内容以满足您的需求。

于 2013-02-07T18:01:21.283 回答
1

您可以尝试通过在 中设置alpha=值来使点变亮,而不是使线条变暗geom_point()

pl <- ggplot(raw,aes(loc,value,colour=lab)) + geom_point(alpha=0.5) + 
      geom_line(data=smooth)
print(pl)

在此处输入图像描述

于 2013-02-07T17:49:04.443 回答