单击R Shiny中的交互式图

钢铁迷13

我正在尝试创建带有一堆盒子的图,然后在单击某个盒子时将其着色。我有两个问题。1.我无法确定单击时动态更新图形的方法。2.我无法弄清楚如何存储来自click输入变量的值,因此我已经存储了所有先前的单击,并且能够在多个框中进行着色。您可以看到一些我尝试解决和测试这两个问题的方法,但是我没有任何运气。任何一个问题的帮助将不胜感激。

ui <- fluidPage(
   
   # Application title
   titlePanel("Boxes"),
   
   sidebarLayout(
      sidebarPanel(
         textOutput("text")),
      
      # Get it it's a pun
      mainPanel(
         plotOutput("boxPlot",click = "test")
      )
   )
)

# Define server logic required to draw a histogram
server <- function(input, output) {
  
  vals <- reactiveValues(x=NA,y=NA,test=NA)
  observeEvent(input$click, {
    vals$x <- c(vals$x,input$test$x)
    vals$y <- c(vals$y,input$test$y)
    vals$test <- input$test$x
  })
  
  output$boxPlot <- renderPlot({
    
    par(mai=c(0,0,0,0))
    plot(1,ylim=c(2,15),xlim=c(2,15),type='n',yaxs='i',xaxs='i',ylab='',xlab='',axes=F)
    for (i in 2:15) {
      abline(v=i)
      abline(h=i)
    }
    observeEvent(input$click, {      rect(floor(input$test$x),floor(input$test$y),ceiling(input$test$x),ceiling(input$test$y),col='blue')})
    # if (length(vals$x) > 0) {
      # rect(floor(vals$x[1]),floor(vals$y[1]),ceiling(vals$x[1]),ceiling(vals$y[1]),col='blue')
    # }
  })
  # output$text <- renderText(vals$x[length(vals$x)])
  output$text <- renderText(vals$test)
  
}
# Run the application 
shinyApp(ui = ui, server = server)
Ben

这可能是一个简单的解决方案。

observeEvent的点击事件应该只有一个observeEvent那儿,reactiveValues像当前一样存储x和y值

然后,您renderPlot应该绘制网格线,并根据填充矩形reactiveValues通过input$boxPlot_clickrenderPlot情节中包含(如我所说的),每次单击都会重绘。

library(shiny)

ui <- fluidPage(
  titlePanel("Boxes"),
  sidebarLayout(
    sidebarPanel(
      textOutput("text")),
    mainPanel(
      plotOutput("boxPlot", click = "boxPlot_click")
    )
  )
)

server <- function(input, output) {
  
  vals <- reactiveValues(x=NA,y=NA)
  
  observeEvent(input$boxPlot_click, {
    vals$x <- c(vals$x,input$boxPlot_click$x)
    vals$y <- c(vals$y,input$boxPlot_click$y)
  })
  
  output$boxPlot <- renderPlot({
    input$boxPlot_click
    par(mai=c(0,0,0,0))
    plot(1,ylim=c(2,15),xlim=c(2,15),type='n',yaxs='i',xaxs='i',ylab='',xlab='',axes=F)
    for (i in 2:15) {
      abline(v=i)
      abline(h=i)
    }
    for (i in seq_along(length(vals$x))) {
      rect(floor(vals$x),floor(vals$y),ceiling(vals$x),ceiling(vals$y),col='blue')
    }
  })
  
  output$text <- renderText(paste0(vals$x, ', ' , vals$y, '\n'))
  
}

shinyApp(ui = ui, server = server)

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

R Shiny中的交互式ZoomGraph

来自分类Dev

挑战动态生成的交互式 R Shiny 图(主要是功能代码)

来自分类Dev

R中的`Rmd`文件中的`for`循环内部未绘制交互式`ggplotly`图

来自分类Dev

如何在 R Markdown Shiny 文档中制作交互式图表?

来自分类Dev

如何使用Leaflet在R中创建GTFS数据的交互式图?

来自分类Dev

R中的交互式散点图,叠加/悬停摘要/工具提示作为用户提供的图函数

来自分类Dev

在R Shiny中,有没有办法冻结交互式绘图上的x轴?

来自分类Dev

明显不正确地使用 R Shiny 中的 renderUI 进行交互式仪表板

来自分类Dev

在网站上创建交互式图R图

来自分类Dev

在网站上创建交互式图R图

来自分类Dev

使用传单/光泽的R中的交互式地图

来自分类Dev

R 数据表中的交互式突出显示

来自分类Dev

在 R 中创建交互式绘图

来自分类Dev

R 中的交互式 Chloropeth 选举团地图

来自分类Dev

在Shiny应用程序(R)中进行交互式目录输入

来自分类Dev

R中使用apexcharter的交互式热图在反应性上失败

来自分类Dev

Matplotlib和WxPython-交互式工具栏图在单击时不执行刷新/更新

来自分类Dev

Matplotlib和WxPython-交互式工具栏图在单击时未执行刷新/更新

来自分类Dev

页脚中的内容是非交互式的(无法突出显示,单击链接等)

来自分类Dev

如何在R中的交互式图形中以对数标度绘制轮廓?

来自分类Dev

如何在 R/Shiny 的交互式 3D 绘图中保持相机方向固定

来自分类Dev

在R中的交互式3维图形上绘制趋势线(不是平面或平滑表面)

来自分类Dev

使用R交互式更改Plotly图像中的轴比例(线性/对数)

来自分类Dev

在交互式R会话中从闪亮的应用程序返回值

来自分类Dev

如何使用bqplot中的交互式图防止递归?

来自分类Dev

Tkinter 中的交互式 PyPlot 图未注册 MouseEvents

来自分类Dev

R软件包的交互式调试

来自分类Dev

从R内部交互式运行多个Windows系统命令

来自分类Dev

嵌套数据框交互式R降价

Related 相关文章

  1. 1

    R Shiny中的交互式ZoomGraph

  2. 2

    挑战动态生成的交互式 R Shiny 图(主要是功能代码)

  3. 3

    R中的`Rmd`文件中的`for`循环内部未绘制交互式`ggplotly`图

  4. 4

    如何在 R Markdown Shiny 文档中制作交互式图表?

  5. 5

    如何使用Leaflet在R中创建GTFS数据的交互式图?

  6. 6

    R中的交互式散点图,叠加/悬停摘要/工具提示作为用户提供的图函数

  7. 7

    在R Shiny中,有没有办法冻结交互式绘图上的x轴?

  8. 8

    明显不正确地使用 R Shiny 中的 renderUI 进行交互式仪表板

  9. 9

    在网站上创建交互式图R图

  10. 10

    在网站上创建交互式图R图

  11. 11

    使用传单/光泽的R中的交互式地图

  12. 12

    R 数据表中的交互式突出显示

  13. 13

    在 R 中创建交互式绘图

  14. 14

    R 中的交互式 Chloropeth 选举团地图

  15. 15

    在Shiny应用程序(R)中进行交互式目录输入

  16. 16

    R中使用apexcharter的交互式热图在反应性上失败

  17. 17

    Matplotlib和WxPython-交互式工具栏图在单击时不执行刷新/更新

  18. 18

    Matplotlib和WxPython-交互式工具栏图在单击时未执行刷新/更新

  19. 19

    页脚中的内容是非交互式的(无法突出显示,单击链接等)

  20. 20

    如何在R中的交互式图形中以对数标度绘制轮廓?

  21. 21

    如何在 R/Shiny 的交互式 3D 绘图中保持相机方向固定

  22. 22

    在R中的交互式3维图形上绘制趋势线(不是平面或平滑表面)

  23. 23

    使用R交互式更改Plotly图像中的轴比例(线性/对数)

  24. 24

    在交互式R会话中从闪亮的应用程序返回值

  25. 25

    如何使用bqplot中的交互式图防止递归?

  26. 26

    Tkinter 中的交互式 PyPlot 图未注册 MouseEvents

  27. 27

    R软件包的交互式调试

  28. 28

    从R内部交互式运行多个Windows系统命令

  29. 29

    嵌套数据框交互式R降价

热门标签

归档