怎么把矩阵增加一个分组列

用R分析矩阵时我先得到了这样的一个矩阵data_L

这个GSE共有6个GSM（GSM3452888-GSM3452893），前3个为一组（sensitive组），后3个为（resistant组），怎么把矩阵data_L增加一列为每个GSM对应的分组
symbol sample value group
PAX8 GSM3452888 6.801758 sensitive1

如果只是两组的话比较简单，用stringr的str_detect函数就行了

library(stringr)
x <- ifelse(str_detect(data_L$sample,"GSM3452888"),"sensitive","resistant")