R语言plot_ly函数仅显示散点无法绘制折线的问题求助

问题原因 #

你的代码里折线无法渲染的核心原因有两个：

1. 数据仅按date排序，未按分组变量char排序，导致plot_ly无法区分不同分组的点，无法按分组连接折线
2. 每个分组的日期序列不连续，缺失的日期让plot_ly无法识别同组的连续数据点

解决方案 #

保留selected_col的分组逻辑，仅通过调整数据处理流程即可解决，无需切换工具：

1. 补全每个分组的完整日期序列，确保每个分组的日期是连续的
2. 按分组+日期排序，让plot_ly能正确识别同组的连续数据点

修改后完整代码 #

library(tibble)
library(dplyr)
library(plotly)
library(tidyr)  # 添加tidyr用于补全日期

date_seq <- seq.Date(as.Date('2023-01-01'), as.Date('2024-01-01'), by="day")

data <- tibble(
  date = sample(date_seq, 100, replace = TRUE),
  id = 1:100,
  principal = round(runif(100, 1000, 10000), 2),
  amount = round(runif(100, 500, 5000), 2),
  char_age = sample(18:70, 100, replace = TRUE),
  char_gender = sample(c("Male", "Female", "Other"), 100, replace = TRUE),
  char_region = sample(c("North", "South", "East", "West"), 100, replace = TRUE),
  char_score = sample(300:850, 100, replace = TRUE)
)

selected_col <- "char_gender"

df <- data %>%
  group_by(date, char = .data[[selected_col]]) %>%
  summarise(principal_mean = mean(principal, na.rm = TRUE)) %>%
  ungroup() %>%  # 取消原有分组，准备按char单独处理
  group_by(char) %>%
  complete(date = full_seq(date, 1)) %>%  # 补全每个char的所有连续日期，缺失值设为NA
  arrange(char, date) %>%  # 按分组+日期排序，确保同组数据按时间顺序排列
  mutate(date = as.Date(date))

plot_ly(df, x = ~date, y = ~principal_mean, type = 'scatter', mode = 'lines+markers', color = ~char)

关键改动说明 #

• 引入tidyr包的complete()函数，为每个分组生成完整的连续日期序列，解决日期不连续的问题
• 新增arrange(char, date)，确保每个分组内的数据按时间顺序排列，让plot_ly能正确识别同组的点并连接成折线
• 先ungroup()再按char分组，是为了针对每个分组单独补全日期序列

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