p <- proportions %>%
ggplot2::ggplot(mapping = ggplot2::aes(x = .data$freq,
y = .data$proportion)) +
ggplot2::geom_point(mapping = ggplot2::aes(fill = .data$ID),
size = 4,
shape = 21,
color = "black") +
ggplot2::geom_abline(slope = 1,
intercept = 0,
linetype = "dashed",
color = "grey75") +
ggplot2::facet_wrap(. ~ .data$cell_type,
nrow = 1,
scale = "free") +
ggplot2::scale_fill_manual(values = scale.ident, name = "") +
ggpubr::stat_cor(mapping = ggplot2::aes(label = ggplot2::after_stat(rr.label)),
label.y.npc = "top",
label.x.npc = "left",
geom = "text") +
ggplot2::theme_minimal(base_size = 12) +
ggplot2::labs(x = "Ground-Truth Proportions",
y = "Predicted Proportions") +
ggplot2::theme(axis.title = ggplot2::element_text(color = "black",
face = "bold"),
axis.line.x = ggplot2::element_line(color = "black"),
axis.line.y = ggplot2::element_blank(),
axis.text.x = ggplot2::element_text(color = "black",
face = "plain",
angle = SCpubr:::get_axis_parameters(angle = 45, flip = FALSE)[["angle"]],
hjust = SCpubr:::get_axis_parameters(angle = 45, flip = FALSE)[["hjust"]],
vjust = SCpubr:::get_axis_parameters(angle = 45, flip = FALSE)[["vjust"]]),
axis.text.y = ggplot2::element_text(color = "black", face = "plain"),
axis.ticks = ggplot2::element_line(color = "black"),
plot.title.position = "plot",
plot.title = ggplot2::element_text(face = "bold", hjust = 0.5),
plot.subtitle = ggplot2::element_text(face = "plain", hjust = 0),
plot.caption = ggplot2::element_text(face = "plain", hjust = 1),
panel.grid = ggplot2::element_blank(),
text = ggplot2::element_text(family = "sans"),
plot.caption.position = "plot",
legend.text = ggplot2::element_text(face = "plain"),
legend.position = "bottom",
legend.title = ggplot2::element_text(face = "bold"),
legend.justification = "center",
plot.margin = ggplot2::margin(t = 10, r = 10, b = 10, l = 10),
plot.background = ggplot2::element_rect(fill = "white", color = "white"),
panel.background = ggplot2::element_rect(fill = "white", color = "black"),
legend.background = ggplot2::element_rect(fill = "white", color = "white"),
strip.text = ggplot2::element_text(color = "black", face = "bold"),
strip.background = ggplot2::element_blank())
