有光泽的导航点

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。