Question

我想限制导入数据帧时的小数位数。我的.txt输入在collumn＆＃34; Value＆＃34;中的每一行都有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

使用mutate_if的dplyr解决方案来检查当前数据帧中的列是否为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（v0.2.1.9000）于2019-03-17创建}

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

Answer 4

我有一个13列的数据框，其中前2列是整数，其余的列是带小数的数字。我希望仅将十进制值限制为2个小数位。正在应用@G。上面的Grothendieck的方法，下面的简单解决方案：

DF[, 3:13] <- round(DF[, 3:13], digits = 2)

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

4 个答案: