SSIAT 2025 - LRTZ

Aplicamos un análisis grafico preliminar de una serie de tiempo determinística no estacionaria del M2 en EEUU

Diferencia de salarios con perspectiva de género, feminzación de la pobreza en los ámbitos urbanos y rurales

lrgv_23_grandparents <- get_acs(geography = "tract", county = c("Cameron"), table = "S1002", state = "TX", year = 2023, survey = "acs5", geometry = TRUE) %>% left_join(., all_acs_vars, by = c("variable"="name")) %>% separate_wider_delim(., cols = "label", delim = "!!", names_sep="", too_few = "align_start") lrgv_23_grandparents %>% filter(variable == "S1002_C01_001") %>% st_as_sf(.) %>% tm_shape(.) + tm_polygons(col = c("estimate"), popup.vars = c("Name" = "label3", "NAME", "Estimate"="estimate"), alpha = 0.5, style = "jenks") + tm_basemap("OpenStreetMap")

lrgv_23_grandparents <- get_acs(geography = "tract", county = c("Cameron"), table = "S1002", state = "TX", year = 2023, survey = "acs5", geometry = TRUE) %>% left_join(., all_acs_vars, by = c("variable"="name")) %>% separate_wider_delim(., cols = "label", delim = "!!", names_sep="", too_few = "align_start") custom_Bville<- read_sf(dsn = "C:/Users/daniel.pinon/Downloads/my_custom_brownsville_shape/map.geojson") %>% as.data.frame(.) %>% mutate(location = c("inner_Brownsville", "outer_Brownsville")) %>% st_as_sf(.) %>% st_transform(., crs = 4269) lrgv_23_grandparents %>% filter(variable == "S1002_C01_001") %>% st_as_sf(.) %>% st_intersection(., st_buffer(cam_places %>% filter(NAME == "Brownsville"), dist = 10)) %>% tm_shape(.) + tm_polygons(col = c("estimate"), popup.vars = c("Name" = "label3", "NAME", "Estimate"="estimate"), alpha = 0.5, style = "jenks") + tm_basemap("OpenStreetMap")

lrgv_23_grandparents <- get_acs(geography = "tract", county = c("Cameron"), table = "S1002", state = "TX", year = 2023, survey = "acs5", geometry = TRUE) %>% left_join(., all_acs_vars, by = c("variable"="name")) %>% separate_wider_delim(., cols = "label", delim = "!!", names_sep="", too_few = "align_start") custom_Bville<- read_sf(dsn = "C:/Users/daniel.pinon/Downloads/my_custom_brownsville_shape/map.geojson") %>% as.data.frame(.) %>% mutate(location = c("inner_Brownsville", "outer_Brownsville")) %>% st_as_sf(.) %>% st_transform(., crs = 4269) lrgv_23_grandparents %>% filter(variable == "S1002_C01_001") %>% st_as_sf(.) %>% st_intersection(., st_buffer(st_union(custom_Bville), dist = 10)) %>% tm_shape(.) + tm_polygons(col = c("estimate"), popup.vars = c("Name" = "label3", "NAME", "Estimate"="estimate"), alpha = 0.5, style = "jenks") + tm_basemap("OpenStreetMap")