r - R ggplot 结合了颜色的图例和填充不同的因子长度

Question

我正在使用来自不完整因子设计的数据绘制图。由于设计的原因，我对颜色的手动刻度和填充的手动刻度有不同的长度。因此，我得到了两个传说。我怎样才能删除其中一个甚至更好地组合它们？

我看过这些问题：

在ggplot中合并单独的大小和填充图例

如何在 ggplot 中合并颜色、线条样式和形状图例

如何将颜色和大小的比例组合成一个图例？

但是，答案对我没有帮助，因为它们没有处理不完整的设计。

这是一些示例数据和到目前为止我制作的图：

#Example data 
Man1 <- c(25,25,30,30,30,30,35,35,40,40,40,40,45,45) 
Man2 <- c(25,25,30,30,40,40,35,35,40,40,30,30,45,45) 
DV <- c(24.8,25.2,29.9,30.3,35.2,35.7,34,35.1,40.3,39.8,35.8,35.9,44,44.8)
Data <- data.frame(Man1,Man2,DV)

#Plot 
ggplot(data = Data, aes(x = Man1, y = DV, group=as.factor(Man2), colour=as.factor(Man2))) +
  theme_bw()  +  
  geom_abline(intercept = 0, slope = 1, linetype = "longdash") +  
  geom_point(position = position_dodge(1)) 
  geom_smooth(method = "lm", aes(x = Man1, y = DV, group=as.factor(Man2),   fill=as.factor(Man2)))  + 
  scale_colour_manual(name = "Man2", values=c('grey20', 'blue','grey20','tomato3', 'grey20'))  + 
  scale_fill_manual(name = "Man2", values=c('blue','tomato3'))

这给了我以下图片：

带有两个图例的不完全设计的ggplot

有人可以给我一个提示如何删除其中一个图例甚至更好地组合它们吗？我会很感激！

Answer 1

默认情况下，比例会降低未使用的因子水平，这与此处相关，因为只能为您的几个组获取行。

您可以使用drop = FALSE在适当的情况下进行更改scale_*_manual()（用于fill此处）。

然后对fill和color比例使用相同的颜色向量。我通常为此制作一个命名向量。

# Make vector of colors
colors = c("25" = 'grey20', "30" = 'blue', "35" = 'grey20', "40" = 'tomato3', "45" = 'grey20')

#Plot 
ggplot(data = Data, aes(x = Man1, y = DV, group=as.factor(Man2), colour= as.factor(Man2))) +
    theme_bw()  +  
    geom_abline(intercept = 0, slope = 1, linetype = "longdash") +  
    geom_point(position = position_dodge(1))  +
geom_smooth(method = "lm", aes(fill=as.factor(Man2)))  + 
    scale_colour_manual(name = "Man2", values = colors)  + 
    scale_fill_manual(name = "Man2", values = colors, drop = FALSE)

或者，使用guide = "none"一起删除fill图例。

ggplot(data = Data, aes(x = Man1, y = DV, group=as.factor(Man2), colour= as.factor(Man2))) +
    theme_bw()  +  
    geom_abline(intercept = 0, slope = 1, linetype = "longdash") +  
    geom_point(position = position_dodge(1))  +
    geom_smooth(method = "lm", aes(fill=as.factor(Man2)))  + 
    scale_colour_manual(name = "Man2", values = colors)  + 
    scale_fill_manual(name = "Man2", values=c('blue','tomato3'), guide = "none")