当应用 tapply() 时，R 中数据帧的原始数字突然发生变化

Question

我在R中经常使用tapply（），但我不知道为什么在应用tapply（）函数后突然转换了数量级。

当我加载原始CSV数据时，数据显示如下。

Barcode        Group     Price
1002-01-23       A       10.23568975
1002-01-24       A       2356.25
1002-01-25       A       123.54897
1002-01-26       A       200.1548794

但是，在我使用 R 代码后，价格的数字转换如下。

Barcode        Group     Price         mean
1002-01-23       A       10.23569      672.5474
1002-01-24       A       2356.25000    672.5474
1002-01-25       A       123.54897     672.5474
1002-01-26       A       200.15488     672.5474

我想要 672.5473847875（=（10.23568975+2356.25+123.54897+200.1548794）/4） 作为平均值的结果。我该如何解决问题？让我向您展示我的R代码。

barcode <- read.csv("barcode.csv",header=T)
barcode$Group <- as.factor(barcode$Group)
barcode$Price <- as.numeric(barcode$Price)
test <- tapply(barcode$Price, barcode$Group, mean)
test1 <- data.frame(Group=names(test), mean=test)
barcode$mean <- test1$mean[match(barcode$Group, test1$Group)]

我真的需要你的帮助。非常感谢。

Answer 1

均值计算正确。查看此情况的最简单方法是对其进行测试：

barcode$mean == 672.5473847875
[1] TRUE TRUE TRUE TRUE

您可以更改打印的默认位数

，例如

options(digits=15)