我想出了一种方法来完成我想做的事情，所以我正在修改原始文本。我的解决方案有效，但是它远非优雅或解决问题的最有效方法。我现在想知道的是一种更清洁，更短的方法，它使用较少的代码行来完成所需的任务。我现在唯一不知道的事情是如何在ggplot中获取日期列以显示更多详细信息。我的数据具有2014年2月2日至2014年12月2日之间的日期戳。在我的ggplot上，它仅显示“ Apr”，“ Jul”和“ Oct”。我希望X轴上有更多日期。这是我目前的方法以及最终数据帧的示例：
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
