Отфильтровать список биграмм из кадра данных

Question

Я нашел способ выполнить то, что хотел, поэтому я пересматриваю свой первоначальный текст.Мое решение работает, но это далеко не элегантный и не самый эффективный способ решения проблемы.То, что я хотел бы знать сейчас, - это более чистый и короткий путь, который использует меньше строк кода для выполнения моих желаемых задач.Единственное, что я сейчас не могу понять, это как получить столбец даты в моем ggplot для отображения более подробной информации.Мои данные имеют метки с 2014-2-2 по 2014-12-02.На моем ggplot отображаются только «апрель», «июль» и «октябрь».Я бы хотел, чтобы на оси х было больше дат.Вот мой текущий подход вместе с образцом конечного фрейма данных:

selectedRows <- feedback[grep("top shelf", feedback$product), ]
selectedRows$keyword <- "top shelf"
selectedRows2 <- feedback[grep("silver haze", feedback$product), ]
selectedRows2$keyword <- "silver haze"
selectedRows3 <- feedback[grep("grade aaaa", feedback$product), ]
selectedRows3$keyword <- "grade aaaa"
selectedRows4 <- feedback[grep("top quality", feedback$product), ]
selectedRows4$keyword <- "top quality"
selectedRows5 <- feedback[grep("Purple Fruity", feedback$product), ]
selectedRows5$keyword <- "Purple Fruity"
selectedRows6 <- feedback[grep("highest grade", feedback$product), ]
selectedRows6$keyword <- "highest grade"
selectedRows7 <- feedback[grep("High quality", feedback$product), ]
selectedRows7$keyword <- "High quality"
selectedRows8 <- feedback[grep("free sample", feedback$product), ]
selectedRows8$keyword <- "free sample"
selectedRows9 <- feedback[grep("Exodus Cheese", feedback$product), ]
selectedRows9$keyword <- "Exodus Cheese"
selectedRows10 <- feedback[grep("limited time", feedback$product), ]
selectedRows10$keyword <- "limited time"
RAKE_keywords <- rbind(selectedRows, 
selectedRows2,selectedRows3,selectedRows4,
                   selectedRows5,selectedRows6,selectedRows7,selectedRows8,
                   selectedRows9,selectedRows10)


RAKE_keywords$date <- as.Date(RAKE_keywords$date, format = "%m/%d/%Y")
Date = ts(RAKE_keywords$keyword,c(2014,02),c(2017,12),1)

ggplot(data=RAKE_keywords,
   aes(x=date,y=keyword,fill=keyword)) +
  geom_tile()

head(RAKE_keywords)

   date           vendor      keyword   
2014-04-26 Charlie_Bartlett  top shelf
2014-09-22        KushDepot  top shelf
2014-05-06 Charlie_Bartlett  top shelf
2014-05-06 Charlie_Bartlett  top shelf
2014-10-06        KushDepot  top shelf
2014-02-02 Charlie_Bartlett  top shelf

Пример вывода ggplot конечного фрейма данных