时间戳

首页 > 解决方案 > 向现有条形图添加多个 y 轴和数据

r - 向现有条形图添加多个 y 轴和数据

问题描述

我试图找到答案，如何使用不同的方式将多个 y 轴添加到条形图中来说明我的数据，但一直无法找到我想要做的事情。到目前为止，我已经设法制作了一个漂亮的 barplot 1。 条形图

现在我想添加更多的 y 轴来添加其他变量作为我的条上方的点，就像在这个 barplot 2中一样。

具有更多 y 轴的条形图

到目前为止，我的代码看起来像这样：

dataH <- read.delim("~/Speciale/Data - Narsarsuaq/barplot_H.txt")

bilanH <- aggregate(cbind(X189,X197,X205,X212)~treatment , data=dataH , mean)
rownames(bilanH) <- bilanH[,1]
bilanH <- as.matrix(bilanH[,-1])

lim <- 30


error.bar <- function(x, y, upper, lower=upper, length=0.1,...){
  arrows(x,y+upper, x, y-lower, angle=90, code=3, length=length, ...)
}


stdevH <- aggregate(cbind(X189,X197,X205,X212)~treatment , data=dataH , sd)
rownames(stdevH) <- stdevH[,1]
stdevH <- as.matrix(stdevH[,-1]) * 1.96 / 10


ze_barplot <- barplot(bilanH , beside = T ,legend.text=T,density=c(0,15,15,15) , angle=c(0,45,0,135) , col="black" ,main="Total emission - High elevation", ylim=c(0,lim) , ylab="Emission rate (ng  cm-2 leaf area  h-1)")
barplotH <- error.bar(ze_barplot,bilanH, stdevH)

有没有一种简单的方法可以向我的条形图添加点？

标签： rbar-chartyaxis

解决方案

推荐阅读