是否有一種簡單的方法可以基於多個點計算線性回歸斜率？

Question

data <- data.frame(Year1 = c(4, 2), Year2 = c(0, 10), Year3 = c(5, 6), Year4 = c(18, 4))

給定上面包含2年/列的2行/觀測值。 我想讓R基於每個觀察的所有4個點計算線性回歸線的斜率。

斜率值應出現在數據框右側的新列中。

slope_data <- data.frame(Year1 = c(4, 2), Year2 = c(0, 10), Year3 = c(5, 6), Year4 = c(18, 4), Slope = c(5, 5))

我想知道是否有一個簡單的函數或程序包可以實現這一目標？

Answer 1

根據評論，這將需要兩行以上。 您可以使用lm獲取一行的所需斜率，並使用sapply獲取所有行的斜率。

Slope = function(x) {
    TempDF = data.frame(x, year=1:ncol(data))
    lm(x ~ year, data=TempDF)$coefficients[2]
}

TData = as.data.frame(t(data))
data$slope = sapply(TData, Slope)
data
  Year1 Year2 Year3 Year4 slope
1     4     0     5    18   4.7
2     2    10     6     4   0.2