在barplot中连接轴

Question

我希望消除x中y和barplot轴之间的差距，并将预测线延伸回y轴，最好是基线{ {1}}。这可能吗？感谢您提出任何建议或意见。

R

Answer 1

2014年11月26日编辑

我刚刚意识到两个情节不一样（原帖中的情节和我下面答案中的情节）。比较两条曲线，特别是在曲线的右侧。显然，两条曲线在不同位置与第八条杆的顶部相交。但是，我还没有时间弄清楚为什么情节不同。

---

这是将预测线外推回y轴的一种方法。我结合了rawr关于消除y轴和x轴之间间隙的建议。

setwd('c:/users/markm/simple R programs/')

jpeg(filename = "barplot_and_line.jpeg")

my.data <- read.table(text = '
   band  mid.point  count   
     1      0.5       74
     2      1.5       73
     3      2.5       79
     4      3.5       70
     5      4.5       78
     6      5.5       63
     7      6.5       59
     8      7.5       60
', header = TRUE)

x <- my.data$mid.point^2

my.model <- lm(count ~ x, data = my.data)

z <- seq(0,8,0.01)
y <- my.model$coef[1] + my.model$coef[2] * z^2

barplot(my.data$count, ylim=c(0,100), space=0, col=NA, xaxs = 'i')
points(z, y, type='l', col=1)

dev.off()