我在 R 中遇到一个问题,我可以对列表中的元素运行 ifelse 语句,但是一旦我将 ifelse 语句放入 lapply 函数中,它就不再起作用。
这是我的例子。我正在使用三个数据框的列表:
> dflist
[[1]]
ID1 tID1
1 m1 1
2 m2 2
3 m3 3
4 m4 4
5 m5 5
[[2]]
ID2 tID2
1 m7 7
2 m8 8
3 m9 9
4 m10 10
5 m11 11
[[3]]
ID3 tID3
1 m13 13
2 m14 14
3 m15 15
4 m16 16
5 m17 17
6 m18 18
Run Code Online (Sandbox Code Playgroud)
如果数据帧有奇数行,我希望 R 将其标记为“ODD”。如果数据帧有偶数行,我只希望 R 输出相同的数据帧。我希望输出是一个列表。
当我编写独立的 ifelse 语句时,这有效:
> ifelse(nrow(dflist[[1]])%%2==!0, "ODD", …Run Code Online (Sandbox Code Playgroud)