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

cqoc49vn 于 12个月前发布在其他

关注(0)|答案(1)|浏览(81)

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

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

字符串
但是我需要能够将结果输出到CSV文件。这样做，小数不受影响。我如何修改tibble的小数输出以导出到CSV？

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

型

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")

字符串