Open freyakeyser opened 2 years ago
reprex code:
source(paste0(direct_fns, "/Maps/github_spatial_import.R")) offshore <- github_spatial_import(subfolder = "offshore", zipname = "offshore.zip", quiet=T) surv.polyset <- github_spatial_import(subfolder="offshore_survey_strata", "offshore_survey_strata.zip", direct_fns=direct_fns, quiet=T)
require(plotly) ggplotly(ggplot() + geom_sf(data=offshore[offshore$ID %in% c("GBa", "GBb"),])+ geom_point(data=NULL, aes(x=-66.21633173, y=41.962685)))
ggplot() + geomsf(data=surv.polyset[surv.polyset$ID %in% c("GBa"),])+ geom_point(data=industryreport, aes(x=-66.21633173, y=41.962685)) + coord_sf(xlim=c(-66.23, -66.2), ylim=c(41.96, 41.97))
ggplot() + geomsf(data=surv.polyset[surv.polyset$ID %in% c("GBb"),])+ geom_point(data=industryreport, aes(x=-66.21633173, y=41.962685)) + coord_sf(xlim=c(-66.23, -66.2), ylim=c(41.96, 41.97))
For eventual GB framework