PROSAGA码农传奇-模型可视化-将abline添加到填充的等高线图中

将abline添加到填充的等高线图中

作者: 纾潆锦袖迷子
发布时间: 2024-12-19 05:57:53 (1月前)
转自：

<div class =“post-text”itemprop =“text”>
  <P>
    你可以扔掉
     <code>
      abline
    </code>
     在那里：
  </p>
   <pre>
    <code>
      library(MASS)

x <- c(21.06, 28.89, 23.00, 23.61, 23.61, 22.83, 30.44)
y <- c(26.56, 24.00, 13.06, 18.61, 18.61, 14.17, 25.33)
z <- kde2d(x, y, n = 32, lims = c(0, 32, 0, 32))

filled.contour(z,  plot.title={
  title(main = "Density estimation: contour plot")
  title(xlab=expression(alpha),cex.lab=2)
  mtext(expression(beta),2,cex=2,line=3,las=1)
  abline(0, 1, col = "red", lwd = 2)
})

</code>
  </pre>
  <P>
    <a href="https://i.stack.imgur.com/LF4ma.png" rel="nofollow noreferrer">
      <img src =“https://i.stack.imgur.com/LF4ma.png”alt =“在此处输入图片说明”/>
    </A>
  </p>
  <P>
    或者（正如评论中所建议的那样），你最好做一些事情：
  </p>
   <pre>
    <code>
      filled.contour(
  z,
  plot.title = {
    title(main = "Density estimation: contour plot")
    title(xlab = expression(alpha), cex.lab = 2)
    mtext(expression(beta), 2, cex = 2, line = 3, las = 1)
  },
  plot.axes = {
    abline(0, 1, col = "red", lwd = 2)
  }
)

</code>
  </pre>
  <P>
    只是因为感觉有点奇怪
     <code>
      abline
    </code>
     在
     <code>
      plot.title
    </code>
    。
  </p>
</DIV>