R Markdown
social_media <- read.csv("social_media_engagement1.csv")
head(social_media)
## post_id platform post_type post_time likes comments shares post_day
## 1 1 Facebook image 8/17/2023 14:45 2121 474 628 Thursday
## 2 2 Facebook carousel 5/14/2023 0:45 3660 432 694 Sunday
## 3 3 Instagram poll 2/21/2023 16:15 4955 408 688 Tuesday
## 4 4 Twitter image 11/16/2023 0:45 1183 90 187 Thursday
## 5 5 Twitter video 5/23/2023 0:30 3499 247 286 Tuesday
## 6 6 Instagram carousel 5/5/2023 20:00 256 186 211 Friday
## sentiment_score
## 1 positive
## 2 neutral
## 3 negative
## 4 negative
## 5 positive
## 6 neutral
summary(social_media)
## post_id platform post_type post_time
## Min. : 1.00 Length :100 Length :100 Length :100
## 1st Qu.: 25.75 N.unique : 3 N.unique : 5 N.unique : 99
## Median : 50.50 N.blank : 0 N.blank : 0 N.blank : 0
## Mean : 50.50 Min.nchar: 7 Min.nchar: 4 Min.nchar: 13
## 3rd Qu.: 75.25 Max.nchar: 9 Max.nchar: 8 Max.nchar: 16
## Max. :100.00
## likes comments shares post_day
## Min. : 15.0 Min. : 10.00 Min. : 16.0 Length :100
## 1st Qu.: 895.8 1st Qu.: 89.75 1st Qu.:183.0 N.unique : 7
## Median :2220.0 Median :171.00 Median :356.5 N.blank : 0
## Mean :2381.8 Mean :202.66 Mean :415.6 Min.nchar: 6
## 3rd Qu.:3593.2 3rd Qu.:299.00 3rd Qu.:689.5 Max.nchar: 9
## Max. :5000.0 Max. :500.00 Max. :993.0
## sentiment_score
## Length :100
## N.unique : 3
## N.blank : 0
## Min.nchar: 7
## Max.nchar: 8
##
library(ggplot2)
ggplot(social_media, aes(x = platform, y = likes)) +
geom_point() +
ggtitle("Social Media Engagement")
ggplot(social_media, aes(x = platform, y = likes)) +
geom_boxplot() +
labs(
title = "Social Media Engagement",
x = "Platform",
y = "Likes",
) +
theme_minimal()
