Feature Plot Title font size 조절하기

그냥 FeaturePlot() 을 그리면 나오는 제목이 너무 작아서 ppt에 넣으려면 그림 윗부분을 자르고 다시 gene 이름을 써넣는등 두번 세번식 일해야하는게 귀찮아서 제목 사이즈 키우는 법을 검색해봤다.

Default FeaturePlot으로 그렸을때

FeaturePlot(NSC.edited, c("SOX2","CDH2"), cols=c("grey" ,brewer.pal(9,"YlOrRd")))
ggsave("FeaturePlot_NP.png", width=14)

Theme() 사용해서 제목 크기 변경

plots <- FeaturePlot(NSC.edited, PreEMT, cols=c("lightgrey", "#7E4884"), pt.size=1, combine = FALSE)
plots <- lapply(X = plots, FUN = function(x) x + theme(plot.title = element_text(size = 40)))
CombinePlots(plots = plots, ncol=2)
ggsave("Feature_PreEMT.png", width=14, height=7)

그림 예쁘게 그리는게 세상에서 제일 귀찮다 👿 우리 존재 화이팅