diff --git a/R/ggpackets.R b/R/ggpackets.R index 93d042c..5befd27 100644 --- a/R/ggpackets.R +++ b/R/ggpackets.R @@ -8,14 +8,14 @@ #' # Prep a tidy data.frame to plot with #' airquality_long <- rbind( #' data.frame( -#' airquality[,c("Month", "Day")], -#' Variable = "Temp", +#' airquality[,c("Month", "Day")], +#' Variable = "Temp", #' Measurement = airquality$Temp), #' data.frame( -#' airquality[,c("Month", "Day")], +#' airquality[,c("Month", "Day")], #' Variable = "Ozone", #' Measurement = airquality$Ozone)) -#' +#' #' # Build our new composite ggplot geom #' geom_error_line <- ggpacket() %+% #' geom_ribbon( @@ -25,21 +25,21 @@ #' fun = mean, #' fun.min = ~mean(.) - sd(.), #' fun.max = ~mean(.) + sd(.), -#' alpha = 0.15, +#' alpha = 0.15, #' color = NA) %+% #' geom_line( #' .id = "line", #' stat = 'summary', #' fun = mean, #' alpha = 0.8) -#' +#' #' # Try it out! -#' ggplot(airquality_long) + -#' aes(x = round((Month * 30 + Day) / 4), y = Measurement, color = Variable) + -#' geom_error_line(na.rm = TRUE, line.size = 1.5) + -#' scale_y_log10() + +#' ggplot(airquality_long) + +#' aes(x = round((Month * 30 + Day) / 4), y = Measurement, color = Variable) + +#' geom_error_line(na.rm = TRUE, line.size = 1.5) + +#' scale_y_log10() + #' labs(x = "Week") -#' +#' #' # for further examples, check out the vignettes #' vignette(package = "ggpackets") #' diff --git a/man/ggpackets-package.Rd b/man/ggpackets-package.Rd index e488cec..b1951f1 100644 --- a/man/ggpackets-package.Rd +++ b/man/ggpackets-package.Rd @@ -15,11 +15,11 @@ plots that draw from the same source ggpacket layers. # Prep a tidy data.frame to plot with airquality_long <- rbind( data.frame( - airquality[,c("Month", "Day")], - Variable = "Temp", + airquality[,c("Month", "Day")], + Variable = "Temp", Measurement = airquality$Temp), data.frame( - airquality[,c("Month", "Day")], + airquality[,c("Month", "Day")], Variable = "Ozone", Measurement = airquality$Ozone)) @@ -32,7 +32,7 @@ geom_error_line <- ggpacket() \%+\% fun = mean, fun.min = ~mean(.) - sd(.), fun.max = ~mean(.) + sd(.), - alpha = 0.15, + alpha = 0.15, color = NA) \%+\% geom_line( .id = "line", @@ -41,10 +41,10 @@ geom_error_line <- ggpacket() \%+\% alpha = 0.8) # Try it out! -ggplot(airquality_long) + - aes(x = round((Month * 30 + Day) / 4), y = Measurement, color = Variable) + - geom_error_line(na.rm = TRUE, line.size = 1.5) + - scale_y_log10() + +ggplot(airquality_long) + + aes(x = round((Month * 30 + Day) / 4), y = Measurement, color = Variable) + + geom_error_line(na.rm = TRUE, line.size = 1.5) + + scale_y_log10() + labs(x = "Week") # for further examples, check out the vignettes @@ -54,7 +54,7 @@ vignette(package = "ggpackets") \seealso{ Useful links: \itemize{ - \item \url{https://dgkf.github.io/ggpackets} + \item \url{https://dgkf.github.io/ggpackets/} } }