Week 2 Homework - Chaitanya Prashant

Problem to be solved

There is a hypothetical situation where I can only move to 5 states between California, Texas, New York, Florida, and Illinois. The reason for this move is that these states are closest to financial service industries, something that is a heuristic for my family since we are all working in the industry. Another key data point we are considering is the state’s overall attainment of education, that is, the percentage of citizens who have attained a bachelor’s degree or higher. This is a heuristic for proximity and number of potential financial service and white collar jobs, since most of these jobs do require at least a bachelor’s degree for qualification. I want to optimize for states that have a bachelor’s attainment of at least 35 percent.

Dataset

US Census Bureau - Educational attainment 
https://data.census.gov/table/ACSST1Y2021.S1501?q=S1501&g=010XX00US$0400000&moe=false&tp=false&tid=ACSST1Y2021.S1501 

Principles (Design)

• Good design should be understandable, unobtrusive, and as minimal as possible. To achieve these goals, I have implemented a bar chart visualization, whilst using color to note that a heuristic I care about (> 35 percent bachelor’s degree attainment) should be met. To make it more perceptible, we utilize color to create an impact right away, and help the user interpret the states that meet the heuristic.

edu_attainment <- data.frame(
  State = c("California", "Texas", "New York", "Florida", "Illinois"),
  Bachelor_Percent = c(36.19, 33.12, 40.90, 33.16, 37.14)
)
# color coding
edu_attainment$Color = ifelse(edu_attainment$Bachelor_Percent > 35, "green", "red")
edu_attainment$Color = as.factor(edu_attainment$Color)

# Ordering states by Bachelor_Percent
edu_attainment$State <- factor(edu_attainment$State, levels = edu_attainment$State[order(edu_attainment$Bachelor_Percent, decreasing = TRUE)])

# Plot
library(ggplot2)
ggplot(data = edu_attainment, aes(x = State, y = Bachelor_Percent, fill = Color)) +
  geom_bar(stat = "identity") +
  scale_fill_manual(values = c("green" = "green", "red" = "red")) + 
  theme_minimal() +
  labs(title = "College Educational Attainment by State (Ordered)",
       x = "State",
       y = "Percent of Bachelor Degrees Attained") +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  guides(fill=FALSE) # Remove legend for color

  geom_hline(yintercept = 35, color = "red", linetype = "dashed", size = 1) # Add red dashed line at 35%

Warning: Using `size` aesthetic for lines was deprecated in ggplot2 3.4.0.
Please use `linewidth` instead.

mapping: yintercept = ~yintercept 
geom_hline: na.rm = FALSE
stat_identity: na.rm = FALSE
position_identity