Facebook1.R

library(readr)

## Warning: package 'readr' was built under R version 4.3.2

Facebook_1_ <- read_csv("Facebook (1).csv")

## Rows: 495 Columns: 15
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr  (2): Type, Category
## dbl (13): Paid, LifetimePostTotalReach, LifetimePostTotalImpressions, Lifeti...
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

data <- Facebook_1_
View(data)

# Create a scatter plot for LifetimeEngagedUsers and TotalInteractions
plot(data$LifetimePeopleEngaged, data$TotalInteractions, 
     xlab = "Lifetime Engaged Users", ylab = "Total Interactions",
     main = "Scatter Plot of Lifetime Engaged Users vs. Total Interactions")