ggplot：截断坐标轴的折线图（带误差线）

library("ggplot2")
library("ggbreak")
library(RColorBrewer)# 主题 ----------------------------------------------------------------------#自定义图表主题，对图表主题做精细调整；
top.mar=0.2
right.mar=0.2
bottom.mar=0.2
left.mar=0.2
#设置图例的位置、大小和样式，并对字体样式、坐标轴的粗细、颜色、刻度长度等进行限定；
##这里通过legend.position将图例置于绘图区域的左上方；
mytheme<-theme_classic()+theme(text=element_text(family = "sans",colour ="black",size = 12),legend.text=element_text(colour ="black",size = 8),legend.title=element_text(colour ="black",size = 10),legend.key.size=unit(4,units = "mm"),legend.position=c(0.10,0.88),axis.line = element_line(size =1,colour = "black"),axis.ticks = element_line(size = 1,colour = "black"),axis.ticks.length = unit(1.5,units = "mm"),plot.margin=unit(x=c(top.mar,right.mar,bottom.mar,left.mar),units="inches"))# 绘图 ----------------------------------------------------------------------dt <- read_excel('g:/脂肪酸文章/20221121/文章图片修改/数据/图2c.xlsx')
colnames(dt)
#dt$day <- factor(dt$day,levels=dt$day)
p <- ggplot(dt,aes(x=day,y=value,group=factor(group),col = group))
p1 <- p+geom_line(aes(color = group),size = 1.2)+geom_errorbar(aes(x = day,ymin = value - sd,ymax = value + sd,color = group),# 添加误差线width = 0.2,position = position_dodge(0),# 设置误差线颜色，宽度等size = 0.8)+mytheme+scale_color_manual(values = brewer.pal(5,'Dark2'))+scale_y_continuous(limits = c(0, 7),breaks = c(0.05,0.1,0.15,0.2),label = c("0.05","0.1","0.15","0.2"))+scale_y_break(c(0.2, 0.21),scales = "free",ticklabels=c(0.21,0.4,0.6,0.75),expand=expansion(add = c(0, 0)),space = 1)+scale_y_break(c(0.75, 2),scales = "free",ticklabels=c(2,3,4,5,6,7),expand=expansion(add = c(0, 0)),space = 1)+theme(axis.text = element_text(colour = 'black',size = 20),text = element_text(colour = 'black',size = 20))+labs(x = 'Days after pollination',y =expression(paste("Various fatty acids(mg "^"-1",")",sep = "")),col = '')+theme(axis.line.y.right  = element_line(colour = "white"),axis.text.y.right  = element_text(colour = 'white'),axis.ticks.y.right  = element_line(colour = 'white'),legend.position = 'top',legend.text = element_text(size = 15))
p1#8*10

ggplot：截断坐标轴的折线图（带误差线）相关推荐

R - ggplot绘制带误差线的柱状图
ggplot绘制带误差线的柱状图利用ggplot2 数据格式转换并做统计计算绘制图形 ## 模拟 ## 导入包 library(ggplot2) library(reshape2) library ...
pyqt5,Qchart画折线图,设定多个不同刻度的Y轴,修改自定义折线图的坐标轴,改变折线图的底色
就是这些自己遇到的需求: 如有不对,请大佬不吝赐教. Qchart设定多个不同刻度的Y轴修改自定义折线图的坐标轴改变折线图的底色,底色透明鼠标悬停事件 import datetime impor ...
R语言绘制带误差线的条形图
条形统计图是用一个单位长度表示一定的数量,根据数量的多少画成长短不同的直条.带误差的条形图可以通过误差线来判断显著性. 继续使用我们的汽车销售数据(公众号回复:汽车销售,可以获得该数据)来演示,先导入 ...
python 分布图_python数据分布型图表柱形分布图系列带误差线的柱形图
柱形分布图系列柱形分布图系列使用柱形图的方式展示数据的分布规律: 可以借助误差线或散点图: 带误差线的柱形图就是使用每个类别的均值作为柱形的高度: 再根据每个类别的标准差绘制误差线: 缺点:无法显 ...
Matlab绘制带误差线的柱状图
Matlab可绘制带误差线的柱状图(需下载barweb (BARgraph With Error Bars) - File Exchange - MATLAB Central并设置路径),成图如下所示 ...
matlab 条形图误差线,数据可视化系列：手把手教你绘制带误差线的条形图
原标题:数据可视化系列:手把手教你绘制带误差线的条形图条形图可以用于展示数据不同分类下的均值.中位数.标准差和置信区间等,Excel可以实现,但对于带误差线的条形图而言,还是比较麻烦的.R语言的基础 ...
python-科研绘图系列（1）-带误差线的柱状图
1.带误差线的柱状图 import numpy as np import pandas as pd import matplotlib.pyplot as pltfig=plt.figure(figs ...
vue使用d3数据可视化(柱状图、饼图、折线图带坐标轴）
1.安装依赖 npm install d3 --save-dev 2.页面中引入 <template> </template><script>import * as ...
ggplot绘制时间相关性折线图和面积图（2）
折线图和面积图属于时间相关的周期性图表,既往我们已经介绍了使用ggplot绘制简单折线图的,今天我们继续使用我们的GDP数据来进一步深入绘制折线图,数据来源于网址: http://www.icane. ...

ggplot：截断坐标轴的折线图（带误差线）

ggplot：截断坐标轴的折线图（带误差线）相关推荐

最新文章

热门文章