基于与数据框比较的列表中的 R 子集

Question

我有一个包含一系列加载文件的列表。我希望对这个列表进行子集化，以从每个文件中获取与另一个数据框中的值匹配的结果。

例如下面的测试代码：

data.coords1 <- c(1,6,7,9,18)
data.lett1 <- c("T","T","G","C","T")

data1 <- cbind(data.coords1, data.lett1)

data.coords2 <- c(2,4,19,20)
data.lett2 <- c("G","T","G","C")

data2 <- cbind(data.coords2, data.lett2)

data.coords3 <- c(10,11,12,13,15,17)
data.lett3 <- c("C","T","C","C","T","G")

data3 <- cbind(data.coords3, data.lett3)

data.list <- list(data1, data2, data3)

ref.coords <- c(1:20)
ref.mark <- letters[1:20]
ref.MARK <- LETTERS[1:20]

ref <- cbind(ref.coords, ref.mark, ref.MARK)

我可以通过以下方式获得我想要的（对于一个列表元素）：

desired.data <- merge(data2,ref, by.x="data.coords1",
                       by.y="ref.coords", sort=F)

但是我怎样才能轻松地为整个列表做到这一点呢？

Answer 1

lapply(1:length(data.list), function(i) merge(data.list[[i]],ref, by.x=paste0("data.coords",i), by.y="ref.coords", sort=F))
[[1]]
  data.coords1 data.lett1 ref.mark ref.MARK
1            1          T        a        A
2            6          T        f        F
3            7          G        g        G
4            9          C        i        I
5           18          T        r        R

[[2]]
  data.coords2 data.lett2 ref.mark ref.MARK
1            2          G        b        B
2            4          T        d        D
3           19          G        s        S
4           20          C        t        T

[[3]]
  data.coords3 data.lett3 ref.mark ref.MARK
1           10          C        j        J
2           11          T        k        K
3           12          C        l        L
4           13          C        m        M
5           15          T        o        O
6           17          G        q        Q