Nothing
# Histograms
histograms <- function(data, variable, binwidth) {
ggplot(data, aes_string(x = variable)) +
theme_bw(base_size = 16) +
geom_histogram(binwidth = binwidth)
}
power_point <- function(data, x, y) {
ggplot2::ggplot(data, aes_string(x = x, y = y)) +
ggplot2::theme_bw(base_size = 16) +
ggplot2::geom_point(size = 4) +
#geom_line(aes_string(linetype = group, color = group)) +
ggplot2::ylab("Power")
}
power_point_group <- function(data, x, y, group_var = NULL,
facet_var = NULL) {
p <- ggplot2::ggplot(data, aes_string(x = x, y = y, group = group_var)) +
ggplot2::theme_bw(base_size = 16) +
ggplot2::geom_point(size = 4, aes_string(color = group_var, shape = group_var)) +
ggplot2::geom_line(aes_string(linetype = group_var, color = group_var)) +
ggplot2::ylab("Power")
if(is.null(facet_var)) {
p
} else {
p + ggplot2::facet_wrap(facet_var)
}
}
# param_table <- htmltools::withTags(
# table(
# class = 'display',
# thead(
# tr(
#
# )
# )
# )
# )
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.