如何用R创建人物信息图？国际关系专业R新手咨询

作为国际关系专业的R新手，推荐用ggplot2生态工具实现，上手快且适配人物信息展示需求，以下是具体实现思路和代码示例：

1. 准备人物数据 #

先整理目标人物的核心信息，用数据框存储：

library(ggplot2)

# 构造单个人物的信息数据
person_data <- data.frame(
  name = "约翰·史密斯",
  position = "美国国务卿",
  country = "美国",
  term = "2021-至今",
  core_view = "推动印太战略框架，强化盟友协作",
  avatar_path = "your_avatar.png" # 替换为本地头像图片的实际路径
)

2. 搭建基础信息面板 #

用ggplot2构建可视化框架，添加文本类信息：

# 初始化画布，设置背景面板
p <- ggplot(person_data, aes(x = 0, y = 0)) +
  geom_rect(aes(xmin = -3.5, xmax = 3.5, ymin = -4.5, ymax = 4.5), 
            fill = "#f8f9fa", color = "#2d3436", linewidth = 1) +
  # 突出显示姓名
  geom_text(aes(y = 3.8), label = person_data$name, 
            size = 13, fontface = "bold", color = "#2d3436") +
  # 添加职位信息
  geom_text(aes(y = 3), label = person_data$position, 
            size = 7, color = "#4a4a4a") +
  # 补充国籍与任期
  geom_text(aes(y = 2.2), label = paste("国籍：", person_data$country), 
            size = 5, color = "#636e72") +
  geom_text(aes(y = 1.6), label = paste("任期：", person_data$term), 
            size = 5, color = "#636e72") +
  # 展示核心立场（自动换行）
  geom_text(aes(y = 0, hjust = 0.5), label = person_data$core_view, 
            size = 4.5, color = "#2d3436", lineheight = 1.2, width = 6) +
  # 隐藏默认坐标轴与网格
  theme_void()

3. 插入头像与国旗（可选） #

如果需要添加头像或国旗元素，可借助扩展包实现：

• 安装依赖包：install.packages(c("ggimage", "ggflags"))
• 代码示例：

library(ggimage)
library(ggflags)

p +
  # 添加国旗图标（国家代码需转小写）
  geom_flag(aes(x = -2.8, y = 2.2, country = tolower(person_data$country)), size = 10) +
  # 添加人物头像
  geom_image(aes(x = 0, y = -2.5), image = person_data$avatar_path, size = 0.35)

4. 灵活调整布局 #

可根据需求修改以下参数优化效果：

• 调整geom_rect的xmin/xmax/ymin/ymax改变面板大小
• 修改geom_text的x/y参数调整文本位置
• 替换fill/color参数值自定义配色风格

内容的提问来源于stack exchange，提问作者Ruben Moreno