R Shiny 根本没有绘图

Question

我是 shiny 的新手，我正在尝试用它来模拟 prey/predator 模型。

首先，我想生成包含每只动物所有初始位置的数据框；并尝试使用 ggplot 绘制它；但是当我按下 actionButton 时，情节从未显示。我不明白为什么，并且有任何错误消息至少让我知道出了什么问题。

代码如下：

library(shiny)
library(tidyverse)
library(ggplot2)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      sliderInput("nPrey", "select total number of preys", 1, 100, 10, 1),
      sliderInput("nHunter", "select total number of Hunters", 1, 100, 10, 1),
      actionButton ("play", "Begin simulation")
    ),  
    mainPanel(
      plotOutput("plot")
    )
  )
)

server <- function(input, output, session) {
  zMax = 20   
  simulation <- eventReactive(input$play, {
    createInitialTable(input$nPrey, input$nHunter)  
  })
  output$plot <- renderPlot({    
    p <- ggplot() +   
      geom_point(aes_string(x="X",y="Y"), data=simulation()) +  
      coord_cartesian(xlim =c(0, zMax), ylim = c(0, zMax)) 
  }) 
  createInitialTable <- function (nPrey, nHunter){ 
    aAnimal <- data.frame() 
    cVar <- c("X", "Y")  
    for (i in 1:nPrey){  
      aAnimal <- rbind(aAnimal, c(round(runif(1)*zMax), round(runif(1)*zMax)))
    }
    for (i in 1:nHunter){
      aAnimal <- rbind(aAnimal, c(round(runif(1)*zMax), round(runif(1)*zMax)))
    }
    colnames(aAnimal) <- cVar
    return (aAnimal)  
  }
}

shinyApp(ui, server)

感谢您阅读本文

Answer 1

简单修复：删除 p <- 就可以了。但是，要改进，您需要在 nPrey 和 Hunter 动态变化时检查执行的反应性。

R Shiny 根本没有绘图

R Shiny not plotting at all

r

ggplot2

shiny

reactive