在点击时更改点的颜色，并使用R Shiny保持其不变

R Shiny是一种基于R语言的Web应用程序开发框架，用于创建交互式的数据可视化和分析工具。它结合了R语言的强大统计计算能力和Web技术的灵活性，使得开发人员可以轻松构建具有用户界面的数据分析应用。

在R Shiny中，要实现在点击时更改点的颜色并保持其不变，可以通过以下步骤完成：

1. 创建一个Shiny应用程序的UI界面，可以使用shinyUI()函数来定义应用程序的用户界面。在UI界面中，可以使用plotOutput()函数来创建一个绘图区域，用于显示数据点的图形。
2. 在UI界面中，可以使用observeEvent()函数来监听用户的点击事件。当用户点击图形中的数据点时，可以通过input$plot_click来获取点击事件的信息。
3. 在observeEvent()函数中，可以使用updatePlotlyProxy()函数来更新图形的属性。通过设置color参数，可以更改数据点的颜色。

下面是一个示例代码：

library(shiny)
library(plotly)

ui <- shinyUI(
  fluidPage(
    plotlyOutput("plot")
  )
)

server <- shinyServer(function(input, output) {
  output$plot <- renderPlotly({
    plot_ly(data = iris, x = ~Sepal.Length, y = ~Sepal.Width, color = ~Species)
  })
  
  observeEvent(input$plot_click, {
    event <- input$plot_click
    if (!is.null(event)) {
      selected_point <- event$pointNumber
      plot_proxy <- plotlyProxy("plot", session)
      updatePlotlyProxy(plot_proxy, color = I("red"), selectedpoints = selected_point)
    }
  })
})

shinyApp(ui, server)

在这个示例中，我们使用了plot_ly()函数创建了一个散点图，其中数据集为iris，x轴为Sepal.Length，y轴为Sepal.Width，颜色按照Species进行分类。

当用户点击图形中的数据点时，通过observeEvent()函数监听到点击事件，并通过updatePlotlyProxy()函数更新图形的属性。在这里，我们将选中的数据点的颜色设置为红色。

这个示例中使用了plotly包来创建交互式图形，你可以在腾讯云的R Shiny相关产品中寻找类似的产品和服务。