Usage
ggvolcano(
data,
labels = "",
logFC_col,
pval_col,
x_limits = c(min(data[[logFC_col]], na.rm = TRUE) - 1.5, max(data[[logFC_col]], na.rm =
TRUE) + 1.5),
y_limits = c(0, max(-log10(data[[pval_col]]), na.rm = TRUE) + 5),
xlab = bquote(~Log[2] ~ "fold change"),
ylab = bquote(~-Log[10] ~ italic(P)),
title = "Volcano plot",
subtitle = "",
caption = paste0("total = ", nrow(data), " variables"),
pval_cutoff = 1e-06,
logFC_cutoff = 1,
cutoff_line = list(type = "longdash", color = "black", width = 0.4),
point_aes = list(size = 1.5, shape = c(19, 19, 19, 19), color = c("grey30", "#00CD6C",
"#009ADE", "#FF1F5B"), alpha = 0.9),
label_aes = list(size = 2.5, color = "black", face = "plain", parse = FALSE),
legend_aes = list(labels = c("NS", expression(Log[2] ~ FC), "p-value", expression(p -
value ~ and ~ log[2] ~ FC)), position = "right", label_size = 14, icon_size = 5),
shade_options = NULL,
connector_aes = list(line_width = 0.5, arrow_type = "closed", arrow_ends = "first",
arrow_length = unit(0.01, "npc"), line_color = "grey10", direction = "both",
draw_arrowheads = TRUE),
gridlines = list(major = TRUE, minor = TRUE),
plot_border = "partial",
border_width = 0.8,
border_color = "black",
horizontal_line = NULL,
horizontal_line_aes = list(type = "longdash", color = "black", width = 0.4)
)