????在使用R語言進行數(shù)據(jù)可視化過程中，大家可能會遇到數(shù)據(jù)中樣本名稱順序與圖形中樣本展示順序不一致的問題，或者是我們想要讓圖形中的樣本順序按照我們指定的進行繪制。今天，小編就給大家用實例進行講解如何解決如上問題！

R包的安裝及加載

rm(list=ls())#clear Global Environment
setwd('D:\\桌面\\繪圖技巧')#設置工作路徑

#安裝包
# install.packages("ggplot2")
# install.packages("ggprism")
# install.packages("reshape2")
# install.packages("cowplot")
#加載R包
library(ggplot2)
library(ggprism)
library (reshape2)
library(cowplot)

數(shù)據(jù)加載及預處理

#使用R代碼生成一些數(shù)據(jù)
df <- data.frame(
  A=c(0.5,0.3,0.1,0.05,0.05),
  B=c(0.1,0.2,0.6,0.01,0.09),
  C=c(0.1,0.5,0.2,0.1,0.1),
  D=c(0.05,0.25,0.3,0.3,0.1),
  E=c(0.2,0.15,0.4,0.2,0.05))

df$tax=rownames(df)#將行名加入到數(shù)據(jù)中

#變量格式轉(zhuǎn)換,寬數(shù)據(jù)轉(zhuǎn)化為長數(shù)據(jù),方便后續(xù)作圖
df1 <- melt(df)
names(df1)[c(2,3)] <- c("group","values")  #修改列名
head(df1)#預覽數(shù)據(jù)

image.png

常規(guī)繪圖

p1<-ggplot(df1, aes( x = group,y=100 * values,fill = tax))+#geom_col和geom_bar這兩條命令都可以繪制堆疊柱形圖
  geom_col(position = 'stack', width = 0.6)+#geom_bar(position = "stack", stat = "identity", width = 0.6) 
  scale_y_continuous(expand = c(0,0))+# 調(diào)整y軸屬性，使柱子與X軸坐標接觸
  labs(x="Group",y="Relative Abundance(%)",#設置X軸和Y軸的名稱以及添加標題
       fill="tax")+
  guides(fill=guide_legend(keywidth = 1, keyheight = 1)) +#修改圖例的框大小
  theme_prism(palette = "candy_bright",
              base_fontface = "plain", # 字體樣式，可選 bold, plain, italic
              base_family = "serif", # 字體格式，可選 serif, sans, mono, Arial等
              base_size = 16,  # 圖形的字體大小
              base_line_size = 0.8, # 坐標軸的粗細
              axis_text_angle = 45)+ # 可選值有 0，45，90，270
  scale_fill_prism(palette = "colors")#使用ggprism包修改顏色
p1

image.png

調(diào)整X軸樣本展示順序

####按照自己的意愿修改x軸顯示的順序
#將樣本名構(gòu)造為factor類型數(shù)據(jù)并指定順序
df1$group <- factor(df1$group,levels = c('B','A','C','E','D'))
#繪圖
p2<-ggplot(df1, aes( x = group,y=100 * values,fill = tax))+#geom_col和geom_bar這兩條命令都可以繪制堆疊柱形圖
  geom_col(position = 'stack', width = 0.6)+#geom_bar(position = "stack", stat = "identity", width = 0.6) 
  scale_y_continuous(expand = c(0,0))+# 調(diào)整y軸屬性，使柱子與X軸坐標接觸
  labs(x="Group",y="Relative Abundance(%)",#設置X軸和Y軸的名稱以及添加標題
       fill="tax")+
  guides(fill=guide_legend(keywidth = 1, keyheight = 1)) +#修改圖例的框大小
  theme_prism(palette = "candy_bright",
              base_fontface = "plain", # 字體樣式，可選 bold, plain, italic
              base_family = "serif", # 字體格式，可選 serif, sans, mono, Arial等
              base_size = 16,  # 圖形的字體大小
              base_line_size = 0.8, # 坐標軸的粗細
              axis_text_angle = 45)+ # 可選值有 0，45，90，270
  scale_fill_prism(palette = "colors")#使用ggprism包修改顏色
p2
#拼接圖
plot_grid(p1,p2, labels=c('A','B'), ncol=1, nrow=2)#拼圖及標注

image.png

調(diào)整Y軸展示順序

#####按照自己的意愿修改y軸顯示的順序
df1$tax <- factor(df1$tax,levels = c('5','1','3','2','4'))
#繪圖
p3<-ggplot(df1, aes( x = group,y=100 * values,fill = tax))+#geom_col和geom_bar這兩條命令都可以繪制堆疊柱形圖
  geom_col(position = 'stack', width = 0.6)+#geom_bar(position = "stack", stat = "identity", width = 0.6) 
  scale_y_continuous(expand = c(0,0))+# 調(diào)整y軸屬性，使柱子與X軸坐標接觸
  labs(x="Group",y="Relative Abundance(%)",#設置X軸和Y軸的名稱以及添加標題
       fill="tax")+
  guides(fill=guide_legend(keywidth = 1, keyheight = 1)) +#修改圖例的框大小
  theme_prism(palette = "candy_bright",
              base_fontface = "plain", # 字體樣式，可選 bold, plain, italic
              base_family = "serif", # 字體格式，可選 serif, sans, mono, Arial等
              base_size = 16,  # 圖形的字體大小
              base_line_size = 0.8, # 坐標軸的粗細
              axis_text_angle = 45)+ # 可選值有 0，45，90，270
  scale_fill_prism(palette = "colors")#使用ggprism包修改顏色
p3
#拼接圖
plot_grid(p1,p3, labels=c('A','B'), ncol=1, nrow=2)#拼圖及標注

image.png

總結(jié)

????通過以上示例展示，大家應該也明白了其中的訣竅，那就是將我們的樣本名稱轉(zhuǎn)換為factor類型數(shù)據(jù)，然后指定其順序就可以在繪圖過程中得到你所指定的樣本順序了！