Simple compound figure of model results and analyses of a binary decision (do or do not do). The figure includes the distribution of the expected outcome, the expected cashflow, as well as the variable importance and the value of information
compound_figure(
model = NULL,
input_table,
decision_var_name,
cashflow_var_name,
model_runs = 10000,
distribution_method = "smooth_simple_overlay",
mcSimulation_object = NULL,
plsrResults = NULL,
EVPIresults = NULL,
x_axis_name_distribution = "Outcome distribution",
y_axis_name_distribution = NULL,
x_axis_name_cashflow = "Timeline of intervention",
y_axis_name_cashflow = "Cashflow",
legend_name_cashflow = "Quantiles (%)",
legend_labels_cashflow = c("5 to 95", "25 to 75", "median"),
x_axis_name_pls = "Variable Importance in Projection",
y_axis_name_pls = NULL,
legend_name_pls = "Coefficient",
legend_labels_pls = c("Positive", "Negative"),
x_axis_name_evpi = "Expected Value of Perfect Information",
y_axis_name_evpi = NULL,
base_size = 11
)This function returns a plot of classes 'patchwork', 'gg',
and 'ggplot'. This allows the user to
continue editing some features of the plots through the syntax (i.e. '&',
and '+') from both libraries.
is a user defined model function see the mcSimulation function. Either 'model' or 'mcSimulation_object' must be provided. If both are given then 'model' has precedence and the model will be calculated for the figure
is a data frame with at least two columns named 'variable' and 'label'. The 'variable column should have one entry for the name of each variable contained in any of the plots. In preparing the figure, the function will replace the variable names with the labels. If the label is missing then the plot will show 'NA' in the place of the variable name. Default is NULL and uses the original variable names.
is the name of the decision outcome named in the return() of 'model'. This will be used in all plots and analyses except for the cashflow plot. For now this is just one decision option
is the name of the cashflow variable named in the return() of 'model'. This will be used in the cashflow plot
is the number of time that the model should run. The default is 10,000
is the method used in the distribution plot see the plot_distributions function
is an object of Monte Carlo simulation outputs from the mcSimulation function
is an object of Projection to Latent Structures (PLS) regression outputs from the plsr.mcSimulation function
are the results of the multi_EVPI function
are the names (character strings) to pass to the axis titles for the respective plots (distribution, cashflow, pls, evpi)
are the names (character strings) representing the title of the legend
are the names (character strings) representing the labels of the legend
is the base text size to be used for the plot. The default is 11, this is the ggplot2::ggtheme default
Eduardo Fernandez (efernand@uni-bonn.de)
Cory Whitney (cory.whitney@uni-bonn.de)
Do, Hoa, Eike Luedeling, and Cory Whitney. “Decision Analysis of Agroforestry Options Reveals Adoption Risks for Resource-Poor Farmers.” Agronomy for Sustainable Development 40, no. 3 (June 2020): 20. tools:::Rd_expr_doi("10.1007/s13593-020-00624-5"). Lanzanova, Denis, Cory Whitney, Keith Shepherd, and Eike Luedeling. “Improving Development Efficiency through Decision Analysis: Reservoir Protection in Burkina Faso.” Environmental Modelling & Software 115 (May 1, 2019): 164–75. tools:::Rd_expr_doi("10.1016/j.envsoft.2019.01.016"). Ruett, Marius, Cory Whitney, and Eike Luedeling. “Model-Based Evaluation of Management Options in Ornamental Plant Nurseries.” Journal of Cleaner Production 271 (June 2020): 122653. tools:::Rd_expr_doi("10.1016/j.jclepro.2020.122653").
##############################################################
# Example 1 (Creating the estimate from the command line):
#############################################################
# Create the estimate object:
cost_benefit_table <- data.frame(label = c("Revenue", "Costs"),
variable = c("revenue", "costs"),
distribution = c("norm", "norm"),
lower = c(100, 500),
median = c(NA, NA),
upper = c(10000, 5000))
# (a) Define the model function without name for the return value:
profit1 <- function() {
Decision <- revenue - costs
cashflow <- rnorm(rep(revenue, 20))
return(list(Revenues = revenue,
Costs = costs,
cashflow = cashflow,
Decision = Decision))
}
compound_figure(model = profit1,
input_table = cost_benefit_table,
decision_var_name = "Decision",
cashflow_var_name = "cashflow",
model_runs = 1e2,
distribution_method = 'smooth_simple_overlay')
Run the code above in your browser using DataLab