eCDF (stat_ecdf) 在两个 eCDF 之间添加最大距离线

Question

如何在ggplot中的两个样本的eCDF之间添加最大距离线（D-max）？

ggplot(data, aes(x = value)) +
  stat_ecdf(aes(color = type,linetype = type), 
              geom = "step", size = 1.5) +
  scale_color_manual(values = c("#00AFBB", "#E7B800"))+
  labs(y = "Cumulitive Distibution Function (eCDF)")