knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
library(LAGOSUSgis)
library(sf)
library(ggplot2)

res_iws  <- query_gis("ws", "lagoslakeid", c(34352))
res_lake <- query_gis("LAGOS_US_All_Lakes_1ha", "lagoslakeid", 34352)
res_pnt  <- query_gis("LAGOS_US_All_Lakes_1ha_POINTS", "lagoslakeid", 34352)

ggplot() +
  geom_sf(data = res_iws, color = "darkgreen") +
  geom_sf(data = res_lake, color = "yellow") +
  geom_sf(data = res_pnt, color = "blue")
library(LAGOSUSgis)
library(sf)
library(ggplot2)

ggplot() +
  geom_sf(data = gis_34352$res_iws, color = "darkgreen") +
  geom_sf(data = gis_34352$res_lake, color = "yellow") +
  geom_sf(data = gis_34352$res_pnt, color = "blue")


cont-limno/LAGOSUSgis documentation built on Aug. 4, 2021, 5:14 p.m.