R，Shiny，绘制一个反应数据框（数据变为＆＃34;缺失＆＃34;）

Question

给出以下ui.R和server.R和circuit.csv;我可以生成一个简单的图，它对用户输入作出反应（在这种情况下是功率）。

但是，并非返回所有电源值。例如，.5产生一个图，而.6则不是，依此类推，在整个功率范围内随机出现。

如果我作为一个表而不是绘图，为了检查我的工作，同样的事情，某些电源输入按预期工作，而其他电源输入没有表，并且在要求绘图时也没有绘图。

ui.R

library(shiny)
library(ggplot2)


shinyUI(fluidPage(
hr(),
sidebarLayout(
  sidebarPanel(
sliderInput("power",label = "Power",
            min = 0, max = 5, value = .5, step = .1)

),
  mainPanel(
   p("Lum vs Distance by Power"),
   plotOutput('plot1')
  )
)
))

server.R

library(shiny)
library(ggplot2)

df <- read.table(file = "circuit.csv", sep=",", header = TRUE)


shinyServer(function(input, output) {

  output$plot1 <- renderPlot({

    df2 <- subset(df,df$pow==input$power)

    p <- ggplot(df2)+
    geom_point(aes(x=dist, y=lum))
    print(p)

  })

})

Link to github（对于csv数据）

我会发布图片，但目前不允许这样做。