我正在寻找的只是 B1(newx) 线性模型系数的值，而不是名称。我只想要 0.5 的值。我不想要“newx”这个名字。
newx <- c(0.5,1.5.2.5)
newy <- c(2,3,4)
out <- lm(newy ~ newx)
out 看起来像：
Call:
lm(formula = newy ~ newx)
Coefficients:
(Intercept) newx
1.5 1.0
我到了这里。但现在我被困住了。
out$coefficients["newx"]
newx
1.0
as.numeric(out$coefficients["newx"])
as.numeric 确实有效。也许这是一种低成本的强制数字方式？
您可以使用
newx (2) 的索引号代替 out[[1]][[2]] 之类的名称。
J
Josh O'Brien
对于这样的单个元素，请使用 [[ 而不是 [。相比：
coefficients(out)["newx"]
# newx
# 1
coefficients(out)[["newx"]]
# [1] 1
更一般地，使用 unname()：
unname(coefficients(out)[c("newx", "(Intercept)")])
# [1] 1.0 1.5
head(unname(mtcars))
# NA NA NA NA NA NA NA NA NA NA NA
# Mazda RX4 21.0 6 160 110 3.90 2.620 16.46 0 1 4 4
# Mazda RX4 Wag 21.0 6 160 110 3.90 2.875 17.02 0 1 4 4
# Datsun 710 22.8 4 108 93 3.85 2.320 18.61 1 1 4 1
# Hornet 4 Drive 21.4 6 258 110 3.08 3.215 19.44 1 0 3 1
# Hornet Sportabout 18.7 8 360 175 3.15 3.440 17.02 0 0 3 2
# Valiant 18.1 6 225 105 2.76 3.460 20.22 1 0 3 1
## etc.
P
Pradeep Singh
如果问题是关于删除名称，另一种方法是在这里
my_vec <- # some quantile function(returns named vector)
names(my_vec) <- NULL
my_vec
## [1] 1 2 3
Á
Álvaro A. Gutiérrez-Vargas
一个简单而直接的方法是
as.numeric(out$coefficients["newx"])
A
AlexB
另一种方法是使用 broom 包：
broom::tidy(out)$estimate[1]
#1.5
有点矫枉过正，不是吗？您能否解释一下为什么这个解决方案比公认的答案更优雅/高效？我是从我最诚实的无知中问出来的，而不是带着迂腐的主题。
