R中应用函数的铸造行为

Question

我正在努力解决R的一个特殊方面，我似乎无法理解这一点。

考虑标准的虹膜数据集，如下所示：

head(iris, 5)

  Sepal.Length Sepal.Width Petal.Length Petal.Width Species
1          5.1         3.5          1.4         0.2  setosa
2          4.9         3.0          1.4         0.2  setosa
3          4.7         3.2          1.3         0.2  setosa
4          4.6         3.1          1.5         0.2  setosa
5          5.0         3.6          1.4         0.2  setosa

如果我想逐行操作这个数据帧，我可以通过多种方式进行操作，包括apply函数。

然而，我正在努力理解的是，当传递给apply函数时，列类型会发生变化。

例如，当前结构虹膜是：

> str(iris)
'data.frame':   150 obs. of  5 variables:
 $ Sepal.Length: num  5.1 4.9 4.7 4.6 5 5.4 4.6 5 4.4 4.9 ...
 $ Sepal.Width : num  3.5 3 3.2 3.1 3.6 3.9 3.4 3.4 2.9 3.1 ...
 $ Petal.Length: num  1.4 1.4 1.3 1.5 1.4 1.7 1.4 1.5 1.4 1.5 ...
 $ Petal.Width : num  0.2 0.2 0.2 0.2 0.2 0.4 0.3 0.2 0.2 0.1 ...
 $ Species     : Factor w/ 3 levels "setosa","versicolor",..: 1 1 1 1 1 1 1 1 1 1 ...

但是，如果我运行以下代码，我会看到物种，这是一个因素，现在是一个字符：

checkDataType <- function(df) {
  return(typeof(df['Species']))
}

apply(iris[1:5,], 1, checkDataType)

          1           2           3           4           5 
"character" "character" "character" "character" "character" 

在这个人为的例子中，没关系。然而，我不明白为什么你会希望apply函数改变数据类型，并且很容易想到如果不考虑这将是一个问题的情况。

任何解释为什么会这样，如何防止它（如果应该），或者诸如dplyr等优秀的方法，将不胜感激。