R语言 根据变量包含某些字符，生成新变量，(条件-字符生成新变量)

R语言

#加载包
library(tidyverse)
#字符包含
#向量情况
x <- c('1','a','2','abc')
str_which(x,'a')
#数据框情况
data=data.frame(
  row.names = c('QWE','TYE','WUN','EJN','JDB') ,
  Chinese = c(27, 88, 64,45, 67 ),
  Math =  c(72, 68, 42, 29, 87 ),
  gender = c(1, 2, 1, 2, 1),  #1=男 2=女
  bmi = c('正常','低体重','正常','超重','肥胖')
)
#提取包含某字符的数据的行
data[str_which(data$bmi,'正'),]
#条件设置分组,需要先生成变量
data$group <- 'Control'
data
a=str_which(data$bmi,'正')
data$group[a ] <- 'OSCC'
data
data$group[str_which(data$bmi,'正') ] <- 'OSCC2'
data