r - 如何修复 f(...) 中的错误：美学不能随色带而变化

Question

我正在使用 ggplot2 创建一个堆叠面积图，显示多个不同研究站随时间推移的足迹（面积）。我想要一些看起来像下面的图表的东西，但是 y 轴上的区域是由不同的研究站着色的：

_{（来源：r-graph-gallery.com）}

我已经尝试过类似帖子的元素，但无法使其正常工作。

R 中 ggplot 的问题-“f(...) 中的错误：美学不能随丝带而变化”

在R中获取堆积面积图

https://www.r-graph-gallery.com/136-stacked-area-chart/

我在这里提供了数据的 .csv 子集。

下面是我正在使用的代码。

fp <- read.csv("fp.csv")

fp$Year <- as.numeric(rep(fp$Year)) #change Year to numeric

p2 <- fp %>% 
  filter(Exist == 1) %>% # Select only existing structures
  group_by(Year, Station) %>%
  summarise(Sum_Area = sum(Area)) %>% 
  arrange(desc(Year)) %>% 
  ggplot(aes(x = Year, y = Sum_Area, fill = Sum_Area)) +
  geom_area(stat = "identity", position = "stack")
p2

我总是收到错误消息： f(...) 中的错误：美学不能随丝带而变化

Answer 1

如果您的填充变量是整数或数字变量而不是字符或因子变量，则可能会发生这种情况。

重现错误

airquality %>%
    ggplot(aes(x = Day, y = Ozone, fill = Month)) +
    geom_area()
#Error: Aesthetics can not vary with a ribbon

修复错误

airquality %>%
    mutate(Month = as.character(Month)) %>%
    ggplot(aes(x = Day, y = Ozone, fill = Month)) +
    geom_area()

这当然是一个无用的情节，只是为了说明错误。