如何从命名号码中提取号码(没有名称)?


84

我只是在寻找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 

8
as.numeric(out$coefficients["newx"])
2013年

as.numeric是有效的。也许这是一种低成本的淘汰号码的方法?
安德烈Mikulec

1
您可以使用索引号newx(2)代替类似的名称out[[1]][[2]]
GürolCanbek

Answers:


110

对于这样的单个元素,请使用[[而不是[。相比:

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.


By using our site, you acknowledge that you have read and understand our Cookie Policy and Privacy Policy.
Licensed under cc by-sa 3.0 with attribution required.