portfolio 3

library(tidyverse)
library(tsibble)
library(lubridate)
library(feasts)

wages2 <- wages %>% 
  filter(Year == 2020)
wages2 <- rename(wages2, "STATE" = "State")

df <- merge(wages2,population,by="STATE")

all_states <- map_data("state")
p <- ggplot() + geom_polygon(data=all_states, aes(x=long, y=lat, group = group))
p <- p+ geom_point(data=df, aes(x=long, y=lat, size = State.Minimum.Wage, color = State.Minimum.Wage)) + coord_fixed(1.3)+ 
  theme(legend.title = element_text( size=10), legend.text=element_text(size=5), legend.position = "none") + 
  guides(shape = guide_legend(override.aes = list(size = 1))) +
  labs(title = "2020 Minimum Wage Across the US")
p

wages3 <- wages %>% 
  filter(State == "California")

ggplot(wages3) +
  geom_line(aes(x = Year, y = State.Minimum.Wage, col = State)) + 
  labs(title = "California Minimum Wage 1968 - 2020") +
  ylab("Minimum Wage") + 
  scale_y_continuous(breaks=seq(0,14,by=1))+ 
  theme(legend.position = "none")