blue
/
4Chan-Web-Scraper-v2
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update Difference Between Data Frame Observations by Day.R

This commit is contained in:
Lucky 2023-08-25 13:31:44 -03:00 committed by GitHub
parent 256236d2e2
commit 46b9eec0e5
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Difference Between Data Frame Observations by Day.R
View File

@ -10,7 +10,7 @@ library("tidyverse")
# Note: Other code is below to do an alternative method,
# but the uncommented method is superior.
#load CSVs using code.
# Load CSVs using code.
df1 <- read.csv("~/Documents/Stats/4Chan Scraper/Aug 24 2023 18:11:19.csv")
df2 <- read.csv("~/Documents/Stats/4Chan Scraper/Aug 25 2023 10:51:42.csv")
@ -22,7 +22,7 @@ df_merged$result <- df_merged$n.y - df_merged$n.x
# Feel free to add more "non-words," or "noise"
# Feel free to add more "non-words," or "noise,"
# to this list as you see fit.
df_difference_filter <- df_merged %>%
filter(!word == "de"
@ -46,7 +46,7 @@ df_difference_filter <- df_merged %>%
& !word == "bb"
& !word == "op")
# bar graph of difference
# Bar graph of difference
df_difference_filter %>%
top_n(40) %>%
mutate(word = reorder(word, result)) %>%
@ -60,7 +60,7 @@ df_difference_filter %>%
coord_flip()
#Assign CSV to data frame if loading in manually with the GUI/IDE.
# Assign CSV to data frame if loading in manually with the GUI/IDE.
# df1 <- `Aug.24.2023.18:11:19`
# df2 <- `Aug.25.2023.10:51:42`