Question

以下dbplyr语句失败：

foo <- activity_viewed %>% group_by(pk) %>% summarize(total = n()) %>%
  arrange(-total) %>% head(3) %>% collect()

出现此错误：

Error in postgresqlExecStatement(conn, statement, ...) : 
  RS-DBI driver: (could not Retrieve the result : ERROR:  column "total" does not exist
LINE 4: ORDER BY -"total"
                  ^
)

我可以在查询中看到问题：SQL不允许ORDER BY使用列别名。

这是生成的查询：

> print(show_query(foo))
<SQL>
SELECT "pk", COUNT(*) AS "total"
FROM "activity"
GROUP BY "pk"
ORDER BY -"total"
LIMIT 3

我需要ORDER BY -COUNT(*)。

如何获得dbplyr来执行此查询？

Answer 1

dbplyr可以翻译desc，但不能翻译-

library(dplyr) 
library(dbplyr) 
mtcars2 <- src_memdb() %>% 
           copy_to(mtcars, name = "mtcars2-cc", overwrite = TRUE)
mtcars2 %>% arrange(desc(cyl)) %>% show_query()
<SQL>
SELECT *
FROM `mtcars2-cc`
ORDER BY `cyl` DESC

如何在dbplyr中“安排”聚合变量？

1 个答案: