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

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

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

Gathering the Averages and Combining multiple Line Graphs

r

ggplotly