????ggballoonplot（氣球圖）是一種用于多分類數(shù)據(jù)展示的圖形，圖中每個單元格都包含一個點，其大小反映了相應(yīng)樣本的相對大小。如果我們平時看慣了柱狀堆積圖，不妨試試這個圖形，也許會讓你眼前一亮！今天，小編主要通過ggpubr包及ggplot2包展示兩種繪制方法！

1、加載包

rm(list=ls())#clear Global Environment
setwd('D:\\桌面\\氣球圖')#設(shè)置工作路徑

#加載包
library(ggpubr)
library(reshape2)
library(ggplot2)

2、加載數(shù)據(jù)

df <- read.table(file="Genus.txt",sep="\t",header=T,check.names=FALSE,row.names = 1)
head(df)

image.png

3、基于ggpubr包繪制

1）簡單繪制

ggballoonplot(df)

image.png

2）個性化設(shè)置

color=c("blue", "white", "red")
ggballoonplot(df, 
              fill = "value", #氣球填充顏色
              ggtheme = theme_bw(),#畫板主題
              size = "value",#氣球大小
              color = "grey",#氣球邊框顏色
              shape = 22,#shape可以改變顯示形狀
              show.label = F)+#是否顯示標(biāo)簽
  scale_fill_viridis_c(option = "C")+
  guides(size = FALSE)+#氣球圖例是否顯示
  scale_fill_gradientn(colors = color)#設(shè)置顏色

image.png

3）其他參數(shù)

ggballoonplot(
  data,#數(shù)據(jù)集
  x = NULL,#x軸向量
  y = NULL,#y軸向量
  size = "value",#氣球大小依據(jù)
  facet.by = NULL,#氣球形狀選擇
  size.range = c(1, 10),#氣球大小選擇范圍
  shape = 21,#氣球形狀
  color = "black",#氣球邊框顏色
  fill = "gray",#氣球填充顏色
  show.label = FALSE,#是否顯示每個氣球代表的具體大小
  font.label = list(size = 12, color = "black"),#示每個氣球代表的具體大小的字體設(shè)定
  rotate.x.text = TRUE,#是否旋轉(zhuǎn)標(biāo)注字體
  ggtheme = theme_minimal(),#畫板主題
  ...)

4、基于ggplot2包繪制

1）數(shù)據(jù)處理

#轉(zhuǎn)換數(shù)據(jù)
df$Tax=rownames(df)
df1=melt(df)
colnames(df1)=c("Tax","Samples","value")

2）繪圖

plot(df1, aes(x = Samples, y = Tax, size = value, color=Samples)) + 
  geom_point(aes(size=value))+
  theme(panel.background = element_blank(),
        panel.grid.major = element_line(color = "gray"),#網(wǎng)格線條顏色
        panel.border = element_rect(color="black",fill=NA))#邊框色

image.png