library(httr)library(jsonlite)# Url base del servio API del Censourl <-"https://www.ine.es/Censo2021/api"# Consulta a la base de datosconsulta <-'{"idioma":"ES", "metrica":["SPERSONAS"], "tabla":"per.ppal", "variables": ["ID_RESIDENCIA_N1", "ID_NACIONALIDAD_N1", "ID_SEXO", "ID_GRAN_GRUPO_EDAD"] }'# Llamada a la API utilizando método POSTresponse <- httr::VERB("POST", url, body = consulta, content_type("application/json"),accept("application/json"),encode ="json")# Obtenemos el contenido de la respuesta, que contiene tanto los datos como los metadatoscontenido <-content(response, "text")# La cadena de texto internamente es un jsoncontenido <- jsonlite::fromJSON(contenido)# Data frame con los datosdatos <- contenido$datahead(datos)
ID_NACIONALIDAD_N1 ID_GRAN_GRUPO_EDAD SPERSONAS ID_RESIDENCIA_N1 ID_SEXO
1 Española Menos de 16 659244 Andalucía Hombre
2 Española Menos de 16 622623 Andalucía Mujer
3 Española 16-64 2548791 Andalucía Hombre
4 Española 16-64 2527140 Andalucía Mujer
5 Española 65 o más 613989 Andalucía Hombre
6 Española 65 o más 799617 Andalucía Mujer
Número de miembros de 16 a 64 años que están trabajando (ID_ACTI_HOG_1)
library(httr)library(jsonlite)# Url base del servio API del Censourl <-"https://www.ine.es/Censo2021/api"# Consulta a la base de datosconsulta <-'{"idioma":"ES", "metrica":["SHOGARES"], "tabla":"hog", "variables": ["ID_RESIDENCIA_N1", "ID_TAM_HOG_6", "ID_ACTI_HOG_1" ] }'# Llamada a la API utilizando método POSTresponse <- httr::VERB("POST", url, body = consulta, content_type("application/json"),accept("application/json"),encode ="json")# Obtenemos el contenido de la respuesta, que contiene tanto los datos como los metadatoscontenido <-content(response, "text")# La cadena de texto internamente es un jsoncontenido <- jsonlite::fromJSON(contenido)# Data frame con los datosdatos <- contenido$datahead(datos)
library(httr)library(jsonlite)# Url base del servio API del Censourl <-"https://www.ine.es/Censo2021/api"# Consulta a la base de datosconsulta <-'{"idioma":"ES", "metrica":["SVIVIENDAS"], "tabla":"viv.fam", "variables": ["ID_RESIDENCIA_N1", "ID_TENEN_VIV"] }'# Llamada a la API utilizando método POSTresponse <- httr::VERB("POST", url, body = consulta, content_type("application/json"),accept("application/json"),encode ="json")# Obtenemos el contenido de la respuesta, que contiene tanto los datos como los metadatoscontenido <-content(response, "text")# La cadena de texto internamente es un jsoncontenido <- jsonlite::fromJSON(contenido)# Data frame con los datosdatos <- contenido$datahead(datos)
SVIVIENDAS ID_RESIDENCIA_N1 ID_TENEN_VIV
1 1431876 Andalucía No aplicable por ser vivienda no principal
2 2568495 Andalucía En propiedad
3 368277 Andalucía En alquiler
4 304356 Andalucía Otro régimen de tenencia
5 1866 Andalucía No consta
6 301128 Aragón No aplicable por ser vivienda no principal