如何在R中用折线图覆盖条形图？

Question

我希望以数周为基础，将数据搁置多年。 我正在寻找最近的一年（2020 年）是酒吧聊天，而前几年（2019 年和 2018 年）是线图。

我当前的代码产生下面的视觉效果

data %>%
  ggplot(aes(week, result, fill = year)) +
  geom_col()

图表

如果我想将所有年份制作成条形图，我知道我可以在 geom_col 中使用“dodge”。 但是，我正在尝试将数据拆分为不同的几何体

当我使用子集函数（下面的代码）时，我的图表发生了一些奇怪的事情，我无法弄清楚发生了什么

data %>%
  ggplot(aes(week, result, fill = year)) +
  geom_col(data = subset(data, year == 2020)) +
  geom_line(data = subset(data, year != 2020))

图二

以下是我正在使用的数据示例。 关于我做错了什么的任何想法？

structure(list(year = c("2018", "2018", "2019", "2019", "2020", 
"2020"), week = c(1L, 2L, 1L, 2L, 1L, 2L), result = c(6.88475831020016, 
7.62267452779933, 3.67553313593328, 6.18354398162893, 2.38101968527051, 
5.9596355812872)), .Names = c("year", "week", "result"), row.names = c(NA, 
-6L), class = c("tbl_df", "tbl", "data.frame"))

Answer 1

我不确定您的错误在哪里，但是我的虚拟示例模仿了您的示例，我只是在aes中添加color以使行按年份分组，其余代码与您的类似：

ggplot(df, aes(x = week, y = Value, 
               color = as.factor(year),
               fill = as.factor(year)))+
  geom_col(data = subset(df, year == 2020)) +
  geom_line(data = subset(df, year != 2020))

数据

df <- data.frame(year = rep(2018:2020, each = 7),
                 week = rep(1:7,3),
                 Value = rnorm(21))

---

使用 OP 数据进行编辑

根据您的数据，您只需要根据@camille 指出的字符值而不是数字进行子集化：

ggplot(df, aes(x = week, y = result, 
                 color =year,
                 fill = year))+
    geom_col(data = subset(df, year == "2020")) +
    geom_line(data = subset(df, year != "2020"))