PROSAGA码农传奇-模型可视化-R：绘制三个值x轴[保持]

<div class =“post-text”itemprop =“text”>
  <P>
    我回应@ divibisan的评论，如果你只是想快速想要带有误差条的情节，那么你应该看看
     <code>
      ggplot2::geom_errorbar
    </code>
    。
  </p>
  <P>
    但是，如果你想要对绘图表面的每个方面进行精细控制，但是以更多的输入为代价，那么这是一种方法：
  </p>
   <pre>
    <code>
      # example data
randos <- runif(5, 0, 1)
df <- data.frame(
    v1 = randos,
    v2 = randos+1,
    v3 = randos+2
)

# create empty plot
plot(x=1:nrow(df), y=1:nrow(df), pch=NA, # plot some data but don't show it
    ylim=c(0, ceiling(max(df)+2)),       # adjust y axis limit
    xaxt="n", yaxt="n",                  # remove axes
    bty="n",                             # remove box around plot
    xlab="", ylab="", main="")           # label axes and title

# add vertical lines
for(i in 1:nrow(df)) {
    points(x=c(i,i), y=c(df$v1[i], df$v3[i]), type="l")
}

# add horizontal lines
points(x=1:nrow(df), y=df$v2, type="l")

# add points
points(x=1:nrow(df), y=df$v1, pch=15, col="forestgreen")
points(x=1:nrow(df), y=df$v2, pch=19, col="forestgreen")
points(x=1:nrow(df), y=df$v3, pch=8,  col="forestgreen")

# add back axes
axis(side=1, 1:nrow(df))
axis(side=2, 0:(ceiling(max(df))+2))

# an example of how to add text
text(x=1:nrow(df), y=df$v3, labels=format(df$v3,digits=2), pos=3)

</code>
  </pre>
  <P>
    <a href="https://i.stack.imgur.com/qZdpj.png" rel="nofollow noreferrer">
      <img src =“https://i.stack.imgur.com/qZdpj.png”alt =“example_plot”/>
    </A>
  </p>
</DIV>