如何按行号拆分数据帧

Question

我有一个包含8588行和91列的数据集。我想根据预定的行号将其分为两个新的数据帧。

示例

第一个数据帧

1 A
2 B
3 C
4 D
5 E
6 F
7 G
8 H
9 I
10 J

第二个数据框包含行号

4
7
5
1
9

第三个数据框包含行号

6
10
2
3
8

结果是这样的

第一个新数据帧

4 D
7 G
5 E
1 A
9 I

第二个新数据框

6 F
10 J
2 B
3 C
8 H

问题是如何执行此操作？ 谢谢

Answer 1

我们可以根据值subset match然后选择order和df1 <- subset(df, V1 %in% c(4,7, 5,1,9)) df2 <- subset(df, V1 %in% c(6,10, 2,3,8)) df1 <- df1[order(match(df1$V1, c(4,7, 5,1,9))), ] df1 # V1 V2 #4 4 D #7 7 G #5 5 E #1 1 A #9 9 I df2 <- df2[order(match(df2$V1, c(6,10, 2,3,8))), ] df2 # V1 V2 #6 6 F #10 10 J #2 2 B #3 3 C #8 8 H 。

    if (!char.IsDigit(e.KeyChar) && !char.IsControl(e.KeyChar))
    {
        e.Handled = true;
        MessageBox.Show("Incorrect Character!");
    }