Как мне установить подкадр данных на основе частичной строки из второго кадра данных?

Question

В Р ...

Я хотел бы установить подкадр данных A:

taxa        X16_K005A.S1.L1    X16_K007A.S1.L1    X16_K008A.S1.L1 
fish        0                  2                  4
dog         9                  0                  10 

на основе частичной строки из кадра данных B

K005A
K008A

чтобы получить фрейм данных только с первой строкой и строк с этой частичной строкой:

taxa   X16_K005A.S1.L1  X16_K008A.S1.L1 
fish   0                4
dog    9                10 

Я попытался grepl,% в% и strsplit без удачи

Answer 1

Вот возможность использования grep

dfA[, sapply(dfB[, 1], grep, colnames(dfA))]
#  X16_K005A.S1.L1 X16_K008A.S1.L1
#1               0               4
#2               9              10

---

Пример данных

dfA <- read.table(text =
    "taxa        X16_K005A.S1.L1    X16_K007A.S1.L1    X16_K008A.S1.L1
fish        0                  2                  4
dog         9                  0                  10 ", header = T)


dfB <- read.table(text =
    "K005A
K008A")