在 ggplot2 中的 x 轴标签下方添加图像

问题描述

我有这个情节：

此代码块是根据旧的 TidyTuesday 数据集 Astronaut 生成的。

library(tidyverse)
library(ggplot2)
library(ggtext)

astro_Q2_final %>%
  ggplot(aes(x = reorder(nationality,proportion),y = proportion)) +
  geom_col() +
  theme_minimal() +
  geom_text(aes(label = round(proportion,3)),position = position_dodge(width = 0.9),vjust = -0.25) +
  labs(title = "Proportion of Space Travellers who are Female,by Nationality",x = "Nationality",y = "Proportion of Female Astronauts")

数据本身非常简单——x 轴上是国籍的字符变量，y 轴上是一个与计算出的比例相对应的整数变量。我想要做的就是在国家名称上方的 x 轴上添加国家国旗的图像。我试过这个 photo alignment with graph in r 但没有运气；我认为这与 Claus Wilke 使用 data 函数创建 expand.grid 对象有关 - 我似乎无法将他正在做的事情转化为我需要对我的情节/数据做的事情.任何帮助将不胜感激。

数据可以在这里找到https://raw.githubusercontent.com/gjpstrain/astro/main/data.csv

所以我又看了一遍 ggtext 文档并包含了这个：

labels <- c(
  U.S.S.R/Russia = "<img src = 'Russia.png' width = 100' /><br>USSR/Russia",China = "<img src = 'China.jpg' width = '100' /><br>China",Italy = "<img src = 'Italy.png' width = '100' /><br>Italy",France = "<img src = 'France.jpg' width = '100' /><br>France",U.S = "<img src = 'US.png' width = '100' /><br>US",Japan = "<img src = 'Japan.png' width = '100' /><br>Japan",Canada = "<img src = 'Canada.png' width = '100' /><br>Canada",U.K = "<img src = 'UK.png' width = 100' /><br>UK",Korea = "<img src = 'South-Korea.jpg' width = '100' /><br>Korea")

但是当我尝试这样做时：

astro_Q2_final %>%
  ggplot(aes(x = reorder(nationality,y = proportion)) +
  geom_col() +
  scale_x_discrete(name = NULL,labels = labels)

我得到 this

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

ggplot2 ggtext r r