我的数据如下。
my_d <- data.frame(
ID = paste('2019-', 1:10 , '-FB', sep = ''),
VAR = c('阿柏丁沙门氏菌','副溶血性弧菌','肠炎沙门氏菌','病牛沙门氏菌','里森沙门氏菌','阿柏丁沙门氏菌','副溶血性弧菌','肠炎沙门氏菌','病牛沙门氏菌','里森沙门氏菌')
)
my_d
将数据中的沙门菌的亚型全部替换成沙门氏菌,副溶仍为副溶。
my_d %>%
mutate(type = case_when(
VAR == '副溶血性弧菌' ~ '副溶血性弧菌',
VAR %in% c('阿柏丁沙门氏菌', '肠炎沙门氏菌', '病牛沙门氏菌', '里森沙门氏菌') ~ '沙门氏菌'
))
我想只要VAR中含沙门氏菌这个字的全另编码为沙门氏菌,但这个通配符一直没有写成功,请问各位大神应如何写.