如何用 4 组绘制 geom_line 以及如何在没有数据的情况下限制 x 轴

Question

数据： 组 年 月 平均值 第 1 组 2018 年 6 月 1.58 第 1 组 2018 年 7 月 0.92 第 1 组 2018 年 8 月 3.52 第 1 组 2018 年 9 月 5.9 第 1 组 2018 年 10 月 5.95 第 1 组 2018 年 11 月 11.21 组 1 2018 年 12 月 13.55 第 1 组 2019 年 2 月 4.67 第 1 组 201 4.35 组 1 2019 年 3 月 4.04 组 1 2019 年 4 月 1.33 组 1 2019 年 5 月 20.5 组 1 2019 年 6 月 1 日 组 1 2019 年 7 月 2.67 组 1 2019 年 8 月 5.79 组 1 2019 年 9 月 3.95 组 1 2019 年 10 月 1.83 组 1 2019 年 11 月 5 组12.95 第 1 组 2020 年 1 月 8.89 第 1 组 2020 年 2 月 0.75 第 2 组 2018 年 6 月 0 第 2 组 2018 年 7 月 1.2 第 2 组 2018 年 8 月 1.83 第 2 组 2018 年 9 月 3.29 第 2 组 2018 年 10 月 3.32 第 2 组 2018 年 11 月 1 组 2018 年 12 月 6 组 第 22 组0 第 2 组 2019 年 2 月 2.25 第 2 组 2019 年 3 月 2.14 组 2 2019 年 4 月 1.94 第 2 组 2019 年 5 月 0 第 2 组 2019 年 6 月 0.2 第 2 组 2019 年 7 月 1.25 组 2 2019 年 8 月 2.86 组 第 2 组 2019 年 9 月 7.93 组 2 2019 年 11 月 3.25 第 2 组2.8 第 2 组 2019 年 12 月 2 日 第 2 组 2020 年 1 月 0.25 第 2 组 2020 年 2 月 1.33 第 3 组 2018 年 6 月 0.11 第 3 组 2018 年 7 月 0.68 第 3 组 2018 年 8 月 1.3 第 3 组 2018 年 9 月 0.99 组 3 2018 年 10 月 2.67 组 3 2018 年 11 月 9.89 组 3 2018 年 12 月 9.81 组 3 2019 年 1 月 2.78 组 3 2019 年 2 月 3.97 组 3 2019 年 3 月 5.75 组 3 2019 年 4 月 2.19 组 2019 年 5 月 0.95 组 3 组 3 2019 年 7 月 1.31 组 3 2019 年 8 月 3.77 组 3 2019 年 9 月 1.79 组 3 2019 年 10 月 3.14 组 3 2019 年 11 月 1.82 组 3 2019 年 12 月 6.5 组 3 2020 年 1 月 2.72 组 3 2020 年 2 月 1.33 组 4 2018 年 6 月 2.48 组 4 月 4 日 2. 2018 年 8 月 1.1 组 4 2018 年 9 月 2.32 组 4 2018 年 10 月 6.7 组 4 2018 年 11 月 15.66 组 4 2018 年 12 月 8.18 组 4 2019 年 1 月 3.69 组 4 2019 年 2 月 0.8 组 2019 年 3 月 0.04 组 4 2019 年 4 月 1 日 1.17 组 4 组 20 2019 年 6 月 0.53 组 4 2019 年 7 月 2.93 组 4 2019 年 8 月 2.73 组 4 2019 年 9 月 2.07 组 4 2019 年 10 月 6.59 组 4 2019 年 11 月 3.91 组 4 2019 年 12 月 7.2 组 2020 年 1 月 6.81 组 4 2020 年 2 月 0.8 日

Data$Month <- factor(Data$Month, levels = month.abb) Data$Year <- factor(Data$Year, levels = c("2018", "2019", "2020")) Data %>% filter (Group == "Group 1") %>% ggplot(aes(x = Month, y = Mean))+ geom_point() + geom_line(aes(colour = Year), group = 1) + facet_grid(~ Year) +主题最小（）+主题（图例.position =“无”）

1. 是否可以绘制折线图 GroupWise。
2. 如何删除没有数据的 x 轴标签。 plot （2018年1月：5月，2020年3月：12月）

Answer 1

你非常接近。 这应该这样做：

Data  <- read.table(text=
"Group  Year    Month   Mean
1   2018    Jun 1.58
1   2018    Jul 0.92
1   2018    Aug 3.52
1   2018    Sep 5.9
1   2018    Oct 5.95
1   2018    Nov 11.21
1   2018    Dec 13.55
1   2019    Jan 4.67
1   2019    Feb 4.35
1   2019    Mar 4.04
1   2019    Apr 1.33
1   2019    May 20.5
1   2019    Jun 1
1   2019    Jul 2.67
1   2019    Aug 5.79
1   2019    Sep 3.95
1   2019    Oct 1.83
1   2019    Nov 5
1   2019    Dec 12.95
1   2020    Jan 8.89
1   2020    Feb 0.75
2   2018    Jun 0
2   2018    Jul 1.2
2   2018    Aug 1.83
2   2018    Sep 3.29
2   2018    Oct 3.32
2   2018    Nov 1
2   2018    Dec 6
2   2019    Jan 0
2   2019    Feb 2.25
2   2019    Mar 2.14
2   2019    Apr 1.94
2   2019    May 0
2   2019    Jun 0.2
2   2019    Jul 1.25
2   2019    Aug 2.86
2   2019    Sep 7.93
2   2019    Oct 3.25
2   2019    Nov 2.8
2   2019    Dec 2
2   2020    Jan 0.25
2   2020    Feb 1.33
3   2018    Jun 0.11
3   2018    Jul 0.68
3   2018    Aug 1.3
3   2018    Sep 0.99
3   2018    Oct 2.67
3   2018    Nov 9.89
3   2018    Dec 9.81
3   2019    Jan 2.78
3   2019    Feb 3.97
3   2019    Mar 5.75
3   2019    Apr 2.19
3   2019    May 0.95
3   2019    Jun 0
3   2019    Jul 1.31
3   2019    Aug 3.77
3   2019    Sep 1.79
3   2019    Oct 3.14
3   2019    Nov 1.82
3   2019    Dec 6.5
3   2020    Jan 2.72
3   2020    Feb 1.33
4   2018    Jun 2.4
4   2018    Jul 0.98
4   2018    Aug 1.1
4   2018    Sep 2.32
4   2018    Oct 6.7
4   2018    Nov 15.66
4   2018    Dec 8.18
4   2019    Jan 3.69
4   2019    Feb 0.8
4   2019    Mar 0.04
4   2019    Apr 1.17
4   2019    May 7
4   2019    Jun 0.53
4   2019    Jul 2.93
4   2019    Aug 2.73
4   2019    Sep 2.07
4   2019    Oct 6.59
4   2019    Nov 3.91
4   2019    Dec 7.2
4   2020    Jan 6.81
4   2020    Feb 0.8
", header=TRUE)

Data <- Data %>% mutate(
            Group = paste("Group",Group),
            Year = factor(Year),
            Month = factor( Month, levels = month.abb )
        )

Data %>%
    ggplot(aes(x = Month, y = Mean, group=Group)) +
    geom_point() +
    geom_line(aes(colour = Group)) +
    facet_grid(~ Year, scales = "free_x") +
    theme_minimal() +
    theme(legend.position = "none")

（请注意，由于我在您的帖子中粘贴数据转储，因此我必须从输入数据中省略“组”，否则 read.table 无法轻松理解该空间，这就是我将其粘贴回去的原因。这并不重要为解决方案）