r - 查询表并生成国家代码分组和绘图条形图的代码

Question

我是 R 的新手，并且已经设法将 R 连接到 PostgreSQL 中的数据库，所以我想在 R 中查询这个数据库并生成一个简单的条形图。此条形图应给出前 5 个国家/地区代码的汇总计数。

谁能推荐一个可以做到这一点的查询/脚本？

它基本上是国家的分割，以及每个国家有多少人。

我想将我的数据分解为国家，然后是这些国家的前 5 个

抱歉，我的数据看起来像这样

国家代码
国标

荷兰

美国

国标

国标

不适用

法国

我想计算每个有多少，然后绘制其中的前 5 个，你如何在 R 中做到这一点

Answer 1

这是我将如何连接和查询的一般概述:

library(RPostgreSQL)
library(tidyverse)

pg <- dbDriver("PostgreSQL")

con <- dbConnect(pg, user = "username", password = "your_password",
                 host="localhost", port = 5432, dbname = "dbname")

tbl(con, "table_name") %>% 
  group_by(country_code) %>% 
  summarise(total = n()) %>% 
  arrange(desc(total)) %>% 
  head(5) %>% 
  collect() %>% 
  as_tibble() %>% 
  ggplot(aes(reorder(country_code, -total), total)) +
  geom_bar(stat = "identity")