将数据类型因子转换为数字数据类型

Question

我有一个从1x11行数据帧转置的11x1列数据帧。在行数据帧中，某些元素为strings，而某些元素为numeric。转置后，所有元素变为factors。我想将此数据导出到excel，而不必在excel中将数据转换为数值。

我尝试使用

将以前的数字值分别转换回数字值

1. D4[3,1] <- as.numeric(D4[3,1])
2. D4[3,1] <- as.numeric(as.character(D4[3,1]))
3. D4[3,1] <- as.numeric(levels(D4[3,1]))[D4[3,1]]

D4 <- data.frame(3, 5, 7)
D4s <- sum(D4[1,1],D4[1,2],D4[1,3])
D4prcnt <- 100*D4/D4s
D4 <- data.frame("NA","NA",D4)
D4prcnt <- data.frame("NA","NA",D4prcnt)
D4 <- as.data.frame(t(D4))
D4prcnt <- as.data.frame(t(D4prcnt))

尝试了我之前提到的任何转换方法之后，我希望class(D4[3,1])为numeric，但输出为factor。此外，其中一些转换方法会将我想要的值转换为<NA>，仍然使用levels 3, 5, 7, NA。