在GGPLOT中替换X轴tick和具有百分位等级的文本

Question

我目前正在尝试复制以下图： 要复制的情节

我正在用代替x-axis tick ticks和文本是百分位等级而不是国家ISO（本质上是在“要复制的情节”中复制x轴）。

我目前在此图像中处于舞台上：尝试复制

我正在使用以下代码：

ggplot(data, aes(x = x, y = y)) +
  geom_errorbar(aes(ymax = Cup, ymin = Cdo)) + 
  labs(x = "Country ISO",
       y = "Transparency Rating",
       title = "Transparency Index with CI") + 
  theme_light() + 
  theme(panel.grid.major.x = element_blank() ,
        panel.grid.major.y = element_line( size=.05, color="grey") 
  )

i i尝试使用具有各种输入的选项，但我似乎可以使其起作用：

  theme(axis.ticks.x = ,
        axis.text.x =) 
  )

一些数据对您的复制有用：

x<-c("AFG","ALB","ITA",
     "IND","AGO","ARE",
     "ATG","BEN","BFA",
     "BGD","BGR","BHR",
     "BHS","BIH","BRB", 
     "BRN","BTN","BWA",
     "CAF","CAN")

y<-c(1:20)
Cup<-y+0.4
Cdo<-y-0.4

data<- data.frame(x,y,Cup,Cdo)

对于那些还可以告诉我如何在正确点上添加某些特定国家名称的人，像“要复制”中的情节一样。

非常感谢您的帮助！

Answer 1

包括选择性国家标签：

library(tidyverse)

x <- c(
  "AFG", "ALB", "ITA",
  "IND", "AGO", "ARE",
  "ATG", "BEN", "BFA",
  "BGD", "BGR", "BHR",
  "BHS", "BIH", "BRB",
  "BRN", "BTN", "BWA",
  "CAF", "CAN"
)

y <- c(1:20)
Cup <- y + 0.4
Cdo <- y - 0.4

data <- data.frame(x, y, Cup, Cdo) |>
  mutate(rank = percent_rank(y))

labels <- data |>
  filter(x %in% c("ITA", "BGR", "CAN")) # select countries to label

data |>
  ggplot(aes(rank, y)) +
  geom_text(aes(label = x), data = labels, nudge_y = -2, angle = -90) +
  geom_errorbar(aes(ymax = Cup, ymin = Cdo)) +
  labs(
    x = "Pct Rank of Country ISO",
    y = "Transparency Rating",
    title = "Transparency Index with CI"
  ) +
  theme_light() +
  theme(
    panel.grid.major.x = element_blank(),
    panel.grid.major.y = element_line(size = .05, color = "grey")
  )

^{在2022-05-24创建的 reprex软件包（v2.0.1）}