#i Created the dataset based on my screen time data in the phone
screen_time_data <- data.frame(
Week = c(40, 41, 42, 43),
Week_Date = c("28 Sep - 4 Oct", "5 Oct - 11 Oct", "12 Oct - 18 Oct", "19 Oct - 25 Oct"),
Total_Screen_Time_Minutes = c(27*60 + 1, 50*60 + 43, 49*60 + 3, 53*60 + 38),
Daily_Average_Minutes = c(6*60 + 45, 7*60 + 14, 7*60 + 0, 7*60 + 39),
Instagram_Minutes = c(NA, 29*60 + 28, NA, 32*60 + 16),
WhatsApp_Minutes = c(NA, 5*60 + 23, NA, 5*60 + 55),
YouTube_Minutes = c(NA, 4*60 + 23, NA, NA),
Chrome_Minutes = c(NA, NA, NA, 3*60 + 48),
Social_Category_Minutes = c(NA, NA, NA, 44*60 + 30)
)
# Calculate additional metrics
screen_time_data$Total_Hours <- round(screen_time_data$Total_Screen_Time_Minutes / 60, 1)
screen_time_data$Daily_Hours <- round(screen_time_data$Daily_Average_Minutes / 60, 1)
# Save the dataset
write.csv(screen_time_data, "my_actual_screen_time.csv", row.names = FALSE)
#importing all libraries required
library(ggplot2)
library(dplyr)
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
library(tidyr)
library(scales)
library(lubridate)
##
## Attaching package: 'lubridate'
## The following objects are masked from 'package:base':
##
## date, intersect, setdiff, union
knitr::opts_chunk$set(echo = FALSE, warning = FALSE, message = FALSE)
# Read the actual data
my_data <- read.csv("my_actual_screen_time.csv")
#simple graph about my screen time explosion how it went up in these four weeks.
# I
observed that these is A 98 % percentage increase in 4 weeks
#i tried to undersatand what made me so addicted to my phone screen
# I found the culprit . that is instagram!!. i wasted all my time on
instagram.
#Instagram alone consumed instagram_week 43 hours** in Week 43 of my entire screen time!
these are the hours per day i spent in a week
#My phone time rivaled both sleep and my work. my balance was completely
broken de to that.
Instagram wasn’t alone - it had accomplices like whats app and chrome.
#Bar graph
#72.5% of my social media time was just Instagram .the algorithm had me
completely hooked
Instagram consumed more than any app in most of the hours/week of my life
My screen time almost doubled in one month from 27h to→ 54h
60% of all app usage was just one platform and that was insta.
Instagram Limit:i will use only 1 hour/day maximum that will be 7h/week - 78% reduction
Digital Curfew: No phone usage after 10 PM
App Blocking: restrict the Use by using rest mode during study hours
Weeklyatatus check: 15-minute screen time review every Sunday
Replacement Activities: Read physical books during previous scroll time