Question 1
imf_growth <- read.csv(url('https://bcdanl.github.io/data/imf_growth_quarterly.csv'))
theme_set(theme_bw())
# install.packages("ggiraph")
# Question 1
anim <- ggplot(imf_growth, aes(x=reorder(country, -gy), y=gy, fill = country)) +
geom_col() + coord_flip() + geom_tile() + transition_states(qt, transition_length = 1)
anim
# animate(anim, 100, fps = 6, width = 1200, height = 800,
# renderer = gifski_renderer())
climate_opinion <- read.csv(
'https://bcdanl.github.io/data/climate_opinion_2021.csv')
county_map <- county_map
climate_opinion <- climate_opinion %>% filter(belief == "human")
class(climate_opinion$id)
## [1] "integer"
class(county_map$id)
## [1] "numeric"
climate_opinion <- climate_opinion %>% mutate(id = as.numeric(id))
county_map <- county_map %>% mutate(id = as.numeric(id))
climate_opinion_full <- left_join(climate_opinion, county_map, by = 'id')
g <- ggplot(climate_opinion_full, aes(long, lat, fill = perc, group = group, text = GeoName)) +
geom_polygon(color = "gray70", size = .05) +
coord_equal()
# g
g2 <- g + scale_fill_gradient2(
low = "2E74C0",
mid = "white",
high = "#CB4541",
na.value = "grey50",
midpoint = 50)
#
# g2
#
map_interactive <- ggplotly(g2)
map_interactive
# save the widget
# library(htmlwidgets)
# saveWidget(map_interactive, file=paste0( getwd(), "climate_map_interactive.html"))