在ggplot多路径图中用geom_path实现指定路径异色（适配Shiny动态输入）

可以通过在Shiny的server端动态生成颜色映射向量，配合scale_colour_manual()实现需求，核心思路是根据用户选中的ID实时调整颜色规则，同时保留按ID分割路径的逻辑。

完整代码示例：

library(shiny)
library(tidyverse)

# 生成模拟数据
set.seed(1)
dat <- tibble(
  id = as.character(rep(c(1,2,3),5)),
  x = runif(15,1,10),
  y = runif(15,1,10)
)

ui <- fluidPage(
  selectInput(
    inputId = "selected_id",
    label = "选择要高亮的Subject ID",
    choices = unique(dat$id),
    selected = "1"
  ),
  plotOutput("path_plot")
)

server <- function(input, output) {
  output$path_plot <- renderPlot({
    # 动态生成颜色映射：选中的ID设为红色，其余为黑色
    color_vec <- setNames(
      ifelse(unique(dat$id) == input$selected_id, "red", "black"),
      unique(dat$id)
    )
    
    ggplot(dat, aes(x, y, col = id)) +
      geom_line(size = 1) + # geom_line与geom_path效果一致，此处选line更直观
      scale_colour_manual(values = color_vec) +
      theme_minimal()
  })
}

shinyApp(ui, server)

关键逻辑说明 #

• 动态颜色向量：在renderPlot内部，根据当前用户输入的input$selected_id，对所有唯一ID做判断：匹配的设为"red"，其他设为"black"，再用setNames把ID作为向量名称，保证和aes(col=id)的映射完全对应。
• 保留路径分割：依然使用aes(col=id)绑定颜色映射，ggplot会自动按ID分组绘制路径，无需额外调整分组逻辑。
• 适配动态场景：每次用户切换选中ID时，renderPlot会重新计算颜色向量并绘图，完全适配动态输入需求。

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