本教程链接

https://mp.weixin.qq.com/s/oXYbx7lmJkqHst6v-tlGVA

绘图代码

###'@气泡图绘制
###'@20230714

###'@加载数据包
library(ggplot2)
library(ggforce)
library(tidyverse)

##'@创建数据
data <- data.frame(mpg = sample(1:100,20),
                   wt = sample(1:100,20),
                   disp = sample(1:100,10),
                   cyl = sample(1:10,10))

基础图形

ggplot(data, aes(x = mpg, y = wt, size = disp, fill = cyl))+
  geom_point(alpha = 0.7, color= "black",
             shape = 21)+
  scale_size_continuous(range = c(1,20))

基础美化

## 更改颜色
  scale_fill_gradient(low = "green",high = "blue")+
  ## 更改坐标轴轴,及相关信息
  labs(title = "", 
       x = "",
       y = "",
       size = "cylinders",
       fill = "displacement"

设置主题

我们可以直接定义自己主题参数，后面直接添加参数即可。

mytheme <- 
  theme_bw() +
  theme(axis.title.x = element_blank(),
        axis.title.y = element_blank(),
        axis.text.x = element_text(size = 12, angle = 0),
        axis.text.y = element_text(size = 10),
        legend.text = element_text(size = 10),
        legend.text.align = 0.5,
        legend.title = element_text(size = 12, hjust = 0))

更多参数，根据自己的需求进行修改和添加。

完整代码、

ggplot(data, aes(x = mpg, y = wt, size = disp, fill = cyl))+
  geom_point(alpha = 0.7, color= "black",
             shape = 21)+
  scale_size_continuous(range = c(1,20))+  ## range更改圈图大小
  ## 更改颜色
  scale_fill_gradient(low = "green",high = "blue")+
  ## 更改坐标轴轴,及相关信息
  labs(title = "", 
       x = "",
       y = "",
       size = "cylinders",
       fill = "displacement")+
  mytheme

---

教程代码：

途径一：社群中获得

途径二：本教程打赏1元即可。

---

往期文章：

1. 最全WGCNA教程（替换数据即可出全部结果与图形）

• WGCNA分析 | 全流程分析代码 | 代码一

• WGCNA分析 | 全流程分析代码 | 代码二

• WGCNA分析 | 全流程代码分享 | 代码三

---

2. 精美图形绘制教程

• 精美图形绘制教程

3. 转录组分析教程

上述同期教程。

小杜的生信筆記，主要发表或收录生物信息学的教程，以及基于R的分析和可视化（包括数据分析，图形绘制等）；分享感兴趣的文献和学习资料!!