如何防止R在运行列表中的代码后将小数位从2减少到1？

发布于 2025-01-11 07:23:55 字数 737 浏览 0 评论 0原文

我想在列表中运行代码，刚刚发现，R 将我在列表中使用“子集”的列中的数字小数位从 2 减少到 1，并将原始两位向上或向下舍入。我希望 R 保留两位小数，或者为那些只有一位的人添加零。这是一个示例数据框：

set.seed(94756)

mat1 <- matrix(sample(seq(-1,100, 0.11),50, replace = TRUE),ncol = 5) 
mat1 <- as.data.frame(mat1)
colnames(mat1) <- c("C1","C2", "C3","C4", "C5")

mat2 <- matrix(sample(seq(-1,100, 0.11),50, replace = TRUE),ncol = 5)  
mat2 <- as.data.frame(mat2)
colnames(mat2) <- c("C1","C2", "C3","C4", "C5")

mat3 <- matrix(sample(seq(-1,100, 0.11), 50,replace = TRUE),ncol = 5)  
mat3 <- as.data.frame(mat2)
colnames(mat3) <- c("C1","C2", "C3","C4", "C5")

data <- list(mat1, mat2, mat3)

data2 <- lapply(data, subset, C4 > 10 & C4 <= 70)

提前致谢！

原文

I want to run a code within a list and just discovered, that R reduced the decimal places of the numbers from 2 to 1 in the column I use 'subset' in the list and rounds those with original two places up or down.
I would like R to let both decimal places or add a zero to those who only have one.
Here an example data frame:

set.seed(94756)

mat1 <- matrix(sample(seq(-1,100, 0.11),50, replace = TRUE),ncol = 5) 
mat1 <- as.data.frame(mat1)
colnames(mat1) <- c("C1","C2", "C3","C4", "C5")

mat2 <- matrix(sample(seq(-1,100, 0.11),50, replace = TRUE),ncol = 5)  
mat2 <- as.data.frame(mat2)
colnames(mat2) <- c("C1","C2", "C3","C4", "C5")

mat3 <- matrix(sample(seq(-1,100, 0.11), 50,replace = TRUE),ncol = 5)  
mat3 <- as.data.frame(mat2)
colnames(mat3) <- c("C1","C2", "C3","C4", "C5")

data <- list(mat1, mat2, mat3)

data2 <- lapply(data, subset, C4 > 10 & C4 <= 70)

Thanks in advance!

分享到QQ

分享到微博