Question

我有这种格式的数据框：

    19620101    1   2   4
    19630102    6   2   3
    19640103    0   2   3
    19650104    0   1   3

我想根据年份是偶数还是奇数将它拆分并存储到两个变量/数据帧中。

基本上，一个数据帧/变量将有几年

    19620101    1   2   4
    19640103    0   2   3

虽然另一个人将有奇数年：

    19630102    6   2   3
    19650104    0   1   3

我该怎么做？

Answer 1

> split(df, floor(df[[1]] / 1e4) %% 2 == 0)
$`FALSE`
        V1 V2 V3 V4
2 19630102  6  2  3
4 19650104  0  1  3

$`TRUE`
        V1 V2 V3 V4
1 19620101  1  2  4
3 19640103  0  2  3

Answer 2

如果年份存储在第一列的四个第一个字符中，则

split(d,as.numeric(substr(d$V1,1,4))%%2==0)

其中d是data.frame：

> d
        V1 V2 V3 V4
1 19620101  1  2  4
2 19630102  6  2  3
3 19640103  0  2  3
4 19650104  0  1  3

> dput(d)
structure(list(V1 = c(19620101L, 19630102L, 19640103L, 19650104L
), V2 = c(1L, 6L, 0L, 0L), V3 = c(2L, 2L, 2L, 1L), V4 = c(4L, 
3L, 3L, 3L)), .Names = c("V1", "V2", "V3", "V4"), class = "data.frame", row.names = c(NA, 
-4L))

如何将数据帧拆分为奇数和偶数年？

2 个答案: