Dcast函数->重排序列

Question

我使用dcast函数显示不同公司每月的支出。当然，我要一月一号，然后二月等，而不是字母顺序。

Spendings <- data %>%
    filter(Familie == "Riegel" & Jahr == "2017") %>%
    group_by(Firma, Produktmarke, `Name Kurz`) %>%
    summarise(Spendingsges = sum(EUR, na.rm = TRUE))

Spendings <- dcast(data = Spendings, Firma + Produktmarke ~ `Name Kurz`, value.var="Spendingsges")
Spendings

                Firma               Produktmarke     Apr     Aug     Dez     Feb     Jan     Jul     Jun     Mai     Mrz     Nov     Okt     Sep
                Company1           Product1          228582 1902138  725781      NA  709970      NA  265313  228177      NA      NA 1463258 4031267

是否有一种方法可以重新排序列动态？例如，2018年的数据比较短，所以我不能使用：

Spendings <- Spendings[,c("Firma", "Produktmarke", "Jan", "Feb", "Mrz", "Apr", "Mai", "Jun", "Jul", "Aug", "Sep", "Okt", "Nov", "Dez")]

Answer 1

    Spendings_raw <- data.frame(matrix(ncol = 14, nrow = 0))
colnames(Spendings_raw) <- c("Firma", "Produktmarke", "Jan", "Feb", "Mrz", "Apr", "Mai", "Jun", "Jul", "Aug", "Sep", "Okt", "Nov", "Dez")
Spendings_raw

Spendings <- data %>%
    filter(Familie == "Riegel" & Jahr == "2017") %>%
    group_by(Firma, Produktmarke, `Name Kurz`) %>%
    summarise(Spendingsges = sum(EUR, na.rm = TRUE))


Spendings <- dcast(data = Spendings, Firma + Produktmarke ~ `Name Kurz`, value.var="Spendingsges")
Spendings <- rbind.fill(Spendings_raw, Spendings)

这是完美的;-)。