Plot bivariates gg_ba
1 2 |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | data("credit")
library("ggplot2")
library("ggthemes")
theme_set(theme_fivethirtyeight(base_size = 11) +
theme(rect = element_rect(fill = "white"),
axis.title = element_text(colour = "grey30"),
axis.title.y = element_text(angle = 90),
strip.background = element_rect(fill = "#434348"),
strip.text = element_text(color = "#F0F0F0"),
plot.title = element_text(face = "plain", size = structure(1.2, class = "rel")),
panel.margin.x = grid::unit(1, "cm"),
panel.margin.y = grid::unit(1, "cm")))
update_geom_defaults("line", list(colour = "#434348", size = 1.05))
update_geom_defaults("point", list(colour = "#434348", size = 3))
update_geom_defaults("bar", list(fill = "#7cb5ec"))
update_geom_defaults("text", list(size = 4, colour = "gray30"))
plots <- ggs_biv(df = credit, target_name = "bad")
bquiet = lapply(plots, print)
dev.off()
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.