Scale/Position R ggplot2 可视化：不知道使用什么包

Question

我有一个可视化的想法，包括为我的数据集中的每一行（58 行）生成一个图，以比例显示我 select 的值的相对位置（例如： 58个城市和一个城市的人口规模相对于其他城市的位置）。

这是一个显示我的数据结构的代码示例（nregs 我正在研究的区域的名称）。我想为每一行创建一个 'rank plot'，一个基于 total_pop 的情节排名，另一个基于 urban_pop.

structure(list(nregs = c("1.1 Javari e Interbacias Javari - Juruá", 
"1.2 Transf. da Margem Esquerda do Solimões", "1.3 Juruá e Interbacias Juruá - Jutaí", 
"1.4 Purus e Interbacias Purus - Juruá", "1.5 Negro", "1.6 Madeira e Interbacias Madeira - Purus", 
"1.7 Estaduais Margem Esquerda do Amazonas", "1.8 Tapajós e Interbacias Tapajós - Madeira", 
"1.9 Estaduais PA", "1.10 Xingu e Interbacias Xingu - Tapajós"
), urban_pop = c(63777, 83237, 265725, 717181, 2122424, 1693933, 
837519, 1169865, 171045, 515124), total_pop = c(111120, 141473, 
405955, 910484, 2357696, 2320307, 933181, 1639624, 304181, 831595
)), row.names = c(NA, -10L), class = c("tbl_df", "tbl", "data.frame"
))

由于英语不是我的母语，我什至发现很难在线搜索解决方案。我通常用 R 和 tidyverse 做我的数据可视化。谁能至少给我一个方向？提前致谢。

Answer 1

听起来您正在寻找这样的东西：

library(ggplot2)
library(dplyr)

df %>% 
  mutate(urban_pop = rank(urban_pop),
         total_pop = rank(total_pop)) %>%
  tidyr::pivot_longer(-1) %>%
  ggplot(aes(value, nregs)) +
  geom_segment(aes(x = 1, y = nregs, xend = 10, yend = nregs)) +
  geom_segment(data = expand.grid(x = seq(nrow(df)), y = seq(nrow(df)) - 0.1),
               aes(x = x, y = y, xend = x, yend = y + 0.2)) +
  scale_x_continuous(breaks = seq(nrow(df)), labels = rev(seq(nrow(df))),
                     name = "Rank") +
  geom_point(aes(color = name), position = position_dodge(width = 0.5),
             size = 4) +
  scale_color_manual(values = c("red", "forestgreen")) +
  theme_void() +
  theme(axis.text.y = element_text(hjust = 1),
        axis.text.x = element_text(),
        axis.title.x = element_text(size = 16))

请注意，样本中每个城市的城市和总人口排名似乎相同

Scale/Position R ggplot2 可视化：不知道使用什么包

Scale/Position R ggplot2 visualization: don't know what package to use

r

data-visualization

scale

ordinal

ggplot2