控制从skimr输出到csv的十进制输出

Question

我可以通过这种方式控制skimr输出中的小数位：

library(skimr)
options(pillar.sigfig = 2)
skim(faithful)

但我需要能够将结果输出到 csv 文件。这样做，小数点不受影响。 如何修改 tibbles 的十进制输出以导出到 csv？

options(pillar.sigfig = 2)
skim(faithful)%>%
write.csv("~/test.csv")

Answer 1

skimr::skim()

使用pillar包在控制台中打印底层的

skim_df

对象。如果将

skim_df

写入 csv 文件，则不考虑打印选项。

您可以将

skim_df

视为

tibble

或

data.frame

。下面的代码将

skim_df

对象中所有数字列的小数位数缩短为 2。

library(skimr)
library(dplyr)
skim(faithful) |> 
  mutate(across(where(is.numeric), round, 2)) |> 
  write.csv("test.csv")