R语言 数据框指定列中数据可以转为数值型的全部转为数值型，不能转的保留字符型

可以使用 `sapply()` 函数和 `grepl()` 函数来实现这个功能。`sapply()` 函数可以对数据框的每一列应用相同的操作，而 `grepl()` 函数可以检查一个字符串是否包含数字。

具体步骤如下：

1. 首先将需要转换的列选出来，可以使用下标或者列名进行选择，例如我们选出第2列到第5列进行转换：

cols <- 2:5 # 或者 cols <- c("col2", "col3", "col4", "col5")

2. 然后使用 `sapply()` 函数应用一个函数来判断每一个元素是否可以转换为数值型。如果可以转换，则转换为数值型，否则保留字符型。

df[, cols] <- sapply(df[, cols], function(x) {
  if (all(grepl("[0-9]", x))) {
    as.numeric(x)
  } else {
    x
  }
})

在上面的代码中，我们使用了 `grepl()` 函数来检查每一个元素是否包含数字。如果所有元素都包含数字，则使用 `as.numeric()` 函数将这些元素转换为数值型；否则保留字符型。

注意，上述代码中使用了 `all()` 函数来判断一个向量中的所有元素是否都满足某个条件。这是因为 `grepl()` 函数返回的是一个逻辑向量，表示每一个元素是否包含数字，如果直接将这个逻辑向量传给 `if()` 函数，则会产生一个警告。

另外，需要注意的是，如果选中的列中包含了缺失值（NA），则转换后会变成 `NA`，而不是字符型。如果需要将缺失值保留为字符型，可以使用 `ifelse()` 函数进行判断。