Brandwatch data sample

Hi, Maritza:

Copying and running the code below will show you the data available from Brandwatch for the two recruits to focused on.

if (!require("tidyverse"))
  install.packages("tidyverse")

library(tidyverse)

mydata <- read.csv("https://raw.githubusercontent.com/drkblake/Data/refs/heads/main/Maritza%20test%20query.csv",
                   skip=6)

ColumnNames <- as.data.frame(colnames(mydata))

KeptData <- select(mydata,
                   Date,
                   Url,
                   Author,
                   Full.Text,
                   X.Replies,
                   X.Reposts,
                   X.Likes,
                   Reach..new.)

#Formatting "Date" as POSIXct object

KeptData$Date <- as.POSIXct(KeptData$Date, tz = "America/Chicago")

#Sorting by Date

KeptData <- arrange(KeptData,Author, Date)

write.csv(KeptData, "KeptData.csv")