如何解决R - 用条件语句和子字符串替换数据帧中的值
我有一个数据框 df
这是一个包含数百列数据的大型数据框。特别是 40 列具有相似名称的数据 TD1,TD2 ..... TD40。我想扫描每一行,如果有任何值以 Z50 开头,我希望 Category 列中的行值更改为“Surgery”。因此,在上面的示例中,第 1 行和第 3 行将从“心脏”转换为“手术”。
在整个代码为 Z50 的类似示例中,我使用了:
df %>%
rowwise()%>%
mutate(Category = if(any(c_across(starts_with("TD")) == "Z50"))
"Surgery" else Category)
现在我只希望前 3 个字符等于 Z50。我假设我会使用 grepl 函数,但不确定如何将其合并到原始代码中。嗯,到目前为止它对我不起作用。 有任何想法吗?。谢谢
解决方法
我们可以尝试使用 apply
和 grepl
作为基本 R 选项:
idx_start <- grep("^TD1$",names(df))
idx_end <- grep("^TD40$",names(df))
df$Category <- apply(df,1,function(x) {
ifelse(sum(grepl("^Z50",x[idx_start:idx_end])) > 0,"Surgery",df$Category)
})
,
您可以使用 grepl
更改您的代码:
library(dplyr)
df %>%
rowwise()%>%
mutate(Category = if(any(grepl('^Z50',c_across(starts_with("TD")))))
"Surgery" else Category)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。