rsqlite表和lubridate

Question

我试着处理r数据库中的表。我编写的代码如下所示。

con <- dbConnect(RSQLite::SQLite(), "flights.sqlite")
airports1 <- dplyr::tbl(con, "airports")
flights1 <- dplyr::tbl(con, "flights")
airportcounts <- flights1 %>% filter(Dest %in% c("SNA", "SJC", "SMF")) %>% group_by(Dest, Year, Month) %>% summarise(count = n())

在这条线之前，没有问题。表“比对”已经写好了，我使用dplyr函数来总结计数。完成此操作后，我尝试创建一个新的专栏“日期”和“年”和“月”专栏，我编写的代码如下所示。

airportcounts %>% mutate(Date = lubridate::make_date(Year, Month))

但是，我收到了一条错误消息：

'Error in vapply(list(year, month, day), length, 1, USE.NAMES = FALSE) : 
  object 'Year' not found'

我必须在桌面机场做这个工作，而不是以tibble或data.frame的形式。我该如何解决这个问题？

(我编写的代码对于tibble数据很有效)

Answer 1

SQLite不知道如何处理日期。为了处理日期，您需要将数据加载到R中：

airportcounts %>% collect() %>% mutate(...)

另外，summarize()保留了分组的一部分，我建议ungroup()在summarize()之后。