Rにて、水準ごとにlmを適用してできたネスト化させた結果から、fitted.valuesとresidualsを抜き出して、データフレームにしたいです。
ネスト化された結果。
R
1iris_lm <- iris %>% group_by(Species) %>% 2 do(lm.res = lm(Petal.Length ~ Sepal.Length, data = .)) 3iris_lm 4 5Source: local data frame [3 x 2] 6Groups: <by row> 7 8# A tibble: 3 × 2 9 Species lm.res 10* <fctr> <list> 111 setosa <S3: lm> 122 versicolor <S3: lm> 133 virginica <S3: lm>
上記の結果のそれぞれのlm.resからfitted.valuesとresidualsを抜き出して、
R
1# A tibble: 100 × 3 2 Species fitted.values residuals 3 <chr> <dbl> <dbl> 41 settosa 0.8427205 -0.14127031 52 settosa 1.0712530 0.87205722 63 settosa 1.4660155 0.41776090 74 settosa -1.2972719 0.25354917 85 settosa 1.6681062 -0.28979717 96 settosa -1.3240486 -0.47721307 107 settosa -1.1445078 0.66855635 118 settosa 2.7454380 -0.22341998 129 settosa -0.6715748 0.46132569 1310 settosa -0.9160007 -0.09503304 14※この値はデタラメ
というようなデータを作りたいのですが、良い方法はないでしょうか?
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。