如何在R语言的Plotly交互式气泡图中保留标注标签？

ggplotly默认无法直接转换geom_text_repel这类ggplot2扩展图层，导致标注标签丢失。以下是两种可靠的解决方法，既能恢复标签又保留交互性：

方法1：提取ggrepel生成的坐标，在ggplotly中手动添加文本标注 #

先生成原始ggplot图，再提取geom_text_repel计算出的标签坐标，最后通过plotly的add_text添加标注：

library(ggplot2)
library(gapminder)
library(ggrepel)
library(plotly)

# 筛选数据与标注国家
gap_2007 <- gapminder %>% filter(year == 2007)
target_countries <- c("South Africa", "United States")
label_data <- gap_2007 %>% filter(country %in% target_countries)

# 生成带repel标签的ggplot图
gg_plot <- ggplot(gap_2007, aes(x = gdpPercap, y = lifeExp, size = pop, color = continent)) +
  geom_point(alpha = 0.7) +
  geom_text_repel(data = label_data, aes(label = country), size = 4) +
  scale_size(range = c(2, 12)) +
  theme_minimal()

# 提取ggrepel计算的标签坐标（i=2对应geom_text_repel图层，按需调整）
repel_positions <- layer_data(gg_plot, i = 2)
label_plotly_data <- cbind(label_data, repel_positions[, c("x", "y")])

# 转换为ggplotly并添加文本标注
interactive_plot <- ggplotly(gg_plot, tooltip = c("country", "gdpPercap", "lifeExp", "pop")) %>%
  add_text(
    data = label_plotly_data,
    x = ~x, y = ~y,
    text = ~country,
    size = 10,
    showlegend = FALSE,
    hoverinfo = "none" # 可根据需求修改hover行为
  )

interactive_plot

方法2：直接用Plotly原生函数构建图表 #

跳过ggplot2转换，直接用plotly函数绘制气泡图，并复用ggrepel计算的标签位置：

# 复用之前的label_plotly_data数据
interactive_plot <- plot_ly(
  data = gap_2007,
  x = ~gdpPercap, y = ~lifeExp,
  size = ~pop, color = ~continent,
  type = "scatter", mode = "markers",
  marker = list(alpha = 0.7, sizemode = "area", sizeref = 2e-8), # 匹配ggplot的大小缩放
  tooltip = c("country", "gdpPercap", "lifeExp", "pop")
) %>%
  add_text(
    data = label_plotly_data,
    x = ~x, y = ~y,
    text = ~country,
    showlegend = FALSE,
    hoverinfo = "none"
  )

interactive_plot

注意事项 #

• 确认layer_data的i参数对应正确的图层顺序（比如如果geom_text_repel是第二个图层，就用i=2）
• 可调整add_text的size、color等参数，让标签样式与原ggplot图一致
• 如果需要标签也支持hover，可修改hoverinfo参数为"text"或自定义内容

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