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

Question

我是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)

Answer 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