#相关R包载入：
library(ggplot2)
library(ggpubr)
library(patchwork)
#测试数据读入：

dt <- read.csv('testdt.csv',header = T)
#转换因子，指定绘图顺序：
dt$symbol_x <- factor(dt$symbol_x,levels = c(unique(dt$symbol_x)))

#基础气泡图绘制：
show_point_shapes() #先查看可绘制的点类型

p <- ggplot(data = dt,
aes(x = symbol_x,
y = symbol_y,
size = -log(pvalue),
shape = group)) +
geom_point(aes(color = Correlation_coefficiency)) +
scale_shape_manual(values = c(16,15)) #这里选择填充型圆和矩形，仅描边需＜15，同时描边和填充需＞20
p

#气泡图美化：
p1 <- p +
scale_size_continuous(range = c(1,10)) + #气泡大小范围
scale_color_gradient2(low='navy',high='firebrick3', mid="white") + #渐变颜色更改
theme_bw() +
theme(axis.text.x = element_text(angle = 90, hjust = 1)) #90°显示x轴标签
p1

#自定义主题调整：
mytheme <- theme(
axis.text.y = element_blank(),
axis.line.y = element_blank(),
axis.title = element_blank(),
axis.text.x = element_text(size = 14),
legend.text = element_text(size = 14),
legend.title = element_text(size = 15),
plot.margin = margin(t = 5.5, # 顶部边缘距离
r = 5.5, # 右边边缘距离
b = 5.5, # 底部边缘距离
l = 0) #左边边缘距离，便于拼图显得紧凑
)
p2 <- p1 + mytheme
p2

#绘制矩形：
pp <- ggplot(data = dt,
aes(x = 0.5, y = symbol_y)) +
geom_tile(aes(fill = type)) +
scale_fill_manual(values = c('#27527a','#8ac3d0'))
pp

#矩形长宽比调整：
pp <- pp +
scale_x_continuous(expand = c(0,0)) +
xlim(-8,1) + #先预留出标签位置
coord_fixed(ratio = 2) #比例
pp

#自定义主题调整：
mytheme2 <- theme(
axis.text = element_blank(),
axis.ticks = element_blank(),
axis.line = element_blank(),
axis.title = element_blank(),
panel.grid = element_blank(),
panel.border = element_blank(),
legend.text = element_text(size = 14),
legend.title = element_text(size = 15),
plot.margin = margin(t = 5.5,
r = 0, #便于拼图显得紧凑
b = 5.5,
l = 5.5))
pp1 <- pp + theme_bw() + mytheme2
pp1

#添加symbol标签：
pp2 <- pp1 +
geom_text(data = dt,
aes(x = -0.1,
y = symbol_y,
label = symbol_text),
size = 4.5,
hjust = 1) #右对齐
pp2

#3.拼图：
pp2 + p2 + plot_layout(guides = 'collect')