Create word by time series

scripts/word by time series

@@ -0,0 +1,18 @@
+# Prototype. I know it's shit.
+library("ggplot2")
+library("tidyverse")
+
+data3 <- Sep_27_2023_06_01_19_PM %>% head(10)
+data4 <- Sep_28_2023_06_01_20_PM %>% head(10)
+data5 <- Sep_29_2023_06_01_17_PM %>% head(10)
+data6 <- Sep_30_2023_06_01_15_PM %>% head(10)
+
+
+data1 <- rbind(data3, data4, data5, data6)
+data1
+data2 <- data1 %>% 
+  top_n(20) 
+
+
+ggplot(data1, aes(x=date, y=n, color=word)) +
+  geom_line()