Хорошо, я пытаюсь отбиться от своего собственного воображения, от темного видения разложившихся композиторов ... Однако, если сезон означает год , и декомпозиция означает сводку популярности композитора за год, используя ваши данные , это можно сделать следующим образом:
library(tidyverse)
library(lubridate)
library(ggthemes)
read_csv("test2.csv") %>%
mutate(date = ymd(paste(month,"-01", sep="")), month = NULL) %>%
mutate(season = cut(date, "year")) %>%
group_by(season, composer) %>%
summarise(popularity = mean(popularity)) %>%
ggplot(aes(x = year(season), y = popularity, group = composer, colour = composer)) +
geom_line(alpha = 0.75) +
ggthemes::scale_colour_gdocs(name = "Composer:") + # comment out this line
labs(x = "Season", y = "Popularity") +
ggthemes::theme_few() # comment out this line