Nothing
#' CE-plane ggplot Parameters
#'
#' @template args-he
#' @param wtp Willingness to pay
#' @param pos_legend Position of legend
#' @param graph_params Other graphical parameters
#' @param ... Additional arguments
#'
#' @import ggplot2
#' @keywords internal
#'
ceplane_ggplot_params <- function(he,
wtp,
pos_legend,
graph_params,
...) {
ext_params <- ceplane_geom_params(...)
graph_params$area <-
modifyList(polygon_params(graph_params, wtp),
graph_params$area)
graph_params$legend <- make_legend_ggplot(he, pos_legend)
default_params <-
list(
size = rel(3.5),
wtp = list(
geom = "text",
x = graph_params$xlim[1],
y = graph_params$ylim[1],
hjust = "inward",
vjust = "inward",
label = paste0(" k = ", format(wtp, digits = 6), "\n"),
size = convert_pts_to_mm(1),
colour = "black"),
icer = list(
data = data.frame(x = colMeans(he$delta_e),
y = colMeans(he$delta_c)),
mapping = aes(x = .data$x, y = .data$y),
color = "red",
size = convert_pts_to_mm(0.8),
inherit.aes = FALSE),
icer_txt = list(
geom = "text",
label =
ifelse(length(he$ICER) == 1,
paste0("\n", "\U2022",
" ICER = ",
format(he$ICER, digits = 6, nsmall = 2), " "),
""),
x = graph_params$xlim[2],
y = graph_params$ylim[2],
col = "red",
size = convert_pts_to_mm(1),
hjust = "inward",
vjust = "inward"),
point = list(
shape = rep(19, he$n_comparisons),
size = 4),
line = list(
color = "black"),
area = list(
# geom = "polygon",
fill = graph_params$area$col,
alpha = ifelse(ext_params$area_include, 1, 0),
data = data.frame(x = graph_params$area$x,
y = graph_params$area$y),
mapping = aes(x = .data$x, y = .data$y),
inherit.aes = FALSE),
currency = "",
icer_annot = FALSE)
modifyList(default_params,
graph_params) %>%
modifyList(ext_params)
}
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.