R语言中用ggplot2做泡泡图

怎么说呢，简单是简单，但是把一堆数处理成能画图的数据对新手来讲还是挺有挑战性的

以下是加载R包处理数据的内容

###加载R包
library(dplyr)
library(tidyr)
library(tibble)
library(ggpubr)
###读取数据
getwd()
load(file = "D:/BaiduNetdiskDownload/果子生信/Guozi_Maincourse/2021-test/2021.9.24/data/TCGA_steal_data.Rdata")
#处理数据，使其成为示例中的适合画泡泡图的数据框格式
colnames(TCGA_steal_data)
my_own_data <- TCGA_steal_data %>%
dplyr::select(-sample) %>%
  group_by(subgroup) %>%
  summarise_all(mean) %>%
  column_to_rownames("subgroup") %>%
  t() %>%
  as.data.frame()
###保存数据
save("my_own_data", file = "/data")

 下面是画图

###画图
ggballoonplot(my_own_data, fill = "value")+
  scale_fill_viridis_c(option = "C")

最后结果如图所示

 根据需要导出图片

## 加载R包
library(export)
## 导成PPT可编辑的格式
graph2ppt(file="dotplot2.pptx")

## 导成AI可以编辑的状态
graph2eps(file="dotplot2.eps")
graph2pdf(file="dotplot2.pdf")
graph2png(file="dotplot2.png")
graph2tif(file="dotplot2.tif")

 以上数据来源于果子学生信练习数据，然后代码比较简单也不需要注释太多，不过把这个作为笔记保存，共勉！