8 Otras importaciones

8.1 Importación multiple con {rio}

library(rio)

bce_serie <- bind_rows(
  import_list(file= "data/eea_serie.xls"),
  .id = "year")

bce_serie

8.2 Desde googlesheets

Importemos “soja”

url_soja <- "https://docs.google.com/spreadsheets/d/1c_FXVNkkj4LD8hVUForaaI24UhRauh_tWsy7sFRSM2k/edit#gid=1579441844"
browseURL(url_data)

soja <- rio::import(url_soja) %>% 
  clean_names()
soja

8.3 API de Nasapower

Meteo de Balcarce durante 2020

pacman::p_load(nasapower)

bce_rad_2018 <- get_power(
  community = "AG",
  lonlat =  c(-58.3, -37.75),
  pars = c("ALLSKY_SFC_SW_DWN"),
  dates = c("2018-1-1", "2018-12-30"),
  temporal_api = "daily"
) 
bce_rad_2018

Clima de Balcarce

bce_clima <- get_power(
  community = "ag",
  pars = c("RH2M", "T2M", "ALLSKY_SFC_SW_DWN"),
  lonlat = c(-58.3, -37.75),
  temporal_api = "climatology"
)
bce_clima

Comparamos la estacion meteorologica de la EEA con los datos de nasapower

bce_full %>% 
  left_join(bce_rad_2018, 
            by = c("date" = "YYYYMMDD")) -> bce_full_nasa

bce_full_nasa %>% 
  ggplot() + 
  aes(x=rad, y=ALLSKY_SFC_SW_DWN) + 
  geom_point() + 
  geom_smooth(method="lm")

8.4 Exportar

export(bce_full_nasa, file="data/bce_wea_2018.xlsx")