其他
R可视化——气球图
ggballoonplot（气球图）是一种用于多分类数据展示的图形，图中每个单元格都包含一个点，其大小反映了相应样本的相对大小。如果我们平时看惯了柱状堆积图，不妨试试这个图形，也许会让你眼前一亮！今天，小编主要通过ggpubr包及ggplot2包展示两种绘制方法！
加载包
rm(list=ls())#clear Global Environmentsetwd('D:\\桌面\\气球图')#设置工作路径
#加载包library(ggpubr)library(reshape2)library(ggplot2)加载数据
df <- read.table(file="Genus.txt",sep="\t",header=T,check.names=FALSE,row.names = 1)head(df)基于ggpubr包绘制
1）简单绘制
ggballoonplot(df)2）个性化设置
color=c("blue", "white", "red")ggballoonplot(df, fill = "value", #气球填充颜色 ggtheme = theme_bw(),#画板主题 size = "value",#气球大小 color = "grey",#气球边框颜色 shape = 22,#shape可以改变显示形状 show.label = F)+#是否显示标签 scale_fill_viridis_c(option = "C")+ guides(size = FALSE)+#气球图例是否显示 scale_fill_gradientn(colors = color)#设置颜色3）其他参数
ggballoonplot( data,#数据集 x = NULL,#x轴向量 y = NULL,#y轴向量 size = "value",#气球大小依据 facet.by = NULL,#气球形状选择 size.range = c(1, 10),#气球大小选择范围 shape = 21,#气球形状 color = "black",#气球边框颜色 fill = "gray",#气球填充颜色 show.label = FALSE,#是否显示每个气球代表的具体大小 font.label = list(size = 12, color = "black"),#示每个气球代表的具体大小的字体设定 rotate.x.text = TRUE,#是否旋转标注字体 ggtheme = theme_minimal(),#画板主题 ...)基于ggplot2包绘制
1）数据处理
#转换数据df$Tax=rownames(df)df1=melt(df)colnames(df1)=c("Tax","Samples","value")2）绘图
ggplot(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"),#网格线条颜色 panel.border = element_rect(color="black",fill=NA))#边框色源码及数据在后台回复“气球图”获取！！！