上饶网站开发 app开发,wordpress不能登录后台,赣州网站优化,大网站如何优化R语言绘图系列—箱线图贝赛尔曲线
#xff08;一#xff09;: 科研绘图一#xff1a;箱线图#xff08;添加贝赛尔曲线#xff09; 文章目录 R语言绘图系列---箱线图贝赛尔曲线#xff08;一#xff09;: 科研绘图一#xff1a;箱线图#xff08;添加贝赛尔曲线…R语言绘图系列—箱线图贝赛尔曲线
一: 科研绘图一箱线图添加贝赛尔曲线 文章目录 R语言绘图系列---箱线图贝赛尔曲线一: 科研绘图一箱线图添加贝赛尔曲线 前言一、箱线图二、R语言绘制1.R包载入和构建模拟数据2.设置颜色模式3.使用ggpaired函数绘制箱线图4.添加显著性检验5.设置主题6.保存 三、完整代码 结果展示 前言
箱形图又称为盒须图、盒式图、盒状图或箱线图是一种用作显示一组数据分散情况资料的统计图。因型状如箱子而得名。在各种领域也经常被使用常见于品质管理快速识别异常值。箱形图最大的优点就是不受异常值的影响能够准确稳定地描绘出数据的离散分布情况同时也利于数据的清洗。 一、箱线图
箱形图Box-plot又称为盒须图、盒式图或箱线图是一种用作显示一组数据分散情况资料的统计图。 用于展示数据的大致分布特征也用于探索异常值和离群点。平行排列的箱线图可以用于比较在某个分类变量各个类别下某指标的分布。在R语言可以使用函数 ggpubr() 绘制箱线图。 贝塞尔曲线, 又称贝赛尔曲线Bézier曲线是电脑图形学中相当重要的参数曲线。更高维度的广泛化贝塞尔曲线就称作贝塞尔曲面其中贝塞尔三角是一种特殊的实例。
二、R语言绘制
1.R包载入和构建模拟数据
# 载入R包
library(ggplot2)
library(RColorBrewer)
library(ggpubr) # 构建模拟数据
set.seed(2000)
data - data.frame(BAI2013 rnorm(60),class rep(rep(letters[1:3], each10),2),treatment rep(c(elevated,ambient),each30),indexrep(seq(1,30),2))head(data)模拟数据示例BAI2013classtreatmentindex10.9001420aelevated12-1.1733458aelevated23-0.8974854aelevated34-1.4445014aelevated45-0.3310136aelevated56-2.9006290aelevated6
2.设置颜色模式
# 设置颜色模式
palette - c(brewer.pal(7,Set2)[c(4,5)])3.使用ggpaired函数绘制箱线图
# ggpaired是ggpurb包中绘制配对箱线图的函数
ggpaired(data, x treatment, y BAI2013,fill treatment, # fill指定分组变量palette palette, # 颜色line.color grey50, # 散点连线颜色line.size 0.15, # 连线粗细point.size 1.5, # 散点大小width0.6, # 箱线图宽度facet.by class, # 分面变量short.panel.labs FALSE)4.添加显著性检验 stat_compare_means(paired TRUE)5.设置主题
theme_minimal()theme(strip.background element_rect(fillgrey90),strip.text element_text(size13,faceplain,colorblack),axis.titleelement_text(size13,faceplain,colorblack),axis.text element_text(size11,faceplain,colorblack),panel.backgroundelement_rect(colourblack,fillNA),panel.gridelement_blank(),legend.positionnone,legend.backgroundelement_rect(colourNA,fillNA),axis.tickselement_line(colourblack))6.保存
ggsave(boxplot_line.pdf, height 5, width 8)三、完整代码
# 载入R包
library(ggplot2)
library(RColorBrewer)
library(ggpubr) # 构建模拟数据
set.seed(2000)
data - data.frame(BAI2013 rnorm(60),class rep(rep(letters[1:3], each10),2),treatment rep(c(elevated,ambient),each30),indexrep(seq(1,30),2))head(data)# 设置颜色模式
palette - c(brewer.pal(7,Set2)[c(4,5)])###### 使用ggpaired函数 ###########
# ggpaired是ggpurb包中绘制配对箱线图的函数
ggpaired(data, x treatment, y BAI2013,fill treatment, # fill指定分组变量palette palette, # 颜色line.color grey50, # 散点连线颜色line.size 0.15, # 连线粗细point.size 1.5, # 散点大小width0.6, # 箱线图宽度facet.by class, # 分面变量short.panel.labs FALSE)
# 添加显著性检验
stat_compare_means(paired TRUE)
# 设置主题
theme_minimal()
theme(strip.background element_rect(fillgrey90),strip.text element_text(size13,faceplain,colorblack),axis.titleelement_text(size13,faceplain,colorblack),axis.text element_text(size11,faceplain,colorblack),panel.backgroundelement_rect(colourblack,fillNA),panel.gridelement_blank(),legend.positionnone,legend.backgroundelement_rect(colourNA,fillNA),axis.tickselement_line(colourblack))ggsave(boxplot_line.pdf, height 5, width 8)
