r - 堆积线面积图在ggplot中不起作用

Question

我正在制作面积折线图。它没有堆叠，因为它们不位于其他每条线的顶部。

线部分和区域部分没有对齐。我想在一个面积折线图中显示两组。

这是我的代码

economics_long %>% 
  filter(variable %in% c("unemploy", "pop")) %>%
  ggplot(aes(date, value, group = variable,
             fill = variable, color = variable)) +
  geom_area(alpha = 0.4) +
  geom_line(size = 1) 

红线与红色区域的顶部不匹配。

Answer 1

也许这就是你正在寻找的：

library(ggplot2)
#Code
economics_long %>% 
  filter(variable %in% c("unemploy", "pop")) %>%
  ggplot(aes(date, value, group = variable,
             fill = variable, color = variable)) +
  geom_area(alpha = 0.4,size=1)

输出：

或这个：

#Code 2
economics_long %>% 
  filter(variable %in% c("unemploy", "pop")) %>%
  ggplot(aes(date, value, group = variable,
             fill = variable, color = variable)) +
  geom_line(size=1)+
  geom_area(alpha = 0.4,size=1,position='identity')

输出：

或者这种堆栈样式：

#Code 3
economics_long %>% 
  filter(variable %in% c("unemploy", "pop")) %>%
  ggplot(aes(date, value, group = variable,
             fill = variable, color = variable)) +
  geom_line(size=1,position='stack')+
  geom_area(alpha = 0.4,size=1,position='stack')

输出：