ggplot转plotly无法绘制不同数据源的折线？求解决方法

嘿，这种情况绝对不是正常现象，这是ggplotly在处理包含-Inf/Inf值的多图层折线图时的转换bug导致的。ggplot本身能完美解析-Inf/Inf来绘制延伸至画布边界的线条，但ggplotly的转换逻辑在多图层场景下对这类极值的处理出现了冲突，才会导致其中一条线渲染异常。

下面给你两个可行的解决办法：

方法1：替换-Inf/Inf为实际绘图边界值 #

既然ggplotly搞不定Inf值的多图层转换，我们可以先把数据里的-Inf/Inf替换成ggplot实际绘图时用的边界极值，再交给ggplotly转换：

library(ggplot2)
library(plotly)

# 原始数据源
y_data <- data.frame(x = c(-Inf, .5), y = c(10, 10), stringsAsFactors = FALSE)
x_data <- data.frame(x = c(.5, .5), y = c(-Inf, 10))

# 先绘制基础ggplot，获取自动计算的绘图范围
base_plot <- ggplot() + 
  geom_line(data = y_data, aes(x, y)) + 
  geom_line(data = x_data, aes(x, y))

# 提取ggplot自动生成的x、y轴边界
plot_params <- ggplot_build(base_plot)$layout$panel_params[[1]]
x_bound_min <- plot_params$x.range[1]
y_bound_min <- plot_params$y.range[1]

# 替换数据中的Inf值
y_data$x[y_data$x == -Inf] <- x_bound_min
x_data$y[x_data$y == -Inf] <- y_bound_min

# 重新绘图并转换为plotly对象
fixed_plot <- ggplot() + 
  geom_line(data = y_data, aes(x, y)) + 
  geom_line(data = x_data, aes(x, y))

ggplotly(fixed_plot)

方法2：直接使用plotly原生语法绘制 #

如果不想在ggplot和plotly的转换上折腾，直接用plotly的原生函数绘制，完全绕过转换环节，就能彻底避免这类问题：

library(plotly)

# 原始数据源
y_data <- data.frame(x = c(-Inf, .5), y = c(10, 10))
x_data <- data.frame(x = c(.5, .5), y = c(-Inf, 10))

# 用plotly原生函数构建图表
plot_ly() %>%
  add_lines(data = y_data, x = ~x, y = ~y, name = "Horizontal Line") %>%
  add_lines(data = x_data, x = ~x, y = ~y, name = "Vertical Line") %>%
  # 可以手动设置轴范围，也可以让plotly自动适配
  layout(xaxis = list(range = c(-5, 2)),
         yaxis = list(range = c(-5, 12)))

两种方法各有优势：方法1贴合你原本的ggplot工作流，改动最小；方法2能让你更直接地控制plotly图表的细节，也更不容易出现转换类的bug。

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