根据数据框中另一列的值子集数据帧

Question

可以使用dup$Number中的一列数值和DG中与dup$number匹配的子列，并将其作为新数据框返回？

dup
Number  Letter
      59                        Q
      91                        Q
      19                        Q
      17                        Q

DG
chr     pos             id ref alt refc altc qual cov line_21 line_26 line_28 line_31 line_32 line_38 line_40 line_41 line_42 line_45 line_48 line_49 line_57 line_59 line_69 line_73 line_75 line_83
1  2R 7006506 2R_7006506_SNP   C   A  169   26  999  29       0       0       0       2       0       0       0       0       0       0       0       0       0       0       0       0       2       -

Answer 1

尝试

indx <- grep('line', names(DG))
DG[indx[as.numeric(sub('.*_', '', names(DG)[indx])) %in% dup$Number]]
#  line_59
#1       0