假設(shè)我在ggplot中有以下圖表：ggplot圖它是使用以下代碼生成的：x <- seq(0, 10, by = 0.2)y1 <- sin(x)y2 <- cos(x)y3 <- cos(x + pi / 4)y4 <- sin(x + pi / 4)df1 <- data.frame(x, y = y1, Type = as.factor("sin"), Method = as.factor("method1"))df2 <- data.frame(x, y = y2, Type = as.factor("cos"), Method = as.factor("method1"))df3 <- data.frame(x, y = y3, Type = as.factor("cos"), Method = as.factor("method2"))df4 <- data.frame(x, y = y4, Type = as.factor("sin"), Method = as.factor("method2"))df.merged <- rbind(df1, df2, df3, df4)ggplot(df.merged, aes(x, y, colour = interaction(Type, Method), linetype = Method, shape = Type)) + geom_line() + geom_point()我只希望有一個圖例可以正確顯示形狀，顏色和線型（interaction（類型，方法）圖例最接近我想要的圖例，但它沒有正確的形狀/線型） 。我知道如果我使用scale_xxx_manual并且為所有圖例指定了相同的標(biāo)簽，那么它們將被合并，但是我不想手動設(shè)置標(biāo)簽：如果有新的Method或Types，我不想擁有修改我的代碼：想要一些通用的東西。編輯如以下答案所示，在這種特殊情況下，有幾種方法可以完成工作。所有建議的解決方案都需要使用scale_xxx_manual functions或with guides函數(shù)手動設(shè)置圖例線的類型和形狀。但是，建議的解決方案在一般情況下仍然不起作用：例如，如果我使用新的“ method3”方法向數(shù)據(jù)集添加新的數(shù)據(jù)框，則該方法不再起作用，我們必須手動添加新的圖例形狀和線型：y5 <- sin(x - pi / 4)df5 <- data.frame(x, y = y5, Type = as.factor("sin"), Method = as.factor("method3"))df.merged <- rbind(df1, df2, df3, df4, df5)override.shape <- c(16, 17, 16, 17, 16)override.linetype <- c(1, 1, 3, 3, 4)g <- ggplot(df.merged, aes(x, y, colour = interaction(Type, Method), linetype = Method, shape = Type)) + geom_line() + geom_point()g <- g + guides(colour = guide_legend(override.aes = list(shape = override.shape, linetype = override.linetype)))g <- g + scale_shape(guide = FALSE)g <- g + scale_linetype(guide = FALSE)print(g)這給出：5條曲線現(xiàn)在的問題是：如何自動生成override.shape和override.linetype向量？請注意，向量大小為5，因為我們有5條曲線，而interaction(Type, Method)因子的大小為6（我沒有cos / method3組合的數(shù)據(jù)）