R Печать вывода ftable () в csv с именами факторов

Question

Я работаю с ftable в R для создания таблиц сопряженности.

Я хочу напечатать объект ftable в csv, но когда я использую write.csv() для объекта ftable, csv больше не перечисляет имена факторов, которые включены в ftable на R. Это типвывод, который я получаю

Вот пример таблицы в R

   structure(c(1L, 0L, 0L, 0L, 1L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 
0L, 0L, 1L, 2L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 
1L, 1L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 
0L, 1L, 0L, 2L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 
0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 1L, 0L, 0L, 
0L, 0L, 1L, 0L, 0L, 0L, 0L), .Dim = c(12L, 7L), class = "ftable", row.vars = list(
    ï..petal_size = c("large ", "small", "small "), stem_length = c("long", 
    "long ", "short", "short ")), col.vars = list(flow_color = c("blue", 
"green", "indigo ", "orange", "red  ", "violet", "yellow")))

Есть ли такое решение, которое я могусохранить имена факторов?

Answer 1

Один из вариантов - использовать функцию write.ftable, но вам придется много работать вручную, поскольку все (в файле CSV) будет записано в один столбец

write.ftable(ftable(df), file = "table.csv", quote = FALSE)
# And the otuput NOTE: WHEN OPENING CSV EVERYTHING WILL BE IN SINGLE COLUMN
                          flow_color blue green indigo  orange red   violet yellow
i..petal_size stem_length                                                         
large         long                      1     0       1      1     2      1      1
              long                      0     0       0      0     0      0      0
              short                     0     0       0      0     0      1      1
              short                     0     1       0      1     0      0      0
small         long                      1     2       0      0     1      0      0
              long                      0     0       1      0     0      0      0
              short                     0     0       1      0     0      1      0
              short                     1     0       0      0     0      0      1
small         long                      0     0       0      0     0      0      0
              long                      0     0       0      0     0      0      0
              short                     0     0       0      1     0      0      0
              short                     0     0       0      0     0      0  

0

Или другой вариант, используя stats для первого форматирования ftable, а затем используйте write.table

df <- ftable(df)
cont <- stats:::format.ftable(df, quote = FALSE)
write.table(cont, sep = ";", file = "table.csv")

И вывод