3つ目のfor文がなぜエラーになるのか、わかる方いらっしゃいますか?
下記のコードは各オブジェクト作成からfor文の処理まで一部始終のコードと、途中からの出力結果となります。
とてもシンプルに書いているつもりなのですが、同じ構成の3つ目のfor文でエラーがでます。
ご存知の方いらっしゃいましたらご教授のほどお願いいたします。
環境は Windows 10 です。
書いたコード
av <- 1:8 #各ベクトル作成
bv <- 1:20
cv <- 1:40
avm <- av %>% matrix(nrow = 4) %>% as.data.frame() #各データフレーム作成
bvm <- bv %>% matrix(nrow = 4) %>% as.data.frame()
cvm <- cv %>% matrix(nrow = 4) %>% as.data.frame()
name1 <- letters[1:2] #準備
name2 <- letters[1:5]
name3 <- letters[1:10]
colnames(avm) <- name1 #各列名入れ
colnames(bvm) <- name2
colnames(cvm) <- name3
avm;bvm;cvm #確認
for (i in 1:2) {
a <- avm %>% filter(avm[i]<avm[4,i]) %>% select(name1[i])
a %>% print()
}
for (i in 1:5) {
a <- bvm %>% filter(bvm[i]<bvm[4,i]) %>% select(name2[i])
a %>% print()
}
for (i in 1:10) {
a <- cvm %>% filter(cvm[i]<cvm[4,i]) %>% select(name3[i])
a %>% print()
}
出力結果 (途中から)
> avm;bvm;cvm #確認
a b
1 1 5
2 2 6
3 3 7
4 4 8
a b c d e
1 1 5 9 13 17
2 2 6 10 14 18
3 3 7 11 15 19
4 4 8 12 16 20
a b c d e f g h i j
1 1 5 9 13 17 21 25 29 33 37
2 2 6 10 14 18 22 26 30 34 38
3 3 7 11 15 19 23 27 31 35 39
4 4 8 12 16 20 24 28 32 36 40
> for (i in 1:2) {
a <- avm %>% filter(avm[i]<avm[4,i]) %>% select(name1[i])
a %>% print()
}
a
1 1
2 2
3 3
b
1 5
2 6
3 7
> for (i in 1:5) {
a <- bvm %>% filter(bvm[i]<bvm[4,i]) %>% select(name2[i])
a %>% print()
}
a
1 1
2 2
3 3
b
1 5
2 6
3 7
c
1 9
2 10
3 11
d
1 13
2 14
3 15
e
1 17
2 18
3 19
> for (i in 1:10) {
a <- cvm %>% filter(cvm[i]<cvm[4,i]) %>% select(name3[i])
a %>% print()
}
エラー: Problem with `filter()` input `..1`.
i Input `..1` is `cvm[i] < cvm[4, i]`.
x undefined columns selected
Run `rlang::last_error()` to see where the error occurred.
cvm
にi
という名前のカラムがある事が原因です。なので、for (idx in 1:10) { c <- cvm %>% filter(cvm[idx]<cvm[4,idx]) %>% select(name3[idx]); c %>% print() }
としてみて下さい。cvm %>% ...
としていますので、filter 部分はfilter(.[idx]<.[4,idx])
と書けます。