名前付き番号（名前なし）から番号だけを抽出するにはどうすればよいですか？

92

名前ではなく、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"])

— ベン

as.numericは機能します。多分それは数を強制するための低コストの方法ですか？

— アンドレミクレック2013

1

のnewxような名前の代わりに、（2）のインデックス番号を使用できますout[[1]][[2]]。

— GürolCanbek

117

このような単一の要素には、では[[なくを使用します[。比較：

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.

— ジョシュオブライエン
ソース

5

名前の削除に関する質問の場合は、別の方法があります

my_vec <- # some quantile function(returns named vector)
names(my_vec) <- NULL
my_vec
## [1] 1 2 3

— プラディープシン
ソース

0

別の方法は、broomパッケージを使用することです。

broom::tidy(out)$estimate[1]
#1.5

— AlexB
ソース