Nothing
#' A clean funnel plot theme
#' @description A ggplot theme function for clean looking funnel plots. Try funnel_grey if you like the old one.
#' @return a list of ggplot theme items
#'
#' @seealso funnel_grey
#'
#' @importFrom ggplot2 theme_minimal theme_bw theme theme_grey
#' @export
#'
#' @examples
#'\dontrun{funnel_plot(theme=funnel_clean())}
funnel_clean <- function(){
theme_minimal() %+replace%
theme(legend.position = "bottom"
,legend.text = element_text(size = 8)
,legend.title = element_text(size = 8)
,plot.title = element_text(size = 14, hjust = 0.5, face = "bold")
,plot.subtitle = element_text(size=10, hjust = 0.5, face = "italic"))
}
#' A grey ggplot funnel theme
#' @description A classic ggplot theme function for funnel plots. Try funnel_clean if you don't like the grey background.
#' @return a list of ggplot theme items
#'
#' @seealso funnel_clean
#'
#' @importFrom ggplot2 theme_classic
#' @export
#'
#' @examples
#' \dontrun{funnel_plot(theme=funnel_grey())}
funnel_grey <- function(){
theme_grey() %+replace%
theme(legend.position = "bottom"
,legend.text = element_text(size = 8)
,legend.title = element_text(size = 8)
,plot.title = element_text(size = 14, hjust = 0.5, face = "bold")
,plot.subtitle = element_text(size=10, hjust = 0.5, face = "italic"))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.