Добавление переменной времени в ggplot

Question

Я пытаюсь получить столбец столбца, который показывает показатель NPS по бренду по году.

Мои данные.frame = nps и переменными являются nps $ NPS.survey, nps $ brand, nps $ Review, дата

загружаю

library(lubridate)
library(ggplot2)
library(NPS)
library(NPS)

Я создаю

nps$year <- as.factor(year(nps$Response.Date))

yearly <- aggregate(nps$NPS.Survey, list(nps$year), FUN = nps, 
nps$NPS.Survey)

brand <- aggregate(nps$NPS.Survey, list(nps$Brand), FUN = nps, 
nps$NPS.Survey)

Ниже приведена гистограмма, показывающая NPS по годам для всех данных

ggplot(yearly) +
  geom_col(aes(x=as.factor(Group.1), y=x, fill=as.factor(Group.1)), 
  width=0.5) +

  xlab("Year") + 
  ylab("NPS") + 

  geom_text(aes(x=as.factor(Group.1), y=x, label=round(x,2)),  vjust = 1, 
  hjust = 1)  +
  coord_flip()  + 
  scale_fill_brewer("Year", palette = "Set1") 

Это дает мне NPS по бренду, причем каждый столбец является брендом

ggplot(brand) +
  geom_col(aes(x=as.factor(Group.1), y=x, fill=as.factor(Group.1)), 
  width=0.5) +

  xlab("Brand") + 
  ylab("NPS") + 

  geom_text(aes(x=as.factor(Group.1), y=x, label=round(x,2)),  vjust = 1, 
  hjust = 1)  +
  coord_flip()  + 
  scale_fill_brewer("Year", palette = "Set1") 

Я хочу показывать NPS по маркам по годам.

Любая помощь будет высоко ценится.