R 收集平均值并合并多个折线图

我是R的新手，我希望在这方面能得到一些帮助。我正在使用此数据集：

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

以下是我的代码和我到目前为止所拥有的内容。我是新手，所以这对一些人来说可能很可怕

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)

line_3%
选择（年份、切达干酪、马苏里拉干酪、`American Other`、`Italian Other`、Swiss、Muenster、Blue））%>%
组别(年份)%>%
总结（平均切达干酪=平均值（切达干酪），平均莫扎里拉干酪=平均值（莫扎里拉干酪），平均美国干酪=平均值（`american other`），平均意大利干酪=平均值（`Italian other`），平均瑞士干酪=平均值（瑞士干酪），平均明斯特干酪=平均值（明斯特干酪），平均蓝色=平均值（蓝色））%>
枢轴_更长（-c（年））+
ggplot（aes（x=年，y=值，颜色=名称，组=名称））+
geom_线（）+
镶嵌面包裹（.~name，scales='free_y'）
ggplotly（第3行）

您可以尝试：

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

库（tidyverse）
清洁奶酪%
总结（横穿（切达：蓝色，平均值））%>%
透视时间更长（cols=-年）%>%
ggplot（aes（x=年，y=值，颜色=名称，组=名称））+
geom_线（）+
镶嵌面包裹（.~name，scales='free_y'）
第3行

---

是否要在同一个图表中显示它们？如果是这种情况，只需从代码中删除行

facet\u wrap（.~name，scales='free\u y'）

。如果没有，你到底想做什么？@JoaoPedroMacalos是的，我正试图在同一个图表中显示它们！但是，删除

刻面_-wrap

没有帮助：（奇怪。它在我的机器上工作。别忘了在

geom_line（）

之后删除加号。@JoaoPedroMacalos这是我得到的错误“错误：

data

必须是一个数据帧，或者是其他可由

fortify（）

强制的对象，而不是类为uneval的S3对象。你是否意外通过了

aes（）

到

数据

参数？“代码中的问题是，在

透视时间延长（-c（年））

之后，您添加了

+

而不是

%

。更改此选项，它应该会起作用。