Экспорт вопроса в R

Question

Фон:

У меня есть набор данных, который мне дали. Цель состоит в том, чтобы выяснить, кто бездельничает при отправке своих важных форм.

У меня есть информация (имена были изменены, чтобы защитить невинных, а также если я совершу ошибку).

Данные разделены на три столбца; Business, Forms.Presented и Form.Title.

Выпуск

Когда я запускаю код (ниже), я получаю прекрасный вид того, как я хочу, чтобы он выглядел. Это дает мне отдельные таблицы на основе Form.Title, так что я могу сравнить каждую отдельную форму, которая должна быть представлена ​​бизнесом.

Однако, если я попытаюсь записать .csv, write.table или write.xlsx, это даст мне данные другим способом.

Рабочая:

> addmargins(with (Business_Forms, table (Business, Form.Presented., Form.Title)))

Фанки:

write.xlsx(addmargins(with(Business_Forms, table(Business, Form.Presented.,Form.Title))), file = "C:/Users/Me/Desktop/Business.xlsx")

write.table(addmargins(with(Business_Forms, table(Business, Form.Presented.,Form.Title))), file = “clipboard”, sep= ”\t”)

Funkiness:

То, что я ожидаю увидеть, это простой, небольшой набор таблиц, основанный на поле Form.Title; именно то, что я вижу в виде консоли.

Вид консоли:

, , Form.Title = Any Known Allergens

        Form.Presented.
Business FALSE TRUE  Sum
  Food       0 1115 1115
  Planes     0    0    0
  Soda       0    0    0
  Trains     0    0    0
  Trucks     0    0    0
  Water      1    0    1
  Sum        1 1115 1116

, , Form.Title = Fuel Type

        Form.Presented.
Business. FALSE. TRUE.  Sum.
  Food       0    0    0
  Planes     0    0    0
  Soda       0    0    0
  Trains     3  204  207
  Trucks     0  172  172
  Water      0    0    0
  Sum        3  376  379

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

Business    Form.Presented. Form.Title  Freq
Food        FALSE       Any Known Allergens 0
Planes      FALSE       Any Known Allergens 0
Soda        FALSE       Any Known Allergens 0
Trains      FALSE       Any Known Allergens 0
Trucks      FALSE       Any Known Allergens 0
Water       FALSE       Any Known Allergens 1
Sum         FALSE       Any Known Allergens 1
Food        TRUE        Any Known Allergens 1115

Я могу заставить его работать, манипулируя информацией в Excel, но не поэтому я использую R.

Любой совет будет с благодарностью!

Обновление

Я создал фрейм данных, чтобы можно было реплицировать результаты.

data1 <- c('Food','Water','Soda','Planes','Trains','Trucks')
data2 <- c('TRUE','FALSE','FALSE','TRUE','TRUE','TRUE')
data3 <- c('Safe For Moms','Any Known Allergens','Safe For Moms','MSDS/SDS','Offgas Fumes','Fuel Type')

Business<-c(data1,data1,data1,data1)
Form.Presented. <- c(data2,data2,data2,data2)
Form.Title <- c(data3,data3,data3,data3)

Business_Forms<-data.frame(Business,Form.Title,Form.Presented.)

Если вы запускаете код ранее, он должен работать. Я проверял это до того, как набрал это.