ggplot2繪製了與屬於不同組的實線相同顏色的虛線

Question

我想繪製每組2條不同顏色的2條實線，還要在這些線條的周圍添加相同顏色的虛線，然後添加一個圖例。出於某種原因，我在使用「虛線」或「虛線」時遇到問題，看起來我正在虛線上繪製兩次。我也沒有得到正確的傳說，我得到錯誤Adding another scale for 'colour', which will replace the existing scale。

你能幫我弄清楚我做錯了什麼嗎？ 下面是一個例子數據集，我曾嘗試：

x <- c(10, 20, 50, 10, 20, 50) 
mean = c(52.4, 98.2, 97.9, 74.1, 98.1, 97.6) 
group = c(1, 1, 1, 2,2,2) 
upper = c(13.64, 89, 86.4, 13.64, 89, 86.4) 
lower = c(95.4, 99.8, 99.7, 95.4, 99.8, 99.7) 
data <- data.frame(x=x,y=mean, group, upper, lower) 

ggplot(data, aes(x = x, y= mean, group = as.factor(data$group), colour=as.factor(data$group))) + geom_line() + geom_point() + geom_line(data=data,aes(x=x, y=lower, group = as.factor(data$group), colour=as.factor(data$group), linetype="dotted")) + geom_line(data=data,aes(x=x, y=upper, group = as.factor(data$group), colour=as.factor(data$group), linetype="dotted")) + scale_color_manual(values=c("red", "blue")) + scale_colour_discrete(name="Groups") 

我也試圖與geom_ribbon，又沒有運氣的分組部...

ggplot(data, aes(x = x, y= mean, group = group)) + geom_line() + 
geom_ribbon(aes(ymin = lower, ymax = upper)) + 
geom_line(aes(y = mean), colour = "Mean")) + 
scale_colour_manual(name = "", values = c("Group1", "Group2")) 

Answer 1

要添加虛線你應該添加2 geom_line()打電話給你在aes()內提供y值。沒有必要把data=和groups=的參數，因爲他們是在ggplot()調用相同。 linetype="dotted"應該放在aes()之外的電話。對於顏色你只需要一個scale_color_manual()。要從圖例中刪除虛線圖案，您可以使用功能guides()和guide_legend()重寫審美。

ggplot(data, aes(x = x, y= mean, group = as.factor(data$group), 
          colour=as.factor(data$group))) + 
    geom_line() + geom_point() + 
    geom_line(aes(y=lower),linetype="dotted") + 
    geom_line(aes(y=upper),linetype="dotted")+ 
    scale_color_manual(name="Groups",values=c("red", "blue"))+ 
    guides(colour = guide_legend(override.aes = list(linetype = 1)))