当我将其保存到 csv 时，为什么此交叉表会更改结果？

Question

数据示例：

s2_nnormalefietsen_voor<- c("2+", "1", "0", "2+", "1", "0", "0", "1", "1", "0")
s2_nnormalefietsen_nu<- c("2+", "2+", "0", "2+", "1", "1", "0", "1", "0", "2+")

nnormalefietsen<- data.frame(s2_nnormalefietsen_voor, s2_nnormalefietsen_nu)

我有此代码用于创建一个crosstab：

source("http://pcwww.liv.ac.uk/~william/R/crosstab.r")
crosstabs_nnormalefietsen <- crosstab(nnormalefietsen, row.vars = "s2_nnormalefietsen_voor", col.vars = "s2_nnormalefietsen_nu", type = "t")
crosstabs_nnormalefietsen <- crosstabs_nnormalefietsen$table/1961

write.csv(crosstabs_nnormalefietsen,"crosstabs_nnormalefietsen.csv")

此代码：

crosstab(nnormalefietsen, row.vars = "s2_nnormalefietsen_voor", col.vars = "s2_nnormalefietsen_nu", type = "t")

返回以下内容：

                        s2_nnormalefietsen_nu      0      1     2+    Sum
s2_nnormalefietsen_voor                                                  
0                                               8.61   0.57   0.26   9.44
1                                               0.73  20.24   2.40  23.37
2+                                              0.63   1.77  64.79  67.19
Sum                                             9.96  22.59  67.45 100.00

但是此代码：

crosstabs_nnormalefietsen <- crosstab(nnormalefietsen, row.vars = "s2_nnormalefietsen_voor", col.vars = "s2_nnormalefietsen_nu", type = "t")
crosstabs_nnormalefietsen <- crosstabs_nnormalefietsen$table/1961

write.csv(crosstabs_nnormalefietsen,"crosstabs_nnormalefietsen.csv")

返回此：

我知道它可能会将小数点移至点，但是为什么要做实际数字改变了吗？