如何解决在 R 中为特定行替换和交换一个值
在以下数据框中,如何将所有 1
替换为 2
,将所有 2
替换为 1
,并保持 3
不变
mydf=structure(list(x1 = c(1L,2L,3L,1L),x2 = c(2L,1L,3L),x3 = c(1L,x4 = c(1L,1L)),row.names = 5:8,class = "data.frame")
mydf
x1 x2 x3 x4
5 1 2 1 1
6 2 1 2 2
7 3 2 2 1
8 1 3 1 1
感谢任何形式的帮助。
解决方法
基础 R :
mydf[] <- lapply(mydf,function(x) ifelse(x == 1,2,ifelse(x == 2,1,x)))
dplyr
:
library(dplyr)
mydf %>%
mutate(across(.fns = ~case_when(. == 2 ~ 1L,. == 1 ~ 2L,TRUE ~ .)))
# x1 x2 x3 x4
#5 2 1 2 2
#6 1 2 1 1
#7 3 1 1 2
#8 2 3 2 2
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。