library(ggplot2)
library(hexSticker)
library(showtext)
set.seed(1)
samps <- rnorm(1e4, mean = 0, sd = 1/3)
post_samps <- tibble::tibble(samples = samps)
ggplot(post_samps, aes(samples)) +
geom_histogram(bins = 30,
col = "black",
fill = "#FFC72C",
size = 1) +
# Credible Interval
geom_segment(x = -0.8,
xend = 0.8,
y = 0,
yend = 0,
col = "black",
size = 4) +
# Point
geom_point(x = 0,
y = 0,
size = 3.5,
col = "white") +
# ROPE
geom_vline(xintercept = c(-1, 1),
linetype = "dashed",
col = "white",
size = 1) +
# Plot settings
scale_x_continuous(labels = NULL) +
scale_y_continuous(labels = NULL) +
theme_void() +
theme_transparent() +
theme(
panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
panel.background = element_blank(),
plot.background = element_blank(),
plot.title = element_text(hjust = 0.5, size = 36, color = "white")
) -> rope_plot
# rope_plot
ggsave(
"inst/figures/hex_plot.png",
rope_plot,
bg = "transparent",
width = 15,
height = 7.5,
units = "cm",
dpi = 300
)
# add font & make sticker
font_add_google("Fira Code", "fira")
showtext_auto()
sticker(
"inst/figures/hex_plot.png",
# package settings
package = "2*bayes+lin=com",
p_family = "fira",
p_color = "white",
p_size = 12,
p_y = 1.5,
# plot settings
s_x = 1.02,
s_y = 0.9,
s_width = 0.9,
s_height = 0.9,
# hex settings
h_fill = "#046A38",
h_color = "#FFC72C",
h_size = 2.25,
filename = "inst/figures/hex_sticker.png",
dpi = 320
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.