使用R绘制气泡图、带有显著性标记的热力图、渐变曲线图 | 您所在的位置:网站首页 › R语言中valprob函数中颜色该如何改变 › 使用R绘制气泡图、带有显著性标记的热力图、渐变曲线图 |
大家好,我是带我去滑雪! 一幅精美的科研绘图会有诸多益处,精美的图像可以更好地传达研究结果和数据分析的重要信息。通过使用清晰、直观和易于理解的图像,可以更好地向读者展示研究的发现,有助于读者理解和解释数据。还可以增加研究报告或论文的可视化效果,使其更具吸引力和可读性。在学术界中,精美的图像常常吸引编辑和评审人员的注意,并提高研究发表的机会。此外,在学术会议或研究展示中展示精美图像也有助于引起其他研究者的兴趣和讨论。 本文分别介绍使用R语言中的ggplot包绘制气泡图、使用ComplexHeatmap包绘制带有显著性标记的热力图以及使用ggplot2包绘制渐变曲线图。 目录 1、使用ggplot绘制气泡图 (1)设置工作路径、安装并调用相关包 (2)导入数据 (3)绘制气泡图 2、使用ComplexHeatmap包绘制带有显著性标记的热力图 (1)安装并调用相关包 (2)导入数据集 (3)计算相关系数,并将结果中的P值替换为显著性标记 3、绘制渐变曲线图 (1)安装并调用包、导入数据 (2)绘制曲线图 (3)为图片添加渐变效果 1、使用ggplot绘制气泡图 (1)设置工作路径、安装并调用相关包rm(list=ls())#清除全局环境变量 setwd('E:/工作/硕士/博客/博客39-使用R绘制气泡图、带有显著性标记的热力图、渐变曲线图') install.packages("ggprism") library(ggplot2) library(ggprism) library(RColorBrewer) library(grid) library(scales) (2)导入数据data=read.table("E:/工作/硕士/博客/博客39-使用R绘制气泡图、带有显著性标记的热力图、渐变曲线图/data.csv",header=TRUE,sep=",") head(data) 输出结果: x1 x4 x9 x6 1 2 0 14 2 2 4 0 18 0 3 2 2 18 1 4 4 3 6 1 5 3 2 7 2 6 3 2 5 1 (3)绘制气泡图ggplot(dd,aes(x1,x2,color=x3,size=x4,fill=x3))+ geom_point(color="blue", #气泡边框色 shape=21,alpha=0.9)+ #形状 scale_size_continuous(range = c(1, 15))+ #气泡的相对大小 theme_bw()+ theme(panel.grid = element_blank(), #添加画布背景 axis.line=element_line(), #坐标轴的线设为显示 axis.text=element_text(color='black',size=12), legend.text = element_text(color='black',size=12), axis.title= element_text(size=12), axis.text.x=element_text(vjust = 1,hjust = 1), legend.key = element_blank())+ scale_fill_manual(values=c("skyblue1","pink","turquoise1","red","sienna1"))+ #指定气泡颜色 labs(x = 'x', # 定义x轴文本 y = 'y')# 定义y轴文本 #调整背景色 color grid.text(sprintf("%.2f", r2[i, j]), x, y, gp = gpar(fontsize = 6)) }) 输出结果: install.packages("ggplot2") library(ggplot2) setwd('E:/工作/硕士/博客/博客39-使用R绘制气泡图、带有显著性标记的热力图、渐变曲线图') data=read.table("E:/工作/硕士/博客/博客39-使用R绘制气泡图、带有显著性标记的热力图、渐变曲线图/data2.csv",header=TRUE,sep=",") (2)绘制曲线图pdf("plot.pdf",width = 5.5, height = 3.7) ggplot(data,aes(x=X,y=Y,fill=type))+ geom_line(color = "#dcedf5")+ #线图 coord_cartesian(xlim = c(4.5, 110))+ #设置X轴显示范围 scale_y_continuous(breaks = seq(0,10,2))+ #设置y轴刻度范围和间隔 scale_x_continuous(breaks = seq(0,100,20))+ #设置x轴刻度范围和间隔 labs(x="Hz", y="Sb")+ #设置坐标轴标题 theme_bw()+ #设置主题 theme(panel.grid = element_blank(), #取消背景网格 axis.text = element_text(size = 10), #设置刻度值字体大小 axis.title = element_text(face = "bold") #设置字体 )+ geom_segment(aes(x = 55, y = 1, xend = 78, yend = 5),size= 0.3) + geom_segment(aes(x = 48, y = 5, xend = 78, yend = 7.5),size= 0.3) + geom_segment(aes(x = 46, y = 8, xend = 76, yend = 8.5),size= 0.3) + geom_segment(aes(x = 47, y = 9.5, xend = 74, yend = 9.5),size= 0.3) + geom_text(aes(x = 87, y = 5, label = "noise"))+ geom_text(aes(x = 84, y = 7.5, label = "3.3 pW"))+ geom_text(aes(x = 82, y = 8.5, label = "20 pW"))+ geom_text(aes(x = 80, y = 9.5, label = "78 pW")) dev.off() 输出结果: 这里使用 Adobe Illustrator软件进行处理,博主最近也在学习这个软件,可以一起交流!Adobe Illustrator在科研中作为一款专业的矢量绘图软件,可以提供强大的绘图、插图、编辑和设计功能,帮助科研人员创建高质量、专业外观的科学图表、插图、海报和展示资料,以及进行图像修饰和文字设计。它能够满足科研人员对图像设计和编辑的各种需求,并提升研究成果的可视化和呈现效果。 处理后的渐变曲线图: 需要数据集的家人们可以去百度网盘(永久有效)获取: 链接:https://pan.baidu.com/s/1E59qYZuGhwlrx6gn4JJZTg?pwd=2138 提取码:2138 --来自百度网盘超级会员V5的分享 更多优质内容持续发布中,请移步主页查看。 点赞+关注,下次不迷路! |
CopyRight 2018-2019 实验室设备网 版权所有 |