ggplot中geom_line正常显示，ggplotly()仅连接相同连续值的点

问题描述 #

用ggplot绘制的折线图中，geom_line()可正常生成带有颜色渐变的完整折线，但通过ggplotly()转换为交互式图表后，折线会在部分数据点处断开或终止。需要保留原ggplot的显示效果，同时添加tooltip交互功能。

效果对比 #

• 预期效果：一条完整的渐变折线连接所有数据点，终点带有百分比标注
• 实际效果：折线在多个位置断开，无法完整连接所有数据点

原代码 #

library(ggplot2)
library(plotly)

# 数据
data <- structure(list( Percent = c(0.32, 0.23, 0.75, 0.25, 0.482, 0.421, 0.5114, 0.3423, 0.27, 0.4324, 0.347, 0.377, 0.26, 
0.375, 0.18604, 0.241378, 0.3095, 0.348837209, 0.33333, 0.1875, 0.2820, 0.65, 0.72, 0.75, 0.81, 0.87, 0.8244), finalpoint = c(NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
NA, NA, NA, NA, 0.8244), date = structure(c(18262, 18293, 18322, 18353, 18383, 18414, 18444, 18475, 18506, 18536, 
18567, 18597, 18628, 18659, 18687, 18718, 18748, 18779, 18809, 18840, 18871, 18901, 18932, 18962, 18993, 19024, 19052), class = "Date"),  Status_perc = structure(c(1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L,  1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L,   2L, 3L, 3L, 3L), levels = c("<70%", "70-80%", "≥80%"), class = "factor")), row.names = c(NA, 
-27L), class = c("tbl_df", "tbl", "data.frame"))


# 创建ggplot图表
test <- data %>% 
    ggplot( aes ( x = date, y = Percent,
                label = finalpoint , 
                colour= Percent, 
                group = 1)) +   # 必须添加group=1才能在ggplot中显示完整折线
    geom_line(  ) +
  geom_point ( ) + 
  geom_text(aes(label = ifelse(is.na(finalpoint), "", sprintf("%1.1f%%",finalpoint*100))) , 
            nudge_y = +0.2, nudge_x = -50  ) +                # 为终点添加百分比标注
  scale_y_continuous(limits = c(0,1)) + 
    scale_colour_gradient(low = "red", high = "green", 
                         limits = c(0,1)) 


# 转换为交互式图表（存在折线断开问题）
test %>% plotly::ggplotly( ) %>%
#  tooltip =  c("Percent", "edtriage", "Num_Denom" , ")) %>%
  config(displayModeBar = F) 

问题原因 #

ggplotly默认会将colour映射的连续变量（此处为Percent）作为分组依据，把折线拆分成多个小段，导致视觉上出现断开效果——即使在ggplot中已经设置了group=1，也无法覆盖这个默认逻辑。

解决方法 #

通过style()函数强制指定折线的颜色渐变规则，同时明确设置tooltip的显示内容，确保折线完整且交互功能正常。

修改后的代码 #

library(ggplot2)
library(plotly)

# 数据
data <- structure(list( Percent = c(0.32, 0.23, 0.75, 0.25, 0.482, 0.421, 0.5114, 0.3423, 0.27, 0.4324, 0.347, 0.377, 0.26, 
0.375, 0.18604, 0.241378, 0.3095, 0.348837209, 0.33333, 0.1875, 0.2820, 0.65, 0.72, 0.75, 0.81, 0.87, 0.8244), finalpoint = c(NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
NA, NA, NA, NA, 0.8244), date = structure(c(18262, 18293, 18322, 18353, 18383, 18414, 18444, 18475, 18506, 18536, 
18567, 18597, 18628, 18659, 18687, 18718, 18748, 18779, 18809, 18840, 18871, 18901, 18932, 18962, 18993, 19024, 19052), class = "Date"),  Status_perc = structure(c(1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L,  1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L,   2L, 3L, 3L, 3L), levels = c("<70%", "70-80%", "≥80%"), class = "factor")), row.names = c(NA, 
-27L), class = c("tbl_df", "tbl", "data.frame"))

# 创建ggplot图表
test <- data %>% 
  ggplot(aes(x = date, y = Percent,
             label = finalpoint, 
             colour = Percent, 
             group = 1)) +  
  geom_line() +
  geom_point() + 
  geom_text(aes(label = ifelse(is.na(finalpoint), "", sprintf("%1.1f%%", finalpoint*100))), 
            nudge_y = 0.2, nudge_x = -50) +                
  scale_y_continuous(limits = c(0,1)) + 
  scale_colour_gradient(low = "red", high = "green", limits = c(0,1)) 

# 转换为交互式图表并修复折线问题
test %>% 
  ggplotly(tooltip = c("date", "Percent", "Status_perc")) %>%  # 指定tooltip显示的字段
  style(trace = 1, line = list(color = ~Percent, colorscale = list(c(0, "red"), c(1, "green")))) %>%  # 强制折线使用渐变颜色
  config(displayModeBar = FALSE)

修改说明 #

1. 指定Tooltip内容：通过ggplotly()的tooltip参数明确设置交互时展示的字段，替换原注释的无效代码
2. 强制折线颜色渐变：使用style()函数针对折线轨迹（trace=1对应geom_line图层）设置颜色映射规则，直接绑定Percent变量并指定红绿渐变逻辑，彻底避免ggplotly自动拆分折线
3. 保留原样式：完全保留原ggplot的所有视觉设置，确保转换后的交互式图表与原图表视觉效果完全一致

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