为什么我在 r 中收到“UseMethod(arrange) 错误”？

Question

我正在编写一个列出各种商品的销售价格的 r 程序。我有一个名为 InvoiceDate 的列，其中列出的日期和时间如下：'12/1/2009 7:45'。我试图仅将日期隔离在一个名为日期的单独字段中，然后按顺序排列日期。我使用的代码如下：

library(dplyr)
library(ggplot2)

setwd("C:/Users/cshor/OneDrive/Environment/Restoration_Ecology/Udemy/Stat_Thinking_&_Data_Sci_with_R/Assignments/Sect_5")
retail_clean <- read.csv("C:/Users/cshor/OneDrive/Environment/Restoration_Ecology/Udemy/Stat_Thinking_&_Data_Sci_with_R/Data/retail_clean.csv")

retail_clean$date <- as.Date(retail_clean$InvoiceDate)#, format = "%d/%m/%Y")

   total_sales = sum(retail_clean$Quantity, na.rm=TRUE) %>% 
arrange(retail_clean$date) %>% ggplot(aes(x=date, y=total_sales)) + geom_line()

最初，一切正常，并且创建了日期字段。但是，我收到了安排（）函数的以下错误：

Error in UseMethod("arrange") :no applicable method for 'arrange' applied to an object of class "c('integer', 'numeric')"

我已经搜索了一个多星期来寻找解决此问题的方法，但没有找到任何专门解决此问题的方法。我还使用了 '.asPosixct' 而不是 .asDate，结果相似。对于程序为何将日期数据解释为数字以及如何纠正问题的任何帮助，将不胜感激。

Answer 1

首先，错误消息与日期时间无关。

让我们看看你提供的代码：

total_sales = sum(retail_clean$Quantity, na.rm=TRUE) %>% 
arrange(retail_clean$date) %>% ggplot(aes(x=date, y=total_sales)) + geom_line()

在您的情况下，sum(retail_clean$Quantity, na.rm=TRUE) 这个术语的结果是一个整数，它通过管道传递到 dpyr::arrange 函数的第一个参数中，该函数调用 UseMethod("arrange")。

然后，管道参数被检查为integer和numeric类的对象，而arrange没有这些类的方法，即arrange.integer和arrange.numeric都没有定义。因此错误消息。您的日期转换没有任何问题，只是您确实需要您在代码示例中注释掉的 format 术语。

解决方案也很简单。将sum 更改为返回data.frame 或arrange 知道的其他类的内容。你可以查看arrange有哪些方法可用：

$>methods(dplyr::arrange)
[1] arrange.data.frame*

在这个R实例中，你只能通过arrange放一个data.frame对象，但是你总是可以为其他类定义具体的方法。

看起来这是一个 Udemy 课程作业。也许在这里您需要计算每天或每月的总和，无论您的任务要求您做什么，但sum 绝对不是正确的答案。

顺便说一句，欢迎来到 SO！

更新： 一个例子

n <- 100
data <- data.frame(sales = runif(n), day = sample(1:30, n, replace = TRUE))
data$date_ <- paste0(data$day, "/1/2009 7:45")
head(data$date_) # This is the orignial date string
data$date <- as.Date(data$date_, format = "%d/%m/%Y")
head(data$date) # Check here to see the formated date

library(dplyr)
library(ggplot2)
data %>% 
    group_by(date) %>% 
    summarise(totalSale = sum(sales, na.rm=TRUE)) %>%
    arrange(date) %>%
    ggplot(aes(x = date, y = totalSale)) +
    geom_line()

这是剧情

看起来不错，不是吗？现在所有的销售都是按日期排序的。