代码之家 › 专栏 › 技术社区 › NewUsr_stat

按列匹配两个矩阵

NewUsr_stat · 技术社区 · 11 年前

我有两个矩阵,如下所示:

ColumnA   ColumnB   ColumnC    ColumnD     
   A         D         N          F            
   DF        N         A          S    
   P         F         K          l      
   qw        AS        O          W    
             n         H          Q      
                       D          E

  ColumnA   ColumnB   ColumnC    ColumnD     
     A         DH        K          FS            
    np         N         A           S    
    AS         Q         O          lm      
     P         n         N          WE    
               AS        PV          Q      
                         NQ          E

我希望第三个矩阵C包含两个矩阵之间的公共元素。我试图使用R来完成这项工作,但这似乎是不可能的,因为这两个矩阵太大:约5000行和1500列。这两个矩阵具有相同的列数和相同的列名。

有人能帮我吗?

最好的

所需输出: C

ColumnA   ColumnB   ColumnC    ColumnD     
   A         N         N          S            
   P         AS        A          Q    
             n         K          E      
                       O

2 回复 | 直到 11 年前

akrun 11 年前

你可以试试

library(stringi)
#Here `A` and `B` are "data.frames"
m1 <- stri_list2matrix( Map(`intersect`, A, B), fill='')
C <- setNames(as.data.frame(m1, stringsAsFactors=FALSE), colnames(A))
C
#   ColumnA ColumnB ColumnC ColumnD
# 1       A       N       N       S
# 2       P      AS       A       Q
# 3               n       K       E
# 4                       O

或

lst <- lapply(rbind(A,B), function(x) x[duplicated(x)& x!=''] )
m2 <- sapply(lst, `length<-`, max(sapply(lst, length)))
m2[is.na(m2)] <- ''
as.data.frame(m2, stringsAsFactors=FALSE)
#  ColumnA ColumnB ColumnC ColumnD
#1       A       N       K       S
#2       P       n       A       Q
#3              AS       O       E
#4                       N

isebarn 11 年前

你知道如何使用sqlite吗?

在sqlite中,您可以尝试

SELECT DISTINCT newtable
FROM A 
WHERE newtable Not IN (SELECT DISTINCT newtable FROM B)

创建.db文件不会太麻烦

注意:如果您正在运行linux,则已经安装了sqlite或sqlite3

推荐文章

Amp · 使用R ggplot2删除geom_radial中axis.line和panel.border之间的空格

1 年前

Hard_Course · 用另一列中的值替换行的最后一个非NA条目

1 年前

Mark R · 使用geom_sf()删除地球仪上不需要的网格线

1 年前

Joe · 根据对工作日和本周早些时候的日期的了解,找到一个日期

1 年前

Ben · 统计向量中的单词在字符串中出现的频率

1 年前

TheCodeNovice · R中符号格式的尾随零和其他问题[重复]

1 年前

katefull06 · 在R中使用terra修改范围时,会为单独的SpatRaster重写范围

1 年前

dez93_2000 · 在R管道子功能中引用管道对象的当前状态

1 年前

accibio · 在ggplot2中为同一变量创建两个连续的颜色渐变比例

1 年前

Mankka · 如何在Ggplot2中绘制均匀的径向图

1 年前