Question

我开发了以下代码以在r中创建一个表并将其导出到csv，在其中对其进行格式化以插入到Word文档中。此示例包含每种水果的总和以及出售它们的月份。

library (lubridate)
Table<-read.csv("Fruit.csv")

#Creates a month name column
Table$Month<- month(Table$Date, label=TRUE)

#Creates the frequency table
FreqTable<-addmargins(table(Table$Fruit, Table$Month))

#Exports to CSV
write.csv(FreqTable,"Table.csv")

上面产生的表格如下：

Example of table

我对桌子有3个主要问题，我不确定是否可以解决。

如何为第一栏添加标题？我只想将“水果”添加为列名。
我拥有的数据一直持续到6月底，我如何才能从表中删除所有没有数据的剩余月份？（7月-12月）
如何将行和列标题'sum'更改为'Total'？

任何帮助将不胜感激。

Answer 1

某些数据已经采用频率格式。

fruit <- data.frame(Jan = c(4, 5, 2), Feb = c(1, 3, 0), March = c(0, 0, 0), row.names = c("Apples", "Grapes", "Oranges"))

fruit$sum <- rowSums(fruit)
fruit <- fruit[!colSums(fruit > 0) == 0] # Subset your columns with sums > 0
colnames(fruit)[3] <- "Total" # Rename column

您必须添加带有水果类型的列才能为其添加列名称。为此，只需在编写row.names = FALSE时添加csv。

在R中创建表

1 个答案: