Я пытаюсь показать и получить информацию от вариограммы в блестящей.Когда я использую RI, используйте функцию идентификации.
v <- variogram(frm,vect,cloud=TRUE)
plot(v$dist,v$gamma)
p <- identify(v$dist,v$gamma)
print(v[p,])
Благодаря которому я получаю информацию, такую как: dist gamma dir.hor dir.ver id left right
Когда я использую блестящий, я использую plotOutput с щелчком, как
Пользовательский интерфейс:
plotOutput("plot", click = "plot_click"),
verbatimTextOutput("info"),
Сервер
output$plot <- renderPlot({
df <- dataaa()
v <- variogram((df$daneWejsciowe)~1,df, cloud=TRUE)
plot(v$dist,v$gamma)})
output$info <- renderText({
df <- dataaa()
paste0("x=", input$plot_click$x, "\ny=", input$plot_click$y ) })
Таким образом, я получаю только x и y.Тем не менее, мне нужно наибольшее значение слева направо.Вы знаете, может быть, каким-то образом я мог бы получить ожидаемые значения?