如何在R中将ggplot2转plot_ly图作为plot_ly散点图背景？

要实现将ggplot2生成的线条图作为背景，叠加到原生plot_ly散点图上并保留散点图的坐标轴设置，可按以下步骤操作：

步骤1：修正背景图的plot_ly转换代码 #

原代码存在变量名错误，需修正转换逻辑，确保ggplot对象正确转为plot_ly格式：

# 生成ggplot背景图
p1 <- ggplot(data, aes(x = x, y = y)) +
  scale_x_log10(limits = c(0.1, 1e7), breaks = 10^(0:7), expand = c(0, 0)) +
  scale_y_log10(limits = c(0.1, 1e7), breaks = 10^(0:7), expand = c(0, 0)) +
  geom_abline(aes(intercept = l1, slope = 1), color = "blue") +
  geom_abline(aes(intercept = -l1, slope = 1), color = "blue") +
  geom_abline(aes(intercept = l2, slope = 1), color = "red") +
  geom_abline(aes(intercept = -l2, slope = 1), color = "red") +
  geom_abline(aes(intercept = l3, slope = 1), color = "green") +
  geom_abline(aes(intercept = -l3, slope = 1), color = "green")

# 转为plot_ly对象
p1_plotly <- ggplotly(p1)

步骤2：提取背景图的轨迹数据 #

plot_ly对象的x$data属性存储了所有图形轨迹（即背景中的彩色线条），直接提取即可：

background_traces <- p1_plotly$x$data

步骤3：将背景轨迹叠加到散点图 #

通过循环将每个背景轨迹添加到原生plot_ly散点图中，散点图的坐标轴设置会自动保留：

# 原生plot_ly散点图代码（保留原设置）
p2 <- plot_ly(data = df, x = ~sample1, y = ~sample2, type = "scatter", 
   mode = "markers", marker = list(symbol = "cross", size = 4, opacity = 0.5, 
   color = "rgba(50,50,50,0.5)", alpha = I(0.8))) %>%
   layout(xaxis = list(type = "log", range = c(-1, 7), dtick = 1, 
          ticklen = 5, showgrid=TRUE, gridwidth=1),
         yaxis = list(type = "log", range = c(-1, 7), dtick = 1, 
                      ticklen = 5))

# 叠加背景轨迹
combined_plot <- p2
for(trace in background_traces) {
  combined_plot <- combined_plot %>% add_trace(
    x = trace$x,
    y = trace$y,
    type = trace$type,
    line = trace$line,
    showlegend = FALSE  # 可选：隐藏背景线条的图例，避免干扰
  )
}

# 查看合并后的图形
combined_plot

关键说明 #

• 由于是将背景轨迹添加到散点图中，散点图的layout设置（坐标轴类型、范围、刻度等）会完全覆盖背景图的坐标轴设置，符合需求。
• showlegend = FALSE参数可避免背景线条的图例显示，让散点图的图例更简洁。

原背景图（ggplot2转plot_ly）：

原散点图（原生plot_ly）：

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