数据：集团年月平均值第1组2018年6月1.58第1组2018年7月9日第1组2018年8月3.52日第1组2018年9月5.9日第1组2018年10月5日第1组2018年11月11日第1组2018年12月13日第1组2019年1月4.67第1组2019年2月4.35第1组2019年3月4日第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日第1组2019年12月12日-5第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日第2组2018年10月3日32分第2组2018年11月1日第2组2018年12月6日第2组2019年1月0日第2组2019年2月2.25日第2组2019年3月2日第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年10月3.25日第2组2019年11月2.8日第2组2019年12月2日第2组2020年1月0.25日第2组2020年2月1.33日第3组2018年6月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日第3组2018年12月9日第3组2019年1月2.78第3组2019年2月3.97日第3组2019年3月5日第3组2019年4月2.19日第3组2019年5月0.95第3组2019年6月0日第3组2019年7月1.31第3组2019年8月3.77日第3组2019年9月1.79第3组2019年10月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.4日2018年7月9日第4组第4组2018年8月1.1日第4组2018年9月2日第4组2018年10月6.7日第4组2018年11月15日至66日第4组2018年12月8日第4组2019年1月3.69第4组2019年2月0.8日第4组2019年3月04日第4组2019年4月17日第4组2019年5月7日第4组2019年6月0.53第4组2019年7月2.93日第4组2019年8月2.73日2019年9月2日第4组第4组2019年10月6.59第4组2019年11月3.91第4组2019年12月7.2日第4组2020年1月6.81第4组2020年2月0.8日
数据$Month<-factor(数据$Month，level=Month.abb(数据$Year<-因子(数据$Year，level=c("2018"，"2019"，"2020"((数据%>%过滤器(组=="组1"(%>%ggplot(aes(x=月，y=平均值(+geom_point((+geom_line(aes(color=年(，group=1(+facet_grid(~年(+theme_minimal((+主题(legend.position＝"none"(
- 是否可以在GroupWise中绘制折线图
- 如何删除没有数据的x轴标签.plot(2018年1月：5月，2020年3月：12月(
你非常接近。这应该做到：
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")
(注意，自从我在你的帖子中粘贴数据转储以来，我不得不从我的输入数据中删除"Group"，否则read.table无法轻松理解空间，这就是我将其粘贴回的原因。这对解决方案并不重要(