geom_text(data = mean_pss, aes(x = Inf, y = mean_pss, label = round(mean_pss, 2), color = "black"),
hjust = 1.1, vjust = -0.5, size = 6, show.legend = FALSE) +
scale_color_manual(values = color_palette) +
facet_wrap(~ label, ncol = 4) +
labs(x = xlabel, y = ylabel) +
ylim(ylim_vals) +
theme_minimal() +
theme(
legend.position = "none")
if (!is.null(save_path)) {
ggsave(save_path, plot = g, width = 8, height = 3, dpi = 300)
cat(sprintf("Plot saved to %s\n", save_path))
}
print(g)
}
Combine "between" datasets and plot
combined_between_data <- combine_files(between_files)
combined_between_data <- combined_between_data %>%
distinct(temperature, ka_mean, label, .keep_all = T)
plot_combined(combined_between_data, "temperature", "ka_mean", "Temperature", "Inter-PSS", c(0, 1),
save_path = "plots/combined_between_updated.png", within = FALSE)
Changelog
All notable changes to this project will be documented in this file.
[Unreleased]
- Upcoming changes will be listed here.