如何用ggplot2将本地图片设为刻度标签并在国旗下方添加国名

这需求我熟，ggplot2默认的刻度标签没法直接插入图片，但我们可以绕个弯——把默认x轴刻度藏起来，用ggimage包的geom_image放国旗，再用geom_text加国家名称，完美实现你要的效果。

步骤1：准备工作 #

首先得确保你有对应的国旗图片，文件名最好和国家名称完全匹配（比如Norway.png、Spain.png），可以把图片放在当前工作目录，或者记好完整路径。然后安装并加载需要的包：

install.packages(c("ggplot2", "ggimage"))
library(ggplot2)
library(ggimage)

步骤2：构建数据框 #

把你给的数据整理成数据框，顺便加上国旗图片的路径：

df <- data.frame(
  countries = c("Norway", "Spain", "Germany", "Canada", "China"),
  values = c(10, 20, 30, 22, 19),
  # 如果图片不在工作目录，把这里改成完整路径，比如"~/flags/"
  flag_path = paste0(countries, ".png")
)

步骤3：绘制图表 #

核心是藏起默认x轴，用图片和文字自定义标签：

ggplot(df, aes(x = countries, y = values)) +
  # 先画基础柱状图（如果是其他类型图，替换成geom_point之类的即可）
  geom_col(fill = "#2E86AB") +
  # 添加国旗图片，y设为负数让它在柱子下方，size调整图片大小
  geom_image(aes(image = flag_path), y = -2, size = 0.08) +
  # 在国旗下方添加国家名称，y值比国旗更低
  geom_text(aes(label = countries), y = -4, size = 3.5, color = "#333333") +
  # 调整y轴范围，确保国旗和文字能完整显示
  ylim(-5, max(df$values) + 5) +
  # 隐藏默认的x轴刻度、标签和标题
  theme(
    axis.text.x = element_blank(),
    axis.ticks.x = element_blank(),
    axis.title.x = element_blank(),
    # 可选：调整图表内边距，让下方内容更舒展
    plot.margin = margin(10, 10, 40, 10)
  )

关键细节调整 #

• 图片路径：如果国旗图片存在子文件夹里，把flag_path改成paste0("your/folder/path/", countries, ".png")
• 图片大小：调整geom_image里的size参数，数值越大图片越大
• 位置调整：通过修改y参数的值，控制国旗和文字在柱子下方的距离，确保不重叠
• 其他图表类型：如果是散点图、折线图，只需要替换geom_col为对应的几何对象，其他逻辑完全一致

内容的提问来源于stack exchange，提问作者Pedro BP