AscG Dan.4 IclR.3 MraZ.1
afaE      NA     1     NA      1
afaF      NA    NA     NA     NA
agn43.1    1    NA      1     NA
agn43.2    1    NA     NA     NA
agn43.3    1    NA     NA     NA
chuA      NA    NA     NA      1
csgA       1    NA     NA      1
csgB      NA    NA     NA     NA
csgC      NA    NA     NA     NA`

vec <- hits_map[row,]
vec <- remove_zero_cols(vec)
vec <- colnames(vec)
nameseq[nameseq$Name %in% vec,]