Plot geom_area 没有由变量/或没有变量重叠的 geom_line 填充和着色线

Question

据我所见， geom_area 和 geom_line plot 变量不同，因此该区域彼此重叠（它们具有不同的 y 轴起点），而 geom_line 它们连续交叉和重叠。 你知道这是为什么吗？

我想要以下之一：

1. 使用geom_area是否可以不为密度填充颜色，并根据“Case”为所选变量着色？
2. 或者我可以像我一样使用geom_line但避免变量的交叉和重叠？

谢谢

dataA <- tibble::tibble(
          value = c(10,20,30,30,20,10,5,8,10,8,7,2,9,25,28,29,15,6),
        Sample = rep(c(1:6),3),
        Variable = rep(c(rep("C1",6),rep("C2",6),rep("C3",6))),
        Case = rep(c(rep("o",6), rep("a",6),rep("o",6))))
    #This is the geom_area graph
        p1 <- ggplot(dataA, aes(x=Sample, y=value, fill=Variable)) +
        geom_area(colour="black", size=.2, alpha=.8) +
          theme_bw()
    #This is the geom_line
        p2 <- ggplot(dataA, aes(x=Sample, y=value, color=Case, group = interaction(Variable,Case))) + 
          geom_line(colour="black") +
          geom_line(data=subset(dataA, Case == "o"), colour="green4", size=1.5)

Answer 1

使用geom_area ：使用group而不是fill 。

ggplot(dataA, aes(x=Sample, y=value, group=Variable)) +
    geom_area(colour="black", size=.2, alpha=.8, fill="white") +
    theme_bw()

您还可以使用aes(color=Case)更改线条的颜色

Answer 2

使用color代替fill geom_area

library(ggplot2)
dataA <- tibble::tibble(
  value = c(10,20,30,30,20,10,5,8,10,8,7,2,9,25,28,29,15,6),
  Sample = rep(c(1:6),3),
  Variable = rep(c(rep("C1",6),rep("C2",6),rep("C3",6))),
  Case = rep(c(rep("o",6), rep("a",6),rep("o",6))))

ggplot(dataA, aes(x=Sample, y=value, group = interaction(Variable,Case))) +
  geom_area(aes(colour=Case), size=.2, alpha=.8, fill = NA) +
  theme_bw() +
  scale_color_manual(values = c("o" = "green4", "a" = "red"))

^{由代表 package (v0.3.0) 于 2020 年 4 月 20 日创建}

这是回答你的问题吗？