Question

我正在处理一大堆数字。我知道如何将数字转换为逗号格式：Comma separator for numbers in R?。我不知道该怎么做是在控制台中用逗号显示数字而不用从数字转换类。我希望能够看到逗号，以便我可以在工作时比较数字 - 但需要将数字保持为数字以进行计算。我知道你可以从How to disable scientific notation?中删除科学记数法 - 但无法找到逗号或美元格式的等效词。

Answer 1

您可以为print()创建一个新方法，对于我称之为“bignum”的自定义类：

print.bignum <- function(x) {
    print(format(x, scientific = FALSE, big.mark = ",", trim = TRUE))
}

x <- c(1e6, 2e4, 5e8)
class(x) <- c(class(x), "bignum")

x

[1] "1,000,000"   "20,000"      "500,000,000"

x * 2

[1] "2,000,000"     "40,000"        "1,000,000,000"

y <- x + 1
y

[1] "1,000,001"   "20,001"      "500,000,001"


class(y) <- "numeric"
y

[1]   1000001     20001 500000001

对于任何数字对象x，如果您通过class(x) <- c(class(x), "bignum")将“bignum”添加到类属性，它将始终打印您所描述的打印方式，但应该表现为否则，如上所示。

在控制台中用逗号显示数字

1 个答案: