应用 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码后，Price的数字转换如下

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)

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

Sudden changes on the original digits of data frame in R, when tapply() applied

r

tapply