UE_house_prices_wizualizacja/projekt_2_second attempt.R

63 lines
1.7 KiB
R
Raw Normal View History

2023-05-30 17:43:47 +02:00
library(tidyverse)
library(eurostat)
# install.packages("ggthemes")
library(leaflet)
library(sf)
library(scales)
library(cowplot)
library(ggthemes)
library(RColorBrewer)
map_df = read.csv(".//data//compound_interest_housing.csv")
map_df
SHP_0 <- get_eurostat_geospatial(resolution = 10,
nuts_level = 0,
year = 2016)
SHP_0 %>%
ggplot() +
geom_sf()
EU28 <- eu_countries %>%
select(geo = code, name)
SHP_28 <- SHP_0 %>%
select(geo = NUTS_ID, geometry) %>%
inner_join(EU28, by = "geo") %>%
arrange(geo) %>%
st_as_sf()
SHP_28 %>%
ggplot() +
geom_sf() +
scale_x_continuous(limits = c(-10, 35)) +
scale_y_continuous(limits = c(35, 65))
mapdata_new <- left_join(SHP_28, map_df, by="geo", relationship = "many-to-many")
# Create a continuous palette function
pal <- colorQuantile("Blues", mapdata_new$substr_house_prices_wo_hicp, n = 9)
popup_content <- paste0( "Country_information_box: "
, mapdata_new$name
, "<br>"
, "<a href='"
, mapdata_new$name
, "' target='_blank'>"
, "Click Here</a>")
leaflet() %>%
addProviderTiles(providers$CartoDB.Positron) %>%
addPolygons(data=mapdata_new,
fillOpacity = 0.6, # Przezroczystość
stroke = TRUE, # Borders visible
color = "grey", # Border color
weight = 1,
fillColor = ~pal(mapdata_new$substr_house_prices_wo_hicp),
popup = popup_content,
popupOptions = popupOptions(maxWidth ="600px", closeOnClick = TRUE),
)