????今天，我們基于R語言的ggplot2包來繪制一種可以展示三個及以上變量之間的關系的圖形——氣泡圖。
加載包
1）設置工作目錄
rm(list=ls())#clear Global Environment
setwd('D:\\桌面\\氣泡圖')#設置工作路徑
2）安裝、加載包
#安裝包
# install.packages("ggplot2")
# install.packages("ggprism")
#加載包
library(ggplot2)
library(ggprism)
加載數(shù)據(jù)
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軸數(shù)據(jù)以調整圖形
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,#數(shù)據(jù)
color=C,#根據(jù)C列的數(shù)據(jù)填充顏色
size=D,#氣泡大小根據(jù)D列數(shù)據(jù)
fill=C))+#根據(jù)C列數(shù)據(jù)填充顏色
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
