Экспорт таблиц непредвиденных обстоятельств дедуктора в формате csv или xls

Я работаю с JGR и использую Deducer, и я создаю таблицы непредвиденных обстоятельств и частоты, используя Deducer. Меня больше всего интересует экспорт этих таблиц непредвиденных обстоятельств и сохранение их в виде файлов .csv или xls.

Для моих целей мне не нужен хи-квадрат или что-то в этом роде, только кросс-таблицы и итоги. Конечно, чем проще, тем лучше, но любая помощь будет принята с благодарностью.

Вот как выглядит общий код и выходные данные (из Hmisc Table Creation)

   Cell Contents
|-------------------------|
|                   Count |
|             Row Percent |
|          Column Percent |
|-------------------------|

Total Observations in Table:  524 

             | asq[, 23] 
    asq[, 4] |        1  |        2  |        3  |        4  |        5  | Row Total | 
-------------|-----------|-----------|-----------|-----------|-----------|-----------|
           0 |       76  |       54  |       93  |       46  |       54  |      323  | 
             |   23.529% |   16.718% |   28.793% |   14.241% |   16.718% |   61.641% | 
             |   54.286% |   56.250% |   63.265% |   63.889% |   78.261% |           | 
-------------|-----------|-----------|-----------|-----------|-----------|-----------|
           1 |       64  |       42  |       54  |       26  |       15  |      201  | 
             |   31.841% |   20.896% |   26.866% |   12.935% |    7.463% |   38.359% | 
             |   45.714% |   43.750% |   36.735% |   36.111% |   21.739% |           | 
-------------|-----------|-----------|-----------|-----------|-----------|-----------|
Column Total |      140  |       96  |      147  |       72  |       69  |      524  | 
             |   26.718% |   18.321% |   28.053% |   13.740% |   13.168% |           | 
-------------|-----------|-----------|-----------|-----------|-----------|-----------|

Спасибо!


person user1108155    schedule 20.12.2011    source источник


Ответы (1)


В Deducer нет особенно хорошего способа сделать это (хотя, возможно, он должен быть). Если вы используете DeducerRichOutput, то таблицы форматируются как html и могут быть скопированы/вставлены в Excel. Вы можете установить его с помощью:

install.packages("DeducerRichOutput",,"http://r-forge.r-project.org",type="source")

Если вы хотите сделать это программно, вам лучше всего использовать базу R.

xt <- xtabs(~gear+cyl,data=mtcars)
write.csv(addmargins(xt),"tmp.csv")
person Ian Fellows    schedule 20.12.2011