从列的选定级别更改点的颜色

Question

我正在尝试使用闪亮和着色来绘制所选数据，仅使用数据框AD中变量dataColor中所选级别的点。首先，我将检查是否要为点着色。如果是，那么我将使用函数selectedColors选择颜色，否则所有点都将以灰色绘制。

  selectedColors <- reactive({
    dataColor[dataColor$AD %in% input$color_levels,'AD']
  })

  output$distPlot <- renderPlot({

  colour <- "grey"

  if(input$xy=='y'){
    colour = selectedColors()
  }

  plot(selectedData(),col=colour) })

我在函数selectedColors中对颜色进行了错误的更新。有关如何仅为所选级别提供颜色以及其余为灰色的任何建议。此外，除灰色外，应选择其他颜色。

PS：如果需要，我会尽快提供模拟数据。