Rではじめるデータサイエンス

20.2

 

gapminder

359

たり、要素抽出したときに、他方も同様に並べ替えたり要素抽出しないといけません。それを忘れる

と、コード実行を継続しても間違った答えになります。

20.2.3

 入れ子解消

以前に、単一データセットの単一モデルの残差を計算しました。今度は142データフレームと142

モデルです。残差計算には、各モデル・データのペアに

add_residuals()

を呼び出す必要があります。

by_country <- by_country %>%

mutate(

resids = map2(data, model, add_residuals)

)

by_country

#> # A tibble: 142

×

5

#> country continent data model

#> <fctr> <fctr>

<list> <list>

#> 1 Afghanistan Asia <tibble [12

×

4]> <S3: lm>

#> 2 Albania Europe <tibble [12

×

4]> <S3: lm>

#> 3 Algeria Africa <tibble [12

×

4]> <S3: lm>

#> 4 Angola Africa <tibble [12

×

4]> <S3: lm>

#> 5 Argentina Americas <tibble [12

×

4]> <S3: lm>

#> 6 Australia Oceania <tibble [12

×

4]> <S3: ...