Adds an image to a ggplot object. This allows the use of package internal
logos associated with Mazama Science and the USFS AirFire group specified
with brandStyle
and brandName
. User provided images can be
specified by using brandFilePath
.
brandPlot( plot, brandStyle = c("logo", "icon"), brandName = c("MazamaScience", "USFS", "AirFire"), brandFilePath = NULL, location = c("topright", "topleft", "bottomright", "bottomleft"), size = 0.1 )
plot |
|
---|---|
brandStyle |
|
brandName | Name of brand: |
brandFilePath | Path to brand logo or icon. If not |
location | String indicating the location where the logo should be
printed. Options are: |
size | Brand icon or logo width, in fraction of plot width. |
A gTree
object, which can be printed with grid.draw()
.
library(AirMonitorPlots) monitor <- AirMonitor::Carmel_Valley mts_tidy <- monitor_toTidy(monitor) gg <- ggplot_pm25Timeseries(mts_tidy) + stat_dailyAQCategory(adjustylim = TRUE) brandPlot(gg, location = "topright", size = .2)#> Warning: Removed 9 rows containing non-finite values (stat_daily_aqi_level).#> Warning: Removed 1 rows containing missing values (geom_bar).#> NULLbrandPlot(gg, location = "bottomright", brandName = "USFS")#> Warning: Removed 9 rows containing non-finite values (stat_daily_aqi_level).#> Warning: Removed 1 rows containing missing values (geom_bar).#> NULLbrandPlot(gg, brandName = "AirFire", location = "topleft", size = .15)#> Warning: Removed 9 rows containing non-finite values (stat_daily_aqi_level).#> Warning: Removed 1 rows containing missing values (geom_bar).#> NULL