R语言ggplot转plotly时如何让ecdf曲线端点延伸至0和1

使用ggplot2绘制累积分布函数（ECDF）后，通过ggplotly()转换为plotly交互对象时，对应累积概率0和1的曲线尾部端点会丢失，原生ggplot输出的ECDF尾部显示正常。
初始实现代码：

gg <- ggplot(data=some_data, aes(x = x_var, color = grouping_var)) +
stat_ecdf()

ggplotly(gg)

可直接复现问题的示例代码（基于iris数据集）：

library(tidyverse)
library(plotly)

new_data <- iris %>%
arrange(Petal.Length)

gg <- ggplot(data = new_data, 
             aes(x = Petal.Length, 
                 color = Species)) +
      stat_ecdf()

ggplotly(gg)

ggplot原生渲染stat_ecdf()时会自动在曲线首尾补充y=0、y=1的水平延伸段，但ggplotly()的转换逻辑没有识别到这个隐式补全的绘图元素，导致转换后的交互图丢失尾部端点。

• 方法一：显式开启stat_ecdf()的端点补全参数（最简便）
  stat_ecdf()自带pad参数，将其显式设置为TRUE后，会直接在源数据层面补充首尾的0、1概率端点，ggplotly()转换时可以正常识别渲染，不会丢失尾部。
  修改后的代码：

  gg <- ggplot(data = new_data, 
               aes(x = Petal.Length, 
                   color = Species)) +
        stat_ecdf(pad = TRUE)
  
  ggplotly(gg)
  

  注：部分新版本ggplot2中pad默认值为TRUE，但显式声明该参数可以兼容所有版本，同时保证ggplotly转换时能正确识别补全的端点。

• 方法二：手动计算ECDF值后用阶梯图绘制
  如果需要完全控制曲线端点位置，可以手动按分组计算累积概率，补充首尾端点后用geom_step()绘制，从数据层面避免转换丢失问题：

  ecdf_data <- new_data %>%
    group_by(Species) %>%
    arrange(Petal.Length, .by_group = TRUE) %>%
    mutate(ecdf_val = row_number() / n()) %>%
    # 为每个分组补充y=0的左端点
    group_modify(~add_row(.x,
                          Petal.Length = min(.x$Petal.Length) - 0.1,
                          ecdf_val = 0,
                          .before = 1)) %>%
    ungroup()
  
  gg <- ggplot(ecdf_data, aes(x = Petal.Length, y = ecdf_val, color = Species)) +
    geom_step()
  
  ggplotly(gg)
  

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