有没有比我用过的R功能更好的功能？

Question

问题： “创建一个从1：10000开始的数字序列 然后从序列中的每个数字中减去10 将负数转换为正数 将pi舍入到12位小数位数”

解决方案： 绝对（c（1：10000）-10） 回合（pi，12）

有更好的解决方法吗？

Answer 1

但是，如何将输出中的所有负数转换为12位pi？

如果-按照我的解释，您要为范围内的每个数字将1：1000减少10，然后用12位pi替换此输出中的所有负数，则应使用：

unlist(purrr::map_if(
  1:10000-10,
  ~.x<0,
  ~round(pi, 12))
)

在此代码中，函数map_if（）（在purrr程序包中）将函数“通过舍入替换（pi，12）”应用于满足条件“ x <0”的范围内的所有对象，并保留其他值保持不变。

我能正确解释您的指示吗？