谁能告诉我如何有条件地格式化我的data.table，以便数字>= 1000没有小数位，而低于1000的只有一个小数位？
这是我的data.table图片
回答 2
Stack Overflow用户
发布于 2022-06-22 12:52:50
您可以使用tibbles，它允许打印您喜欢的向量，请参阅vignette("pillar", package = "vctrs")。
如类似需求上的在这个答案中所示：
通过提供format()方法，可以基本控制如何在tibble中打印向量
要回答您的问题，可以创建扩展custom_numeric类numeric，请参阅vignette("s3-vector", package = "vctrs")
library(vctrs)
library(data.table)
library(tibble)
data <- data.table(a=1.11,b=100.11,c=1000.11)
custom_numeric<- function(x = numeric()) {
vec_assert(x, numeric())
new_vctr(x, class = "vctrs_custom_numeric")
}
# Create custom format
format.vctrs_custom_numeric<- function(x,...) {
sapply(vec_data(x),function(x) {if (x>1000) round(x) else x})
}
# Rename custom type name in column header
vec_ptype_abbr.vctrs_custom_numeric <- function(x) {
"numeric"
}
# Apply custom type to all numeric columns
data[,(names(data)):= lapply(.SD,function(col) if (is.numeric(col)) custom_numeric(col) else col )]
# Convert to tibble
tibble::tibble(data)
#> # A tibble: 1 × 3
#> a b c
#> <numeric> <numeric> <numeric>
#> 1 1.11 100.11 1000Stack Overflow用户
发布于 2022-06-22 13:46:50
使用data.table的开发版本(1.14.3)，您可以为format_col泛型实现一个数值方法。有关自定义data.table打印的更多信息，请访问这里。
下面是一个示例：
library(data.table)
update.dev.pkg() # to use the dev version
# sample data
set.seed(123)
dt = data.table(a=rnorm(10, 1000, 100), b=rnorm(10, 1000, 100))
# run dt before creating a numeric method for format_col generic
dt
# a b
# <num> <num>
# 1: 943.9524 1122.4082
# 2: 976.9823 1035.9814
# 3: 1155.8708 1040.0771
# 4: 1007.0508 1011.0683
# 5: 1012.9288 944.4159
# 6: 1171.5065 1178.6913
# 7: 1046.0916 1049.7850
# 8: 873.4939 803.3383
# 9: 931.3147 1070.1356
# 10: 955.4338 952.7209
# create a numeric method for format_col
format_col.numeric = function(x, ...) {
ifelse(abs(x)<=1000, round(x), round(x, 1))
}
# printing after
dt
# a b
# <num> <num>
# 1: 944 1122.4
# 2: 977 1036
# 3: 1155.9 1040.1
# 4: 1007.1 1011.1
# 5: 1012.9 944
# 6: 1171.5 1178.7
# 7: 1046.1 1049.8
# 8: 873 803
# 9: 931 1070.1
# 10: 955 953页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/72719680
复制相关文章
腾讯云开发者
