R可视化——气泡图
2022-07-24 本文已影响0人
科研那点事儿
今天，我们基于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
