This article generates plots of the WGCNA module eigenfeatures (Extended Data Fig. 6A–C).

library(MotrpacRatTraining6moWAT) # plot_eigenfeature
library(MotrpacRatTraining6moWATData)
library(ggplot2)

save_plots <- dir.exists(paths = file.path("..", "..", "plots"))
# Proteomics
p1 <- plot_eigenfeature(x = PROT_WGCNA)
p1

ggsave(file.path("..", "..", "plots", "PROT_module_eigenfeatures.pdf"), p1,
       height = 3, width = 6.5, family = "ArialMT")
# Metabolomics
p2 <- plot_eigenfeature(x = METAB_WGCNA)
p2

ggsave(file.path("..", "..", "plots", "METAB_module_eigenfeatures.pdf"), p2,
       height = 2, width = 6.5, family = "ArialMT")
# Transcriptomics
p3 <- plot_eigenfeature(x = TRNSCRPT_WGCNA)
p3

ggsave(file.path("..", "..", "plots", "TRNSCRPT_module_eigenfeatures.pdf"), p3,
       height = 4, width = 6.5, family = "ArialMT")