GoogleVisとShiny

Question

データをバブルチャートとしてプロットする光沢のあるアプリを作成しようとしています。私が持っている問題はサブセット化です。ユーザーは、いくつかの入力でデータのサブセットを選択できます。以下は私が持っているコードのいくつかです。このエラーが発生し続けます：Error in data.frame(na= NULL, var6 = c(1.95, 1.62, 1.57, 1.44, 1.7, : arguments imply differing number of rows: 0, 736

global.r

#Import File From Computer
data <- read.csv("C:\\Users\\User\\Documents\\Project\\Shiny\\data.csv", header=TRUE)

.

データは次のコマンドでレプリケートできます。

Type <- c('A','A','A','B','B','B','C','C','C',)
Date <- as.Date(c('2010-11-1','2008-3-25','2007-3-14','2010-11-1','2008-3-25','2007-3-14','2010-11-1','2008-3-25','2007-3-14'))
Run <- c('RUN1','RUN2','RUN3','RUN1','RUN2','RUN3','RUN1','RUN2','RUN3')
Var1 <- c(1,2,3,4,5,6,7,8,9)
Var2 <- c(2,4,6,8,10,12,14,16,18)
Var3 <- c(3,6,9,12,15,18,21,24,27)
Var4 <- c(4,8,12,16,20,24,28,32,36)
data <- data.frame(Type,Date,Run,Var1,Var2,Var3,Var4)

.

ui.r

library(googleVis)

shinyUI(fluidPage(
titlePanel("Visualization Tool"),
sidebarLayout(
headerPanel('Data Selection'),
 sidebarPanel(
selectInput('x', 'X Variable', names(data)),
selectInput('y', 'Y Variable', names(data)),
selectInput('z', 'Z Variable', names(data),
selected=names(data)[[5]]),

checkboxGroupInput('Type', 'Type', c(
  "A"="A",
  "B"="B",
  "C"="C")),
checkboxGroupInput('Run', 'Run', c(
  "RUN1"="RUN1",
  "RUN2"="RUN2",
  "RUN3"="RUN3"))

)),

mainPanel(htmlOutput(("chart"))
)
))

.

server.r

library(shiny)
library(googleVis)

shinyServer(function(input, output){
datasetInput <- total
output$chart <- renderGvis({
gvisBubbleChart(datasetInput, idvar=input$Name, xvar=input$x, yvar=input$y,
                color=input$Name, sizevar=input$z)
 })
})

.

Answer 1

私はそれを考え出した... UI.Rでは、名前をベクトル

に変更しました

xx<-c("Type"="Type", "Date"="Date", "Run"="Run","Var1"="Var1","Var2"="Var2","Var3"="Var3","Var4"="Var4")

.

ui.rが：

library(googleVis)

shinyUI(fluidPage(
titlePanel("Visualization Tool"),
sidebarLayout(
headerPanel('Data Selection'),
 sidebarPanel(
selectInput('x', 'X Variable', xx),
selectInput('y', 'Y Variable', xx),
selectInput('z', 'Z Variable', xx),


checkboxGroupInput('Type', 'Type', c(
  "A"="A",
  "B"="B",
  "C"="C")),
checkboxGroupInput('Run', 'Run', c(
  "RUN1"="RUN1",
  "RUN2"="RUN2",
  "RUN3"="RUN3"))

)),

mainPanel(htmlOutput(("chart"))
)
))

.

server.rは次のようになります：

library(shiny)
library(googleVis)

shinyServer(function(input, output){
datasetInput <- reactive({data[data$Type %in% input$Type,]})
output$chart <- renderGvis({
gvisBubbleChart(datasetInput(), idvar="Type", xvar=input$x, yvar=input$y,
                color="Type", sizevar=input$z)
 })

})

.