限制数据帧中的小数位数（R）

Question

我想限制导入数据帧时的小数位数。我的.text输入在“值”列中的每一行都有16位小数。我的数据框看起来像这样：

Value 

0.202021561664556
0.202021561664556
0.202021561664556
0.202021561664556
...

我预期的数据框架

Value
0.20202156
0.20202156
0.20202156
0.20202156
...

无效的实际输入（DF）：

DF <- "NE001358.Log.R.Ratio
    -0.0970369274475688
    0.131893549586039
    0.0629266495860389
    0.299559132381831
    -0.0128804337656807
    0.0639743960526874
    0.0271669351886552
    0.322395363972391
    0.179591292893632"

DF <- read.table(text=DF, header = TRUE)

Answer 1

这里is.num是数字列的TRUE，否则是FALSE。然后我们将round应用于数字列：

is.num <- sapply(DF, is.numeric)
DF[is.num] <- lapply(DF[is.num], round, 8)

如果您的意思不是您需要更改数据框而只是想要将数据框显示为8位数，那么它只是：

print(DF, digits = 8)

Answer 2

使用dplyr检查当前数据框中的列是否为mutate_if的numeric解决方案然后将round()函数应用于它们

# install.packages('dplyr', dependencies = TRUE)
library(dplyr)

DF <- DF %>% 
  mutate_if(is.numeric, round, digits = 8)
DF

#>   NE001358.Log.R.Ratio
#> 1          -0.09703693
#> 2           0.13189355
#> 3           0.06292665
#> 4           0.29955913
#> 5          -0.01288043
#> 6           0.06397440
#> 7           0.02716694
#> 8           0.32239536
#> 9           0.17959129

由reprex package创建于2019-03-17（v0.2.1.9000）

Answer 3

只需将此副本放入utils目录中项目的路径中，并在运行脚本时将其复制

"formatColumns" <-
 function(data, digits)
 {
    "%,%" <- function(x,y)paste(x,y,sep="")
    nms <- names(data)
    nc <- ncol(data)
    nd <- length(digits)
    if(nc!=nd) 
      stop("Argument 'digits' must be vector of length " %,% 
           nc %,% ", the number of columns in 'data'.")
    out <- as.data.frame(sapply(1:nc, 
                         FUN=function(x, d, Y)
                         format(Y[,x], digits=d[x]), Y=tbl, d=digits))
    if(!is.null(nms)) names(out) <- nms
    out
}

现在你可以高枕无忧了

formatColumns(MyData, digits=c(0,2,4,4,4,0,0))

et cetera et cetera et cetera