变异mean（）无法正确计算平均值？

Question

我只能用我正在处理的数据集复制此示例，但是使用Mutate = mean（xx）却得到了奇怪的行为。这是我的上下文代码：

data %>%
  rowwise() %>%
  mutate(TP = mean(tp1:tp4),
         OCB= mean(ocb1:ocb4),
         GL= mean(gl1:gl4),
         JP= mean(tp1:gl4))

当我查看平均值时，它们看起来都不错。我正在检查我的工作，决定使用SPSS计算均值，并意识到我对我变异的上述列的均值是不正确的（有2-3个整数位相差1，即n = 120） ）。这是一个巨大的错误，尤其是因为我只要求它计算平均值。

数据全部干净，我没有丢失的数据。谁能告诉我为什么变异如此之大？同样，95％的均值是准确的，只有5％的均值是正确的（不是舍入误差）。