如何将一个data.table中的列中的某些行添加到标题下的另一个data.table中?

时间:2019-01-28 18:31:08

标签: r dynamic data.table paste

我正在尝试将一个数据集的某个列的某些值粘贴(我需要能够从第一列动态选择10-10k个值)到另一个数据集的列,但不覆盖第二个数据集的列值1 (这是标题名称)。有时,它只是列的一部分,而不是整个列。一些条目将是字符,而某些条目将是数字。

data.table1 :(无标题行)

extension EKEvent: EventStoreEvent {
    typealias MatchingEventStore = EKEventStore

    static func createEvent(eventStore: MatchingEventStore) -> Self {
        return self.init(eventStore: eventStore) 
    }
}

data.table2 :(具有标题行)

Row1: 21  32  77 ... 1293
Row2: 55  23  18 ... 2341 
Row3: 87  29  41 ... 8283
Rows++: ... (10k+rows long)

所需输出的示例,其中第一列包含data.table1中的值,而不会覆盖data.table2中row1中的标头:

data.table3:

Row1:    header1  header2  header3 ... header50
Row2:    123      char1    531     ... char5
Row3:    520      char2    488     ... 876 
Rows++: ... (10k+rows long)

我发现similar threads在讨论使用不同的方法粘贴整个列(这意味着包含标题的第一行将被覆盖)。

我将需要进行许多此类操作,并且还需要能够对任意data.table行位置执行此操作。因此,不仅要处理column1的row2-row50,还需要例如能够调整column10的row50-750。有没有办法用data.table做到这一点?谢谢

1 个答案:

答案 0 :(得分:0)

一个好朋友能够提供有关将一列移动到另一列(包括标题)的一些建议:

data.table2 $ V57 [2:nrow(data.table2)] <-data.table1 $ header3