根據數據框中另一列的值對數據框進行子集

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