求助：无法修改R语言数据框中均值的小数位数，求解决方案

我来帮你搞定这个小数位数控制的问题！你遇到的情况是：虽然设置了scipen=999避免了科学计数法，但Mean行的数值默认显示了全部精度，而你之前的代码只处理了百分比行（6-9行），没对Mean做针对性的小数位数控制。

具体解决方案 #

根据你的需求，分两种情况处理：

1. 保留数值型（后续还能做计算）

如果只是想让Mean显示更少的小数位，但仍然保持数值类型，用round()函数四舍五入到指定位数（比如2位）：

# 在处理百分比行之前，先修改Mean的小数位数
df["Mean", "Value"] <- round(df["Mean", "Value"], 2)

2. 转为字符型（固定显示格式）

如果希望Mean以固定小数位数的文本形式展示（比如强制显示2位小数，即使末尾是0），可以用format()配合round()：

df["Mean", "Value"] <- format(round(df["Mean", "Value"], 2), nsmall = 2)

修改后的完整代码 #

把上面的逻辑整合到你的原有代码中，示例如下（这里以保留2位小数为例，你可以根据需求修改数字）：

options(scipen=999)
df <- data.frame(rbind(Count, Min, Max, Mean, Median, Percmissing, PercZero, Percone, Percnegative))
rownames(df) = c("Number of policies", "Min", "Max", "Mean", "Median", "% Missing", "% Zero", "% One", "% Negative")
colnames(df)= c("Value")

# 先处理Mean的小数位数
df["Mean", "Value"] <- round(df["Mean", "Value"], 2)

# 再处理百分比行
df[c(6:9),]<-as.character(percent(df[c(6:9),]))

补充说明 #

• 你可以把round()里的第二个参数改成任意你需要的位数，比如round(x, 0)就是取整，round(x, 3)就是保留3位小数。
• 如果你的Median也需要控制小数位数，用同样的方法处理即可：df["Median", "Value"] <- round(df["Median", "Value"], 2)。

内容的提问来源于stack exchange，提问作者user9498314