R通过替换另一列中的值来更改gt table中有效数字的数量

Question

我正在尝试创建一系列 gt 表，其中的值显示给第 3 个 sig 图。因为我想显示非数字字符，所以我想显示的列是一个因素。最好的方法是什么？我以为我可以用数字列中的值替换因子列的值，但我不确定如何去做。下面的代码是一个更大数据集的示例，我想用 Area2

中相应的较短值替换 Area1 中的所有类似数值的值

Area1 <- as.factor(c(0,0, 0.50659782, "NS"))
Area2 <- c(NA, NA, 0.507, NA)
d <-data.frame(Area1, Area2) %>% gt()

基本上，我希望 Area1 列看起来像

Area1
0
0
0.507
NS

Answer 1

由于您的数据具有混合类型，因此数字已更改为 characters/factors。您可以使用正则表达式方法将数据保留到小数点后 3 位。

library(gt)
Area1 <- as.factor(c(0,0, 0.50659782, "NS"))
Area2 <- c(NA, NA, 0.507, NA)
d <-data.frame(Area1, Area2) 
d$Area1 <- ifelse(is.na(d$Area2), as.character(d$Area1), d$Area2)
d <- d[-2]
gt(d)

R通过替换另一列中的值来更改gt table中有效数字的数量

R change number of significant figures in a gt table by replacing values from another column

r

dataframe

gt