导航点闪亮

Question

我有来自渐变位置的数据，并希望在闪亮的绘图上方添加一些导航点，以向用户指示沿着渐变的位置。我不知道如何制作圆点。

可能在图片中有更好的解释，所以这里是我所追求的大杂烩 - 我复制并粘贴了这个示例应用程序的图像上的点。当选择第四个位置时，第四个点被着色

library(shiny)
library(data.table)

## sample data
set.seed(0)
dat <- rbindlist(lapply(1:6, function(i) 
  list(x=(x=runif(100,-4,4)), y=rnorm(100,x^2,i), loc=rep(i,100))))

ui <- pageWithSidebar(
  headerPanel("dots"),
  sidebarPanel(selectInput("loc", "Location", 1:6)),
  mainPanel(plotOutput("plot"))
)

server <- function(input, output, session) {
  output$plot <- renderPlot(plot(y ~ x, data=dat[loc == input$loc]))
}

shinyApp(ui, server)

有关如何实现这一目标的任何想法？完全可行的解决方案。

Answer 1

您可以向客户端发送自定义消息（例如，请参阅http://shiny.rstudio.com/gallery/server-to-client-custom-messages.html）并以js和html的组合设置您的点。 或者，您可以设置第二个图（plot(1:6,rep(0,6),col=c(1,1,1,2,1,1))或许......使用gpplot版本可能看起来更好）并尝试将其设计为合适的样式，然后将其包含为位于上方的第二个renderPlot你的主要情节。