0

我的目标是在 Rattle 中为学校项目创建一个决策树模型。我已经能够确定我的研究问题所需的变量，并从原始 .csv 文件创建了一个新数据集。在将新数据集保存为 .xls 文件和 .rdata 文件后，我在将文件加载到 Rattle 后收到了一条错误消息。这是我第一次创建决策树模型，所以我有点挣扎。在此先感谢您的帮助！

这是我到目前为止所拥有的：

install.packages(readxl)

library(readxl)
library(rattle)

setwd("C:/Users/river/OneDrive/Documents/Random Data")

edu <- read_excel('pfi_pu.xlsx')



eduu <- data.frame(c("P1HRSWK" = c(edu$P1HRSWK),
                   "P1EMPL" = c(edu$P1EMPL),
                   "P2HRSWK" = c(edu$P2HRSWK),
                   "P2EMPL" = c(edu$P2EMPL),
                   "P1ENRL" = c(edu$P1ENRL),
                   "P2ENRL" = c(edu$P2ENRL),
                   "P1EDUC" = c(edu$P1EDUC),
                   "P2EDUC" = c(edu$P2EDUC),
                   "P1HISPRM" = c(edu$P1HISPRM),
                   "P2HISPRM" = c(edu$P2HISPRM),
                   "P1PACI" = c(edu$P1PACI),
                   "P2PACI" = c(edu$P2PACI),
                   "P1BLACK" = c(edu$P1BLACK),
                   "P2BLACK" = c(edu$P2BLACK),
                   "P1ASIAN" = c(edu$P1ASIAN),
                   "P2ASIAN" = c(edu$P2ASIAN),
                   "P1AMIND" = c(edu$P1AMIND),
                   "P2AMIND" = c(edu$P2AMIND),
                   "P1HISPAN" = c(edu$P1HISPAN),
                   "P2HISPAN" = c(edu$P2HISPAN),
                   "P1LKWRK" = c(edu$P1LKWRK),
                   "P2LKWRK" = c(edu$P2LKWRK),
                   "P1MTHSWRK" = c(edu$P1MTHSWRK),
                   "P1REL" = c(edu$P1REL),
                   "P2REL" = c(edu$P2REL),
                   "P1SEX" = c(edu$P1SEX),
                   "P2SEX" = c(edu$P2SEX),
                   "P1MRSTA" = c(edu$P1MRSTA),
                   "SEFUTUREX" = c(edu$SEFUTUREX),
                   "HSFUTUREX" = c(edu$HSFUTUREX),
                   "PARGRADEX" = c(edu$PARGRADEX),
                   "TTLHHINC" = c(edu$TTLHHINC),
                   "PAR1EMPL" = c(edu$PAR1EMPL),
                   "PAR2EMPL" = c(edu$PAR2EMPL),
                   "SEEXPEL" = c(edu$SEEXPEL),
                   "SESUSPIN" = c(edu$SESUSPIN),
                   "SESUSOUT" = c(edu$SESUSOUT),
                   "SEGRADEQ" = c(edu$SEGRADEQ)
                    ,dim = c(14075,38,1))


save(eduu,file="eduu.xls")

错误信息

在此处输入图像描述

4

1 回答 1

0

似乎你的问题是关于写一个文件。该命令save必须用于保存 .RData 文件，而不是 Excel 文件。根据这篇文章，您可以尝试：

openxlsx::write.xlsx(eduu, 'eduu.xlsx') 

xlsx::write.xlsx(eduu, 'eduu.xlsx')

writexl::write_xlsx(eduu, 'eduu.xlsx')
于 2021-02-06T02:25:11.683 回答