Question

是否可以在write.csv中修正数字精度，比如2位小数？如果是，在这种情况下是否可以存储没有.00的整数？谢谢！

Answer 1

不在write.csv或write.table本身。从帮助文档（?write.table）：

几乎在所有情况下，数字量的转换都是由选项＆＃34;＆＃34; scipen＆＃34;＆＃39; （参见＆＃39;选项＆＃39;），但有了内部相当于＆＃39; digits = 15＆＃39;。为了更好的控制，请使用＆＃39;格式＆＃39;制作字符矩阵/数据框，然后调用＆＃39; write.table＆＃39;在那。

你最好做的是使用format自己格式化列，ala：

set.seed(42)
df1 <- data.frame(x = runif(10), y = sample(10))
df1$x <- round(df1$x, digits = 2)
write.csv(df1, ...)

<强> 修改：

要在屏幕上进行漂亮打印，只需使用options(digits = 2)并再次转储data.frame即可。我猜你想要漂亮地打印到CSV中，所以......

使用以下功能：

dfDigits <- function(x, digits = 2) {
    ## x is a data.frame
    for (col in colnames(x)[sapply(x, class) == 'numeric'])
        x[,col] <- round(x[,col], digits = digits)
    x
}
set.seed(42)
df1 <- data.frame(x=runif(5),y=sample(5))
head(df1)
##              x y
## 1 0.9148060435 3
## 2 0.9370754133 5
## 3 0.2861395348 1
## 4 0.8304476261 2
## 5 0.6417455189 4
head(dfDigits(df1, 2))
##      x y
## 1 0.91 3
## 2 0.94 5
## 3 0.29 1
## 4 0.83 2
## 5 0.64 4

R - 具有固定精度的write.csv

1 个答案: