如何在R中使用ggraph手动布局实现图形居中对齐？

我在R中使用ggraph创建技能树可视化，节点位置由JSON数据里的row和col手动指定，但图形始终在绘图区域左对齐。尝试过计算x坐标中点平移、设置expand_limits和调整plot.margin，都没实现居中效果，求正确的解决方法。

初始图形设置代码 #

library(jsonlite)
library(igraph)
library(ggraph)

file_path <- "./nodes.json"
mastery_tree_data <- fromJSON(file_path)

graph <- make_empty_graph(directed = TRUE)

# 添加节点
for (node_id in names(mastery_tree_data)) {
  node_info <- mastery_tree_data[[node_id]]
  label_text <- paste(node_info$name, "\nLvl", node_info$current_level, "/", node_info$max_level)
  graph <- add_vertices(graph, 1, name = node_id, label = label_text)
}

# 添加边
for (node_id in names(mastery_tree_data)) {
  node_info <- mastery_tree_data[[node_id]]
  if (!is.null(node_info$children)) {
    for (child_id in node_info$children) {
      if (child_id %in% names(mastery_tree_data)) {
        graph <- add_edges(graph, c(node_id, child_id))
      }
    }
  }
}

# 基于JSON的row和col创建手动布局
manual_layout <- data.frame(
  name = names(mastery_tree_data),
  x = sapply(mastery_tree_data, function(x) x$col),
  y = sapply(mastery_tree_data, function(x) x$row),
  stringsAsFactors = FALSE
)

尝试过的居中修复代码（未生效） #

manual_layout$name <- as.character(manual_layout$name)
current_midpoint_x <- mean(manual_layout$x)
desired_midpoint_x <- 0 # 希望图形居中在x=0位置
shift_x <- desired_midpoint_x - current_midpoint_x
manual_layout$x <- manual_layout$x + shift_x

# 设置x轴范围并添加留白
x_range <- max(manual_layout$x) - min(manual_layout$x)
x_padding <- 0.1 * x_range
x_lim <- c(min(manual_layout$x) - x_padding, max(manual_layout$x) + x_padding)

plot <- ggraph(graph, layout = 'manual', node.positions = manual_layout) +
 geom_edge_link() +
 geom_node_point(size = 3) +
 geom_node_text(aes(label = name), repel = TRUE, size = 3) +
 expand_limits(x = x_lim) +
 theme(plot.margin = unit(c(1, 1, 1, 1), "cm"))

print(plot)

精简版JSON数据 #

{"Node1":{"name":"Attack","parents":[],"children":["Node2_1","Node2_2"],"current_level":0,"max_level":3,"row":1,"col":1},"Node2_1":{"name":"Gold Loot","parents":["Node1"],"children":["Node3_1","Node3_2"],"current_level":0,"max_level":3,"row":2,"col":1},"Node2_2":{"name":"Health","parents":["Node1"],"children":["Node3_3"],"current_level":0,"max_level":3,"row":2,"col":2},"Node3_1":{"name":"Health","parents":["Node2_1"],"children":["Node4"],"current_level":0,"max_level":3,"row":3,"col":1},"Node3_2":{"name":"Idle Earnings","parents":["Node2_1"],"children":["Node4"],"current_level":0,"max_level":4,"row":3,"col":2},"Node3_3":{"name":"Gold Loot","parents":["Node2_2"],"children":["Node4"],"current_level":0,"max_level":3,"row":3,"col":3},"Node4":{"name":"Attack","parents":["Node3_1","Node3_2","Node3_3"],"children":[],"current_level":0,"max_level":3,"row":4,"col":1}}

解决方法 #

问题核心是expand_limits仅扩展绘图范围但不会强制将内容居中，需要配合coord_cartesian或直接设置xlim锁定轴范围，同时注意节点文本的repel效果可能占用额外空间。以下是修改后的有效代码：

# 平移x坐标（原有步骤保留）
manual_layout$name <- as.character(manual_layout$name)
current_midpoint_x <- mean(manual_layout$x)
desired_midpoint_x <- 0
shift_x <- desired_midpoint_x - current_midpoint_x
manual_layout$x <- manual_layout$x + shift_x

# 计算x轴范围并添加留白
x_range <- max(manual_layout$x) - min(manual_layout$x)
x_padding <- 0.1 * x_range
x_lim <- c(min(manual_layout$x) - x_padding, max(manual_layout$x) + x_padding)

# 强制设置x轴范围并确保图形居中
plot <- ggraph(graph, layout = 'manual', node.positions = manual_layout) +
  geom_edge_link() +
  geom_node_point(size = 3) +
  geom_node_text(aes(label = name), repel = TRUE, size = 3) +
  coord_cartesian(xlim = x_lim) +  # 用coord_cartesian强制锁定x范围，确保居中
  theme(
    plot.margin = unit(c(1, 1, 1, 1), "cm"),
    axis.text = element_blank(),  # 隐藏轴文本，避免干扰
    axis.title = element_blank(),
    axis.ticks = element_blank()
  )

print(plot)

额外说明： #

1. coord_cartesian与xlim的区别：coord_cartesian是在现有绘图基础上裁剪范围，不会重新计算布局；直接用xlim()可能过滤超出范围的元素，这里用coord_cartesian更安全。
2. 若需要y轴也对称居中，可采用同样方法计算y的中点并平移，再设置y轴范围。
3. 若geom_node_text的repel效果导致偏移，可调整repel参数（如nudge_x、nudge_y），或暂时关闭repel测试是否为文本问题。

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