怎么说呢,简单是简单,但是把一堆数处理成能画图的数据对新手来讲还是挺有挑战性的
以下是加载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")
以上数据来源于果子学生信练习数据,然后代码比较简单也不需要注释太多,不过把这个作为笔记保存,共勉!