如何替换字符

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

请教大家，我有一个data，几乎都是数字，但是零星夹杂着“？”，”not found“。怎样讲表格中的这些字符全部用数字0来代替呢？

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：found Data und not Fou

data[is.numeric(data)==FALSE]<-0

正直者之死 发表于 2018-12-30 19:42
data

不行的，这样会导致含有字符的那一列的其他所有数字都变成了0

1. gsub("[^0-9]", "0", data)

复制代码

fyc7346165 发表于 2018-12-30 21:16

不行的，这样得到是一个巨大的字符串，而不是原来的数据框。

lanhong1993 发表于 2018-12-31 10:29
不行的，这样得到是一个巨大的字符串，而不是原来的数据框。

不明白你在说什么，你有一个data，这个data是什么？一个向量？一个矩阵？一个数据框？

fyc7346165 发表于 2018-12-31 11:32
不明白你在说什么，你有一个data，这个data是什么？一个向量？一个矩阵？一个数据框？

不好意思，是我没表达清楚，是数据框。

library(tidyverse)
data %>% mutate_at(.vars = vars(......), .fun = function(x) ifelse(is.na(as.numeric(x)), 0, as.numeric(x)))

lanhong1993 发表于 2018-12-31 10:29
不行的，这样得到是一个巨大的字符串，而不是原来的数据框。

那用lapply函数就好了

1. data[] <- lapply(data, function(x) gsub("[^0-9]", "0", x))

复制代码