从vector向data.frame的列分配类类型

Question

我有2个数据框（具有相同的结构）我想使用rbind进行组合但是要确保没有任何因子变量搞砸了。

有办法：

1. 将其中一个数据框的预组合结构存储在字符向量
中
2. 将两个数据框转换为所有字符类型
3. rbind 2个数据框
4. 使用字符向量重新分配变量类型。

它看起来像这样：

iris1 <- iris
iris2 <- iris
type1 <- sapply(iris1, class)

iris1 <- as.data.frame(lapply(iris1, as.character))
iris2 <- as.data.frame(lapply(iris2, as.character))
iris3 <- rbind(iris1, iris2)

str(iris3) <- type1

这不起作用，但任何建议都会受到赞赏。