背景：
我有一个已获得的数据集。目的是找出谁在提交重要表格方面比较懈怠。
我知道了这些信息（为了保护无辜者，以及为了弄错我，名字已经更改了）。
数据分为三列；业务，表单。呈现和表单标题。
问题
运行代码（如下）时，我可以很清楚地看到它的外观。这为我提供了基于Form.Title的单独表格，因此我可以比较企业应提供的每个单独的表格。
但是，如果我尝试执行write.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”)
时髦：
我希望看到的是基于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.)
如果您以前运行过代码，它应该可以工作。在输入此字词之前，我确实进行了测试。