From 4afd18a55803f443e626847929282aedddfe7498 Mon Sep 17 00:00:00 2001
From: Lucky <66523959+l-ucky@users.noreply.github.com>
Date: Thu, 30 Nov 2023 23:51:31 -0400
Subject: [PATCH] Create word by time series

---
 scripts/word by time series | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 scripts/word by time series

diff --git a/scripts/word by time series b/scripts/word by time series
new file mode 100644
index 0000000..49b4051
--- /dev/null
+++ b/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()