向数据框的“类”提供向量

您知道如何向数据框提供名称向量来更改数据框的列或行名称。是否有类似的方法来提供名称向量来更改数据框中每列的类？当您使用 colClasses 通过 read.table 读取数据帧时，可以执行此操作。如果数据框是在 R 内部创建的呢？

DF <- as.data.frame(matrix(rnorm(25), 5, 5))
str(DF)  #all numeric modes

names(DF) <- c("A", "A2", "B", "B2", "Z") #I want something like this for classes
some_classes_function_like_names(DF) <- c(rep("character", 3), rep("factor", 2))

#I can do it like this but this seems inefficient 
DF[, 1:3] <- lapply(DF[, 1:3], as.character)
DF[, 4:5] <- lapply(DF[, 4:5], as.factor)

str(DF)

编辑：我将上面的 sapply 更改为 lapply，因为 sapply 没有意义。

编辑2：如果有办法编写用户定义的函数也足够了

尝试这个：

toCls <- function(x, cls) do.call(paste("as", cls, sep = "."), list(x))
replace(DF,, Map(toCls, DF, cls))

第二个例子。也可以尝试这个例子（它允许NA用于任何类别不改变的列）。我们加载动物园包，因为它提供了一个版本as.Date有一个默认的原点，我们定义自己的as.POSIXct2同样避免必须另外指定来源。

library(zoo) # supplies alternate as.Date with a default origin
as.NA <- identity
as.POSIXct2 <- function(x) as.POSIXct(x, origin = "1970-01-01")

cls2 <- c("character", "Date", NA, "factor", "POSIXct2")
replace(DF,, Map(toCls, DF, cls2))

请注意，仅当将数字转换为"Date" or "POSIXct"存在来源方面的考虑以及在转换字符串时，例如"2000-01-01"在任何情况下都不需要指定来源，因此对于这种情况，我们不需要加载动物园，也不需要我们自己的版本as.POSIXct .

编辑：添加了另一个例子。