The darker the color, the greater the relative inequality.
# 2005
p2005 <- plot_usmap(data = filter(mainstates, year == 2005),
values = "rrank",
color = "tomato3",
labels = TRUE,
label_color = "black") +
scale_fill_continuous(low = "yellow1",
high = "tomato1",
name = "State Ranking (2005)") +
theme(legend.position = "right") +
labs(title = "Gender Equality (Economic)",
subtitle = "made by Heeyoung (hlee25@albany.edu)",
size = "Magnitude")
p2005$layers[[2]]$aes_params$size <- 2
p2005
# 2006
p2006 <- plot_usmap(data = filter(mainstates, year == 2006),
values = "rrank",
color = "tomato3",
labels = TRUE,
label_color = "black") +
scale_fill_continuous(low = "yellow1",
high = "tomato1",
name = "State Ranking (2006)") +
theme(legend.position = "right") +
labs(title = "Gender Equality (Economic)",
subtitle = "made by Heeyoung (hlee25@albany.edu)",
size = "Magnitude")
p2006$layers[[2]]$aes_params$size <- 2
p2006
# 2007
p2007 <- plot_usmap(data = filter(mainstates, year == 2007),
values = "rrank",
color = "tomato3",
labels = TRUE,
label_color = "black") +
scale_fill_continuous(low = "yellow1",
high = "tomato1",
name = "State Ranking (2007)") +
theme(legend.position = "right") +
labs(title = "Gender Equality (Economic)",
subtitle = "made by Heeyoung (hlee25@albany.edu)",
size = "Magnitude")
p2007$layers[[2]]$aes_params$size <- 2
p2007
# 2008
p2008 <- plot_usmap(data = filter(mainstates, year == 2008),
values = "rrank",
color = "tomato3",
labels = TRUE,
label_color = "black") +
scale_fill_continuous(low = "yellow1",
high = "tomato1",
name = "State Ranking (2008)") +
theme(legend.position = "right") +
labs(title = "Gender Equality (Economic)",
subtitle = "made by Heeyoung (hlee25@albany.edu)",
size = "Magnitude")
p2008$layers[[2]]$aes_params$size <- 2
p2008
# 2009
p2009 <- plot_usmap(data = filter(mainstates, year == 2009),
values = "rrank",
color = "tomato3",
labels = TRUE,
label_color = "black") +
scale_fill_continuous(low = "yellow1",
high = "tomato1",
name = "State Ranking (2009)") +
theme(legend.position = "right") +
labs(title = "Gender Equality (Economic)",
subtitle = "made by Heeyoung (hlee25@albany.edu)",
size = "Magnitude")
p2009$layers[[2]]$aes_params$size <- 2
p2009
# 2010
p2010 <- plot_usmap(data = filter(mainstates, year == 2010),
values = "rrank",
color = "tomato3",
labels = TRUE,
label_color = "black") +
scale_fill_continuous(low = "yellow1",
high = "tomato1",
name = "State Ranking (2010)") +
theme(legend.position = "right") +
labs(title = "Gender Equality (Economic)",
subtitle = "made by Heeyoung (hlee25@albany.edu)",
size = "Magnitude")
p2010$layers[[2]]$aes_params$size <- 2
p2010
# 2011
p2011 <- plot_usmap(data = filter(mainstates, year == 2011),
values = "rrank",
color = "tomato3",
labels = TRUE,
label_color = "black") +
scale_fill_continuous(low = "yellow1",
high = "tomato1",
name = "State Ranking (2011)") +
theme(legend.position = "right") +
labs(title = "Gender Equality (Economic)",
subtitle = "made by Heeyoung (hlee25@albany.edu)",
size = "Magnitude")
p2011$layers[[2]]$aes_params$size <- 2
p2011
# 2012
p2012 <- plot_usmap(data = filter(mainstates, year == 2012),
values = "rrank",
color = "tomato3",
labels = TRUE,
label_color = "black") +
scale_fill_continuous(low = "yellow1",
high = "tomato1",
name = "State Ranking (2012)") +
theme(legend.position = "right") +
labs(title = "Gender Equality (Economic)",
subtitle = "made by Heeyoung (hlee25@albany.edu)",
size = "Magnitude")
p2012$layers[[2]]$aes_params$size <- 2
p2012
# 2013
p2013 <- plot_usmap(data = filter(mainstates, year == 2013),
values = "rrank",
color = "tomato3",
labels = TRUE,
label_color = "black") +
scale_fill_continuous(low = "yellow1",
high = "tomato1",
name = "State Ranking (2013)") +
theme(legend.position = "right") +
labs(title = "Gender Equality (Economic)",
subtitle = "made by Heeyoung (hlee25@albany.edu)",
size = "Magnitude")
p2013$layers[[2]]$aes_params$size <- 2
p2013
# 2014
p2014 <- plot_usmap(data = filter(mainstates, year == 2014),
values = "rrank",
color = "tomato3",
labels = TRUE,
label_color = "black") +
scale_fill_continuous(low = "yellow1",
high = "tomato1",
name = "State Ranking (2014)") +
theme(legend.position = "right") +
labs(title = "Gender Equality (Economic)",
subtitle = "made by Heeyoung (hlee25@albany.edu)",
size = "Magnitude")
p2014$layers[[2]]$aes_params$size <- 2
p2014
# 2015
p2015 <- plot_usmap(data = filter(mainstates, year == 2015),
values = "rrank",
color = "tomato3",
labels = TRUE,
label_color = "black") +
scale_fill_continuous(low = "yellow1",
high = "tomato1",
name = "State Ranking (2015)") +
theme(legend.position = "right") +
labs(title = "Gender Equality (Economic)",
subtitle = "made by Heeyoung (hlee25@albany.edu)",
size = "Magnitude")
p2015$layers[[2]]$aes_params$size <- 2
p2015
# 2016
p2016 <- plot_usmap(data = filter(mainstates, year == 2016),
values = "rrank",
color = "tomato3",
labels = TRUE,
label_color = "black") +
scale_fill_continuous(low = "yellow1",
high = "tomato1",
name = "State Ranking (2016)") +
theme(legend.position = "right") +
labs(title = "Gender Equality (Economic)",
subtitle = "made by Heeyoung (hlee25@albany.edu)",
size = "Magnitude")
p2016$layers[[2]]$aes_params$size <- 2
p2016
# 2017
p2017 <- plot_usmap(data = filter(mainstates, year == 2017),
values = "rrank",
color = "tomato3",
labels = TRUE,
label_color = "black") +
scale_fill_continuous(low = "yellow1",
high = "tomato1",
name = "State Ranking (2017)") +
theme(legend.position = "right") +
labs(title = "Gender Equality (Economic)",
subtitle = "made by Heeyoung (hlee25@albany.edu)",
size = "Magnitude")
p2017$layers[[2]]$aes_params$size <- 2
p2017
# 2018
p2018 <- plot_usmap(data = filter(mainstates, year == 2018),
values = "rrank",
color = "tomato3",
labels = TRUE,
label_color = "black") +
scale_fill_continuous(low = "yellow1",
high = "tomato1",
name = "State Ranking (2018)") +
theme(legend.position = "right") +
labs(title = "Gender Equality (Economic)",
subtitle = "made by Heeyoung (hlee25@albany.edu)",
size = "Magnitude")
p2018$layers[[2]]$aes_params$size <- 2
p2018
# 2019
p2019 <- plot_usmap(data = filter(mainstates, year == 2019),
values = "rrank",
color = "tomato3",
labels = TRUE,
label_color = "black") +
scale_fill_continuous(low = "yellow1",
high = "tomato1",
name = "State Ranking (2019)") +
theme(legend.position = "right") +
labs(title = "Gender Equality (Economic)",
subtitle = "made by Heeyoung (hlee25@albany.edu)",
size = "Magnitude")
p2019$layers[[2]]$aes_params$size <- 2
p2019
# 2021
p2021 <- plot_usmap(data = filter(mainstates, year == 2021),
values = "rrank",
color = "tomato3",
labels = TRUE,
label_color = "black") +
scale_fill_continuous(low = "yellow1",
high = "tomato1",
name = "State Ranking (2021)") +
theme(legend.position = "right") +
labs(title = "Gender Equality (Economic)",
subtitle = "made by Heeyoung (hlee25@albany.edu)",
size = "Magnitude")
p2021$layers[[2]]$aes_params$size <- 2
p2021
