r - 从数字元素中删除不需要的 0 - R
问题描述
新R比,
我正在尝试从我的数据框中清除 3 列数据df
。这些列由数值元素组成,其值范围为 0.19、687.00、49405、107.440、13764.000、1.740。df
出于本示例的目的,我将在下面创建。目标是将这行代码实现到 dplyr 的 mutate 函数中,以便从data.frame
.
例子:
df <- c(1.560, 1.790, 3456.000, 1.0700, 0.16000, 1.347, 4.200)
我一直在尝试删除元素末尾的 0,以便它们看起来像这样
df <- c(1.56, 1.79, 3456, 1.07, 0.16, 1.347, 4.20)
通过运行下面的代码行,我可以部分实现我想要的结果:
signif(df[1], 5)
signif(df[2], 5)
signif(df[3], 5)
signif(df[4], 5)
signif(df[5], 5)
signif(df[6], 5)
signif(df[7], 5)
df[7] 元素4.200
返回4.2
虽然如果我这样做,我必须一个一个地做这个: signif(df[1:6], 5)
,我得到这个向量返回1.560 1.790 3456.000 1.070 0.160 1.347 4.200
- 我还尝试使用正则表达式在对象末尾提取 0 的模式,但我使用的任何量词或表达式似乎都删除了所有尾随零。我正在考虑删除最后一个数字,如果它是 0,让数字
1.347
保持原样,但清理列的其余部分,然后删除一个完全匹配的".00"
整数,得到一个完整的整数离开3456
和“4.20”。当"(\\.000)$"
用于匹配和删除(例如4128.000, 13764.000
)中的 0 时,其他元素也删除了它们的 0(例如4.2
,0.9
)而不是离开4.200
and0.900
,我想从中提取4.20
and0.90
。使用"(0)$"
也不起作用,我已经尝试了过多的正则表达式变体来实现这一点......任何 ehlp 将不胜感激。
解决方案
sub
确实,使用该模式或使用该模式会消失尾随“000” gsub
,但不是因为模式匹配任何字符。相反,这完全是因为初始转换为“字符”类:
> df <- c(1.560, 1.790, 3456.000, 1.0700, 0.16000, 1.347, 4.200)
>
> sub("\\.000","",df)
[1] "1.56" "1.79" "3456" "1.07" "0.16" "1.347" "4.2"
> as.character(df) #no `sub(` at all
[1] "1.56" "1.79" "3456" "1.07" "0.16" "1.347" "4.2"
如果你想要小数点右边的 2 位数字,你可以这样做:
format(as.vector(df), digits=2)
[1] " 1.56" " 1.79" "3456.00" " 1.07" " 0.16" " 1.35" " 4.20"
并摆脱引号使用print
(尽管它们仍然是字符值,因此您不能对该结果使用算术运算符。:
print(format(as.vector(df), digits=2) , quote=FALSE)
[1] 1.56 1.79 3456.00 1.07 0.16 1.35 4.20
推荐阅读
- amazon-web-services - AWS Cloudwatch 警报触发 lambda
- python - Keras回归预测与输出维度不同
- amazon-cloudformation - 在 Cloudwatch 仪表板模板 (Cloudformation) 中使用伪变量
- gcc - 将本机节点模块编译到 Android 时无法链接库。使用 -fPIC 标志时出现 -fPIC 问题重新编译
- javascript - Sourcemap 在 Sentry 中无效或不可解析
- guid - ProductCode (GUID) 用于为 AutoCAD 自动加载 DLL
- java - Tomcat 优雅关闭
- node.js - 如何在 Service 构造函数中对 Controller 进行单元测试和模拟 @InjectModel
- tomcat - Tomcat 服务器的 JVM 可用内存未返回给操作系统
- javascript - 如何打印我放入的文件的文件名在一个?