<jupyter_start><jupyter_text>1. Violin Plot for Age/Sex---<jupyter_code>meta.df <- read.table("../data/raw/SMM_study_final_list_for_clustering.txt", sep='\t', header=T)
meta.df$fill <- ifelse(meta.df$SEX=='M', '#55CDFC','#F7A8B8')
pdf('figures/figS1d_age_sex_violin.pdf', width=3, height=3)
options(repr.plot.width=3, repr.plot.height=3)

ggplot(meta.df, aes(x=SEX, y=AGE, fill=SEX)) + 
  geom_violin(trim=F) +
  labs(title="",x="", y = "Age") +
  theme_classic() +
  scale_fill_manual(values = c("#F7A8B8","#55CDFC")) +
  geom_boxplot(width=0.125, fill='white') +
  theme(legend.position="none")
dev.off()<jupyter_output><empty_output>
StarcoderdataJupyterStructuredCleanDedup