R水平条形图，顶部对齐绘图

Question

我无法在水平条形图顶部的绘图上找到正确的间距。这是与此处描述的相同的一般问题： http://www.r-bloggers.com/adding-lines-or-points-to-an-existing-barplot/

但我试图用“情节”而不是“点”或“线”。是否有使用绘图获得条形间距和点匹配的技巧？

代码：

barplot(df$DIC_mM,col=scalegreen, xlab="DIC mM", horiz=TRUE, xlim=c(0,0.7), 
         col.axis="white", col.lab="white", axes=FALSE, border="white")
axis(1,line=1,col="white",col.ticks="white",col.axis="white")
par(new = TRUE)
plot(df$d13DIC,df$Order, type="p", axes = FALSE, bty = "n", xlab ="",
      col="deepskyblue2", lwd=5, xlim=c(-50,170), lend=2, col.lab="white", ylab="")
axis(3,at = c(-50,0,50,100,150), line=1, col="deepskyblue2", col.ticks="deepskyblue2", 
      col.axis="deepskyblue2")
mtext(expression(paste(delta ^{13},'DIC'," \u0028","\u2030","\u0029")), 3, 
       line=-0.5,at=50,col="deepskyblue2", cex=0.75)

Answer 1

您是否有理由不想使用points添加积分？如果您愿意使用points，可以这样做：

创建条形图并将条形的y坐标保存到y。您还没有提供示例数据，因此我将使用内置的mtcars数据框：

y = barplot(mtcars$mpg[1:10], horiz=TRUE)

现在添加积分。我们使用y作为y值，因为它们是每个柱的中点的坐标：

points(sqrt(mtcars$mpg[11:20]), y, col="red", pch=16, cex=2)

当您使用par(new=TRUE)然后再次致电plot时，您将使用新坐标系覆盖新绘图，该坐标系通常与原始坐标系不同。

Answer 2

根据eipi10：midpoints returned by barplot function do not actually line up with midpoints of bars

建议的这篇文章，这是有效的

  

mp＆lt; -barplot（df $ DIC_mM，col = scalegreen，xlab =＆＃34; DIC mM＆＃34;，horiz = TRUE，xlim = c（0,0.7），col.axis =＆＃34; white＆ ＃34;，col.lab =＆＃34; white＆＃34 ;, axes = FALSE，border =＆＃34; white＆＃34;，ylim = c（0，length（df $ DIC_mM）+2））   轴（1，线= 1，列=＆＃34;白色＆＃34;，col.ticks =＆＃34;白色＆＃34;，col.axis =＆＃34;白色＆＃34）   par（new = TRUE）   plot（df $ d13DIC，mp，type =＆＃34; p＆＃34 ;, axes = FALSE，bty =＆＃34; n＆＃34;，xlab =＆＃34;＆＃34;，col =＆＃34 ; deepskyblue2＆＃34;，lwd = 5，xlim = c（-50,170），lend = 2，col.lab =＆＃34; white＆＃34;，ylab =＆＃34;＆＃34;，ylim = c（ 0，长度（DF $ DIC_mM）+2））   轴（3，at = c（-50,0,50,100,150），line = 1，col =＆＃34; deepskyblue2＆＃34;，col.ticks =＆＃34; deepskyblue2＆＃34;，col.axis =＆＃ 34; deepskyblue2＆＃34）   mtext（表达式（粘贴（delta ^ {13}，＆＃39; DIC＆＃39;，＆＃34; \ u0028＆＃34;，＆＃34; \ u2030＆＃34;，＆＃34; \ u0029＆＃34; ）），3，line = -0.5，at = 50，col =＆＃34; deepskyblue2＆＃34;，cex = 0.75）