Description Usage Arguments Value See Also Examples
subset.prettyUsgs
subsets prettyUsgs objects and retains their
attributes.
1 2 |
prettyUsgs |
A dataframe of class |
... |
additional arguments to subset.data.frame |
A dataframe of class c("prettyUsgs", "data.frame") # See vignette "Collect USGS stream observations and build a local database" for examples.
Other streamObs: FindUsgsStns
,
GetSiteHuc
, GetUsgsHucData
,
GetUsgsIvProduct
,
ImproveHucMeta
, LoadMetaDB
,
PlotPrettyUsgs
, PrettyUsgs
,
QueryHaveSite
, QuerySiteData
,
QuerySiteInfo
, QuerySiteName
,
QuerySiteProd
, SaveHucData
,
[.prettyUsgs
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | ## Not run:
dbPath <- '~/wrfHydroTestCases/usgsDb/'
threeSites <- QuerySiteInfo(path = dbPath, info = c("site_no"))[1:3,]$site_no
obs <- PrettyUsgs(QueryHaveSite(threeSites, path=dbPath, ret='00060', get=TRUE))
length(unique(obs$site_no))
df0 <- subset(obs,site_no==threeSites[1])
length(unique(df0$site_no))
ggplot2::ggplot(obs, ggplot2::aes(x=value,color=site_no)) +
ggplot2::geom_density() + ggplot2::scale_x_continuous(limits=c(0,7))
df1 <- subset(obs,value < 2)
length(unique(df1$site_no))
length(attr(df1,'siteInfo')$site_no)
plyr::ddply(obs, plyr::.(site_no), plyr::summarize, max=max(value))
df2 <- subset(obs,value > 9)
length(unique(df2$site_no))
length(attr(df2,'siteInfo')$site_no)
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.