r - 使用 gsub 删除字符串但不是数字
问题描述
我有一个看起来像这样的数据框
id col1
1 4
2 -
3 +
4 _
5 N
6 text-abc
7 50
我的目标是拥有一个如下所示的数据框:
id col1
1 4
2 0
3 0
4 0
5 0
6 0
7 50
我想保持数值不变,并将“-”、“+”、“_”、“N”和“text-abc”转换为零。也就是说,我只希望数值出现在此列中,将文本和其他字符串转换为零并保持数值不变。这是一个很长的列(即数千行),可能包含其他不必要的文本。
为了解决这个问题,我尝试使用以下方法手动执行此操作:
df$col1 <- gsub("text-abc", 0, df$col1)
df$col1 <- gsub("+", 0, df$col1)
df$col1 <- gsub("-", 0, df$col1)
df$col1 <- gsub("_", 0, df$col1)
df$col1 <- gsub("N", 0, df$col1)
但是,如前所述,这对于大量数据集是不切实际的。因此,我尝试了以下方法:
df$col1 <- gsub("[^[[:alnum:]]", 0, df$col1)
但它只是将“text-abc”更改为“text0abc”,而不是将整个内容变为 0。理想情况下,我希望该列仅包含数值。
任何帮助将不胜感激。非常感谢您抽出宝贵时间!
解决方案
我们可以使用as.numeric
将非数字列更改为NA
s ,然后将那些NA
's 转换为 0,而不是逐个转换列。
df$col1 <- as.numeric(df$col1)
#Use this if `col1` is factor
#df$col1 <- as.numeric(as.character(df$col1))
df$col1[is.na(df$col1)] <- 0
df
# id col1
#1 1 4
#2 2 0
#3 3 0
#4 4 0
#5 5 0
#6 6 0
#7 7 50
推荐阅读
- python - 创建将密码存储在文本文件中的登录脚本如何创建多个密码
- python - 从数字列表创建模式
- mlflow - 有没有办法在 MLflow 的实验级别管理权限?
- html - 具有反向可折叠行的响应式 HTML 表格
- angular - 如何在angular8 SSR上添加带有哈希文件的动态链接标签预取
- python - 执行 Python 脚本时更改命令提示符窗口的字体颜色
- julia - 在 Julia 中使用分布式和 SharedArrays
- reactjs - ReactJS:当 props 不是数组时?
- postgresql - 气流获取受 Postgres 运算符影响的行
- c# - 从 ML.Net fasttree 模型中获取 RegressionTree