【Rで作図】グラフタイトル、x軸、y軸、レジェンドタイトルを変更する

下記の様に棒グラフを作成。

# bar graphs
Data$Group <- factor(Data$Group, levels=c("WTM", "PdM" , "WTF" , "PdF" )) Data$Region <-
factor(Data$Region, levels=c("Ipsi-Hipp", "Ipsi-Ctx" , "Cont-Hipp" , "Cont-Ctx" )) Data %>%
ggplot(aes(x = reorder(x = Sex, X = Group), y = mean_NFT, fill = Group)) +
geom_col(position = "dodge", colour = "black", size = 0.75) +
geom_errorbar(aes(ymax = mean_NFT + sem_NFT, ymin = mean_NFT - sem_NFT), position = position_dodge(0.9), width = 0.2, size = 0.75 ) +
scale_x_discrete(limit = c("M", "F")) +
scale_fill_discrete(limit = c("WTM", "PdM", "WTF", "PdM")) +
scale_fill_manual(values = c("#2980B9", "#154360", "#CB4335", "#641E16")) +
facet_wrap(~Region)

タイトルやラベルの名前を変更したい場合

このグラフの、

• タイトル
• x軸ラベル
• y軸ラベル
• レジェンドのタイトル

をそれぞれ変更したい場合。

 

labs()

を追加すればOK。

labs(title = "グラフのタイトル", x = "x軸ラベル", y = "y軸ラベル", fill="レジェンドのタイトル")

labs(title = "NFTs", x = "Genotype", y = "% area of AT8+ NFTs", fill="Genotype")

タイトルやラベルのサイズを変更したい場合

Theme()

でサイズを変更する。

• フォント: family
• サイズ: size
• カラー: colour
• 回転: angle
• 高さ: hjust
• etc...

theme(
title = element_text(size = 20),
legend.title = element_text(size = 10),
axis.title.x = element_text(size = 15),
axis.title.y = element_text(size = 15),
axis.text.x = element_text(size = 12, colour = 1, angle = 45, hjust = 1),
axis.text.y = element_text(size = 10, colour = 1),
)

 

・
・
・

 

全体のコードは下記 ↓

Data$Group <- factor(Data$Group, levels=c("WTM", "PdM" , "WTF" , "PdF" )) Data$Region <-
factor(Data$Region, levels=c("Ipsi-Hipp", "Ipsi-Ctx" , "Cont-Hipp" , "Cont-Ctx" )) Data %>%
ggplot(aes(x = reorder(x = Sex, X = Group), y = mean_NFT, fill = Group)) +
geom_col(position = "dodge", colour = "black", size = 0.75) +
geom_errorbar(aes(ymax = mean_NFT + sem_NFT, ymin = mean_NFT - sem_NFT), position = position_dodge(0.9), width = 0.2, size = 0.75 ) +
labs(title = "NFTs", x = "Genotype", y = "% area of AT8+ NFTs", fill="Genotype") +
scale_x_discrete(limit = c("M", "F")) +
scale_fill_discrete(limit = c("WTM", "PdM", "WTF", "PdM")) +
scale_fill_manual(values = c("#2980B9", "#154360", "#CB4335", "#641E16")) +
facet_wrap(~Region)

※ 最初、レジェンドタイトルを "colour = "Genotype" と記載したらうまくいかなかった。
ちょっと調べて "fill="Genotype" にしたら変更できた。