Question

我使用Random forest进行建模。我得到变量的特征重要性如下。这是一个矩阵类。

Importance <- model$importance

这将返回以下矩阵

                   %IncMSE     IncNodePurity
Col1             0.000000000       0.00000
Col2             0.021071302      48.26649
Col3             0.023357536      67.61509
col4             0.004547066      12.59772
col5             0.010846549     108.35169

我有另一个变量Date，即Sys.Date()。我创建了一个数据框

DataFrame <- data.frame(Date, Importance)

我的目标是在单个csv文件中逐行添加日期和功能重要性。

我使用了以下命令

write.table(DataFrame,"filename.csv", append=TRUE, sep=',')

由于DataFrame是一个矩阵，write.table正在将输出写入Excel工作表中的不同行。我希望这发生在一排。基本上日期应该在一列中，整个特征的重要性应该出现在同一行的相邻列中。

任何帮助完成这项工作将不胜感激。

Answer 1

如果我以正确的方式理解您，您希望将Importance_matrix转换为单行。最简单的方法是取消列表：

Importance_to_df <- unlist(as.data.frame(Importance_matrix))
DataFrame <- data.frame(Date = Sys.Date(), t(Importance_to_df))

我不确定Importance_matrix的结构，并假设它是一个双列矩阵，其中包含名为"%IncMSE"和"IncNodePurity"的列。

将r中的矩阵类写入csv

1 个答案: