This is the work done for the Week 5 Lab of Dr. Blake’s JOUR 3841 (Data Skills for Media Professionals) Course.
if(!require(tidyverse))install.packages("tidyverse")
library(tidyverse)
mydata <- read.csv("https://drkblake.com/wp-content/uploads/2024/02/AgeData.csv")
mydata <- mydata %>%
mutate(Change = Under18_2022 - Under18_2017)
mydata <- mydata %>%
mutate(Direction = case_when(Change < 0 ~ "Loss",
Change == 0 ~ "No change",
Change > 0 ~ "Gain",
.default = "Error"))
head(mydata, 10)## GEOID County Under18_2017 Under18_2022 Significance
## 1 47001 Anderson County, Tennessee 15963 16413 Significant
## 2 47003 Bedford County, Tennessee 12068 12669 Significant
## 3 47005 Benton County, Tennessee 3209 3112 Nonsignificant
## 4 47007 Bledsoe County, Tennessee 2380 2428 Nonsignificant
## 5 47009 Blount County, Tennessee 26568 26988 Significant
## 6 47011 Bradley County, Tennessee 23210 23576 Significant
## 7 47013 Campbell County, Tennessee 8130 8091 Nonsignificant
## 8 47015 Cannon County, Tennessee 2957 3099 Significant
## 9 47017 Carroll County, Tennessee 6004 6173 Significant
## 10 47019 Carter County, Tennessee 10840 10157 Significant
## Change Direction
## 1 450 Gain
## 2 601 Gain
## 3 -97 Loss
## 4 48 Gain
## 5 420 Gain
## 6 366 Gain
## 7 -39 Loss
## 8 142 Gain
## 9 169 Gain
## 10 -683 Loss