P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2024-12-26 06:06:12 +01:00
Code Releases Activity

re added nrow

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends 2018-08-29 16:35:32 +02:00
parent d9e68e0a50
commit d654444c8e
2 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
R/ggplot_rsi.R
View File

@ -26,6 +26,7 @@
#' @param facet variable to split plots by, either \code{"Interpretation"} (default) or \code{"Antibiotic"} or a grouping variable #' @param facet variable to split plots by, either \code{"Interpretation"} (default) or \code{"Antibiotic"} or a grouping variable
#' @param translate_ab a column name of the \code{\link{antibiotics}} data set to translate the antibiotic abbreviations into, using \code{\link{abname}}. Default behaviour is to translate to official names according to the WHO. Use \code{translate_ab = FALSE} to disable translation. #' @param translate_ab a column name of the \code{\link{antibiotics}} data set to translate the antibiotic abbreviations into, using \code{\link{abname}}. Default behaviour is to translate to official names according to the WHO. Use \code{translate_ab = FALSE} to disable translation.
#' @param fun function to transform \code{data}, either \code{\link{portion_df}} (default) or \code{\link{count_df}} #' @param fun function to transform \code{data}, either \code{\link{portion_df}} (default) or \code{\link{count_df}}
#' @param nrow (when using \code{facet}) number of rows
#' @param ... other parameters passed on to \code{geom_rsi} #' @param ... other parameters passed on to \code{geom_rsi}
#' @details At default, the names of antibiotics will be shown on the plots using \code{\link{abname}}. This can be set with the option \code{get_antibiotic_names} (a logical value), so change it e.g. to \code{FALSE} with \code{options(get_antibiotic_names = FALSE)}. #' @details At default, the names of antibiotics will be shown on the plots using \code{\link{abname}}. This can be set with the option \code{get_antibiotic_names} (a logical value), so change it e.g. to \code{FALSE} with \code{options(get_antibiotic_names = FALSE)}.
#' #'
@ -129,6 +130,7 @@ ggplot_rsi <- function(data,
facet = NULL, facet = NULL,
translate_ab = "official", translate_ab = "official",
fun = portion_df, fun = portion_df,
nrow = NULL,
...) { ...) {
if (!"ggplot2" %in% rownames(installed.packages())) { if (!"ggplot2" %in% rownames(installed.packages())) {
@ -154,7 +156,7 @@ ggplot_rsi <- function(data,
} }
if (!is.null(facet)) { if (!is.null(facet)) {
p <- p + facet_rsi(facet = facet) p <- p + facet_rsi(facet = facet, nrow = nrow)
} }
p p
@ -202,7 +204,7 @@ geom_rsi <- function(position = NULL,
#' @rdname ggplot_rsi #' @rdname ggplot_rsi
#' @export #' @export
facet_rsi <- function(facet = c("Interpretation", "Antibiotic")) { facet_rsi <- function(facet = c("Interpretation", "Antibiotic"), nrow = NULL) {
facet <- facet[1] facet <- facet[1]
if (tolower(facet) %in% tolower(c('SIR', 'RSI', 'interpretation', 'interpretations', 'result'))) { if (tolower(facet) %in% tolower(c('SIR', 'RSI', 'interpretation', 'interpretations', 'result'))) {
@ -211,7 +213,7 @@ facet_rsi <- function(facet = c("Interpretation", "Antibiotic")) {
facet <- "Antibiotic" facet <- "Antibiotic"
} }
ggplot2::facet_wrap(facets = facet, scales = "free_x") ggplot2::facet_wrap(facets = facet, scales = "free_x", nrow = nrow)
} }
#' @rdname ggplot_rsi #' @rdname ggplot_rsi

6
man/ggplot_rsi.Rd
View File

@ -11,13 +11,13 @@
\usage{ \usage{
ggplot_rsi(data, position = NULL, x = "Antibiotic", ggplot_rsi(data, position = NULL, x = "Antibiotic",
fill = "Interpretation", facet = NULL, translate_ab = "official", fill = "Interpretation", facet = NULL, translate_ab = "official",
fun = portion_df, ...) fun = portion_df, nrow = NULL, ...)
geom_rsi(position = NULL, x = c("Antibiotic", "Interpretation"), geom_rsi(position = NULL, x = c("Antibiotic", "Interpretation"),
fill = "Interpretation", translate_ab = "official", fill = "Interpretation", translate_ab = "official",
fun = portion_df, ...) fun = portion_df, ...)
facet_rsi(facet = c("Interpretation", "Antibiotic")) facet_rsi(facet = c("Interpretation", "Antibiotic"), nrow = NULL)
scale_y_percent() scale_y_percent()
@ -40,6 +40,8 @@ theme_rsi()
\item{fun}{function to transform \code{data}, either \code{\link{portion_df}} (default) or \code{\link{count_df}}} \item{fun}{function to transform \code{data}, either \code{\link{portion_df}} (default) or \code{\link{count_df}}}
\item{nrow}{(when using \code{facet}) number of rows}
\item{...}{other parameters passed on to \code{geom_rsi}} \item{...}{other parameters passed on to \code{geom_rsi}}
} }
\description{ \description{