R可视化——气泡图

    今天，我们基于R语言的ggplot2包来绘制一种可以展示三个及以上变量之间的关系的图形——气泡图。

加载包

1）设置工作目录

rm(list=ls())#clear Global Environment
setwd('D:\\桌面\\气泡图')#设置工作路径

2）安装、加载包

#安装包
# install.packages("ggplot2")
# install.packages("ggprism")
#加载包
library(ggplot2)
library(ggprism)

加载数据

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

image.png

绘图

1）基本绘图

p1<-ggplot(df,aes(A,B,fill=C))+
  geom_point(aes(size=D,color=C))
p1

image.png

2）自定义颜色

col<-c("#000000", "#be0027", "#cf8d2e","#e4e932","#2c9f45")
p2<-p1+scale_color_manual(values=col)
p2

image.png

3）调整气泡相对大小

p3<-p2+scale_size_continuous(range = c(0.5, 15))
p3

image.png

4）更换x、y轴数据以调整图形

p4<-ggplot(df,aes(C,B,fill=A))+
  geom_point(aes(size=D,color=A))+
  scale_size_continuous(range = c(0.5, 15))
p4

image.png

5）更换显示形状

p5<-ggplot(df,aes(A,B,color=C,size=D,fill=C))+
  geom_point(color="black",shape=24)#设置形状
p5

image.png

p5<-ggplot(df,aes(A,B,color=C,size=D,fill=C))+
  geom_point(color="black",shape=22)#设置形状
p5

image.png

结合ggprism包进行个性化绘制

ggplot(df,aes(A,B,#数据
              color=C,#根据C列的数据填充颜色
              size=D,#气泡大小根据D列数据
              fill=C))+#根据C列数据填充颜色
  geom_point(color="black",#气泡边框色
             shape=21)+#形状
  scale_size_continuous(range = c(0.5, 15))+#气泡的相对大小
  theme_prism(palette = "flames",
              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 = "candy_bright")+#填充色
  labs(title = "气泡图", # 定义主标题
       subtitle = "XXXXXXX", # 定义子标题
       x = "XXXXX", # 定义x轴文本
       y = "XXXXX")# 定义y轴文本

image.png

源码及作图数据可在微信公众号后台回复“气泡图”获取！！！