【Rで作図】x軸の順番を変更

下記のようにグラフを作った。

# bar graphs
factor(Data_NFT_sum$Region, levels=c("Ipsi-Hipp", "Ipsi-Ctx" , "Cont-Hipp" , "Cont-Ctx" )) Data_NFT_sum %>%
ggplot(aes(x = Sex, 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_fill_manual(values = c("#2980B9", "#154360", "#CB4335", "#641E16"))

で、これを

左からオス(M) → メス(F) の順番に変更したい
左から WTM → PdM → WTF → PdF の順番に変更したい

場合の備忘録。

x軸の順番を変更

グループ化した群の並びを変更

F → M から M → F の順番に変更したい場合は、

scale_x_discrete(limit = c("M", "F"))

を追加する。

Data_NFT_sum %>%
ggplot(aes(x = Sex, 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_manual(values = c("#2980B9", "#154360", "#CB4335", "#641E16"))

全体の群の並びを変更

左から WTM → PdM → WTF → PdF の順番に変更したい場合は、まずデータ型を factor に変えて、レベルをつける。

今回は "Group" という名前の列に入っているので、

Data_NFT_sum$Group <- factor(Data_NFT_sum$Group, levels=c("WTM", "PdM" , "WTF" , "PdF" ))

とする。

# bar graphs
    Data_NFT_sum$Group <- factor(Data_NFT_sum$Group, levels=c("WTM", "PdM" , "WTF" , "PdF" )) %>%
ggplot(aes(x = Sex, 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_manual(values = c("#2980B9", "#154360", "#CB4335", "#641E16"))