aa <- gsub(x = row.names(tab.1), "(\\..*)", "")#句号后面的所有值作为一个整体被匹配替换 '\\d'#匹配所有数字 str_split(rownames(dat_ht29),'.',simplify = TRUE)#匹配任意字符str_split(rownames(dat_ht29),'\\.',simplify = TRUE)#匹配.本身
