其他
R可视化——气泡图
1）设置工作目录
rm(list=ls())#clear Global Environmentsetwd('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)1）基本绘图
p1<-ggplot(df,aes(A,B,fill=C))+ geom_point(aes(size=D,color=C))p1col<-c("#000000", "#be0027", "#cf8d2e","#e4e932","#2c9f45")p2<-p1+scale_color_manual(values=col)p2p3<-p2+scale_size_continuous(range = c(0.5, 15))p3p4<-ggplot(df,aes(C,B,fill=A))+ geom_point(aes(size=D,color=A))+ scale_size_continuous(range = c(0.5, 15))p4p5<-ggplot(df,aes(A,B,color=C,size=D,fill=C))+ geom_point(color="black",shape=24)#设置形状p5p5<-ggplot(df,aes(A,B,color=C,size=D,fill=C))+ geom_point(color="black",shape=22)#设置形状p5结合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轴文本好看你就
点点
我