比较两个数据框并保留与特定行匹配的列

Question

我有两个数据框，它们有一行是唯一键，并且存在于两个数据集中。我只想保留那些与特定行值匹配的列。

对于以下数据，Data_1 的第一行为1,2,3,4，但Data_2 只有1,2,3。我想要比较或子集，这样Data_1 的第一行只有1、2、3，因为这些键只存在于两个数据帧中。

目标不是合并，而是根据两个不同数据帧的比较进行子集。

关于如何完成这项工作的任何建议？

Data_1

read.table(text = "A    B    C    D
       1    2    3    4
       1.1  1.2  1.3  1.4
       1.1  1.2  1.3  1.4
       1.1  1.2  1.3  1.4
       1.1  1.2  1.3  1.4
       1.1  1.2  1.3  1.4", header = T)

数据_2

read.table(text = "A1    B1    C1  
       1    2    3   
       1.0  2.2  4.3 
       1.0  2.2  4.3 
       1.0  2.2  4.3 
       1.0  2.2  4.3 
       1.0  2.2  4.3 ", header = T)

输出

只有 Data_1 发生变化，因为它有一个额外的行，根据第 2 行的值不在Data_2 中

read.table(text = "A    B    C
       1    2    3 
       1.1  1.2  1.3
       1.1  1.2  1.3
       1.1  1.2  1.3
       1.1  1.2  1.3
       1.1  1.2  1.3", header = T)

Answer 1

您的问题有些不清楚。但是，如果您只是尝试根据 data_2 中的一行对 data_1 进行子集化，则下面的代码将起作用。换句话说，下面的代码会生成您想要的“输出”数据框。

data_1 <- read.table(text = "A    B    C    D
                             1    2    3    4
                             1.1  1.2  1.3  1.4
                             1.1  1.2  1.3  1.4
                             1.1  1.2  1.3  1.4
                             1.1  1.2  1.3  1.4
                             1.1  1.2  1.3  1.4", header = T)

data_2 <- read.table(text = "A1    B1    C1  
                             1    2    3   
                             1.0  2.2  4.3 
                             1.0  2.2  4.3 
                             1.0  2.2  4.3 
                             1.0  2.2  4.3 
                             1.0  2.2  4.3 ", header = T)

output <- data_1[data_1[1,] %in% data_2[1,]]

    A   B   C
1 1.0 2.0 3.0
2 1.1 1.2 1.3
3 1.1 1.2 1.3
4 1.1 1.2 1.3
5 1.1 1.2 1.3
6 1.1 1.2 1.3