Question

考虑以下向量x

x <- c(6e+06, 75000400, 743450000, 340000, 4300000)

我希望用数百万打印x，所以我写了一个打印方法并为x

指定了一个类

print.million <- function(x, ...) {
    x <- paste0(round(x / 1e6, 1), "M")
    NextMethod(x, quote = FALSE, ...)
}

class(x) <- "million"

所以现在x将打印我想要的方式，数值也保持不变。

x
# [1] 6M     75M    743.5M 0.3M   4.3M  
unclass(x)
# [1]   6000000  75000400 743450000    340000   4300000

这是我想要解决的问题。当我将x放入数据框时，打印方法不再适用，并且x的数值正常打印。

(df <- data.frame(x = I(x)))
#           x
# 1     6e+06
# 2  75000400
# 3 743450000
# 4    340000
# 5   4300000

x列的类仍然是“百万”类，这绝对是我想要的。

df$x
# [1] 6M     75M    743.5M 0.3M   4.3M  
class(df$x)
# [1] "AsIs"    "million"

如何将x放入数据框并保持其打印方法？我已经尝试了data.frame()的所有参数，并且不知道在哪里转向下一个。

所需的结果是下面的数据框，其中x仍然是“百万”类，它保持其基础数值，并且还在数据框中打印，就像它是打印在矢量中的矢量一样。安慰。

#        x
# 1     6M
# 2    75M
# 3 743.5M
# 4   0.3M
# 5   4.3M

注意：此问题与an answer I posted earlier的第二部分有关。

Answer 1

您需要format方法和as.data.frame方法，例如：

x <- c(6e+06, 75000400, 743450000, 340000, 4300000)
class(x) <- 'million'
format.million <- function(x,...)paste0(round(unclass(x) / 1e6, 1), "M")
as.data.frame.million <- base:::as.data.frame.factor
data.frame(x)

在数据框中使用矢量的打印方法

1 个答案: