mutate 和 ifelse

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

a=mtcars%>% mutate(hp=as.character(hp),
                   wt=as.character(wt))
b=a %>% mutate(across(hp:am,
                      ~ifelse(is.character(.),as.numeric(.),.)))

结果为什么都变成同一个值了？应该怎么修改这个程序？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：else ATE ELS LSE UTA

具体原因我也没弄懂，可能是由于 is.numeirc() 对整个 x 列执行了操作，返回的是一个单一元素，然后自动填充到了所有行，所以后面替换的时候同样认为该用第一个元素填充所有行，因此列就变成了同一个值。

1. dat <- data.frame(x = 1:3, y = c("x", "y", "z"))
   
2. 
   
3. dat %>%
   
4.   mutate(z = ifelse(is.numeric(x), x, y))

复制代码

我尝试使用 map() 函数进行了同样的操作，结果原本三行的 data frame 变成只剩下一行，所以应该就是我猜测的原因，is.numeric(x) 只返回单一值，之所以在 data frame 里仍显示三行是因为 data frame 有个自动填充的机制，因此替换时也只替换第一个值，剩下的也是自动填充出来的，就导致了这一列都变成了同样的值。

1. map_df(dat, ~ ifelse(is.numeric(.x), as.character(.x), .x))

复制代码

要实现你的功能可以用

1. dat %>%
   
2.   mutate(across(hp:am & where(is.character), as.numeric))

复制代码

test test

s609078902 发表于 2021-12-29 09:55
要实现你的功能可以用

谢谢~~