收集平均值并组合多个折线图答案

【问题标题】：Gathering the Averages and Combining multiple Line Graphs收集平均值并组合多个折线图
【发布时间】：2020-11-07 21:17:20
【问题描述】：

我是 R 的新手，我很想在这方面提供一些帮助。我正在使用这个数据集：https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2019/2019-01-29/clean_cheese.csv

我试图首先找到以下奶酪的平均值：切达干酪、美式干酪、马苏里拉干酪、意大利干酪、瑞士干酪、明斯特干酪和蓝干酪。然后我想将它们放入折线图中，但一次显示它们。我想显示这些奶酪的平均消费量。

以下是我的代码以及我目前拥有的代码。我是新手，所以这对某些人来说可能很可怕。

line_3 <- clean_cheese %>%
  select(c(Year, Cheddar, Mozzarella, `American Other`, `Italian other`, Swiss, Muenster, Blue)) %>%
  group_by(Year) %>%
  summarise(avg_cheddar_cheese = mean(Cheddar), avg_mozz_cheese = mean(Mozzarella), avg_american_other = mean(`American Other`), avg_italin_other = mean(`Italian other`), avg_swiss_cheese = mean(Swiss), avg_muenster = mean(Muenster), avg_blue = mean(Blue)) %>%
  pivot_longer(-c(Year)) +
  ggplot(aes(x = Year, y = value, color=name,group=name)) +
  geom_line() +
  facet_wrap(.~name,scales = 'free_y')


ggplotly(line_3)

【问题讨论】：

你想在同一个图表中显示它们吗？如果是这种情况，只需从代码中删除 facet_wrap(.~name, scales = 'free_y') 行。如果没有，你到底想做什么？
@JoaoPedroMacalos 是的，我试图在同一张图中显示它们！但删除 facet_wrap 并没有帮助。 :(
奇怪。它在我的机器上工作。不要忘记删除geom_line() 之后的加号。
@JoaoPedroMacalos 这是我得到的错误“错误：data 必须是一个数据框，或者由fortify() 强制的其他对象，而不是具有类 uneval 的 S3 对象您是否不小心传递了@987654328 @ 到 data 参数？”
代码中的问题是您在pivot_longer(-c(Year)) 之后添加了+ 而不是%>%。改变它，它应该可以工作。

标签： r ggplotly

【解决方案1】：

你可以试试：

library(tidyverse)

clean_cheese <- read.csv('https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2019/2019-01-29/clean_cheese.csv')

line_3 <- clean_cheese %>%
  group_by(Year) %>%
  summarise(across(Cheddar:Blue, mean)) %>%
  pivot_longer(cols = -Year) %>%
  ggplot(aes(x = Year, y = value, color=name,group=name)) +
  geom_line() +
  facet_wrap(.~name,scales = 'free_y')

line_3

【讨论】：