r - 用 R 计算位于回归线上方和下方的点数

Question

如何计算散点图上回归线上方和下方的点数？

data = read.csv("info.csv")
par(pty = "s")
plot(data$col1, data$col2, xlab = "xaxis", ylab = "yaxis", xlim = c(0, 
  1), cex.lab = 1.5, cex.axis = 1.5, ylim = c(0, 1), col.lab = "red", 
  col = "blue", pch = 19)
abline(a = -1.21, b = 2.21)

Answer 1

x <- 1:10
set.seed(1)
y <- 2*x+rnorm(10)

plot(y~x)

fit <- lm(y~x)
abline(fit)

resi <- resid(fit)
#below the fit:
sum(resi < 0)
#above the fit:
sum(resi > 0)

编辑： 如果你做了（出于某种未知原因）这样的事情：

x <- 1:10
set.seed(1)
y <- 2*x+rnorm(10)

plot(y~x)
abline(-0.17,2.05)

你可以这样做：

yfit <- 2.05 * x - 0.17
resi <- y - yfit

sum(resi < 0)
sum(resi > 0)

Answer 2

如果我正确地阅读了这个问题，答案将是。

1. 确定回归线的方程——它是直的，形式为 y = mx +b，其中 m 是直线的斜率，b 是 y 截距。
2. 计算 x 域中每个 x 的 y 值。
3. 使用数据中的 y 值，确定它是否大于、等于或小于 y 的计算值

使用上述内容应该足以找到您所追求的数字（计数）。