Jigsaw Bot Analytics

Jigsaw_Tracker <-read.csv("C:/Users/JG/Desktop/Jigsaw Bot Automation/tinder_bot/tracker.csv")
Jigsaw_Tracker
summary(Jigsaw_Tracker)

Swipe Left

library(ggplot2) 
ggplot(data = Jigsaw_Tracker, aes(y = Swiped.Left, x = Total.Swiped)) + geom_point() + geom_smooth(method = "lm")

Swiped_Left

Swipe Right

library(ggplot2) 
ggplot(data = Jigsaw_Tracker, aes(y = Swiped.Right, x = Total.Swiped)) + geom_point() + geom_smooth(method = "lm")

Swiped_Right