Rシャイニーでドーナツグラフを作成するために使用しているデータがいくつかあります。ここで、date
は文字です。スコアを表示したいメールを選択できるようにしたいのですが、2番目のドロップダウンの選択では、そのメールにアクティビティがある日付のみを表示します。
たとえば、最初のドロップダウンでemail = xxxxを選択すると、日付選択フィールドに「アクティビティなし」のみが表示されます。そして、電子メール= yyyyの場合、選択肢として6/17/14、6/18/14、6/19/14のみを表示します。
UIで一種のネストされたサブセットを試しました。例:
> ui <- shinyUI(fluidPage(
+ sidebarLayout(
+ sidebarPanel(
+ selectInput('Select', 'Customer:', choices = unique(as.character(dat5$email))),
+ selectInput("User", "Date:", choices = dat5[dat5$email==input$Select,date])
+ ),
+ mainPanel(plotOutput("distPlot"))
+ )
+ ))
しかし、これはまだ可能なすべての日付選択を示しています
[〜#〜]データ[〜#〜]
email date variable value ymin ymax
xxxx no activity e_score 0 0 0
xxxx no activity diff 1 0 1
yyyy 6/17/14 e_score 0.7472 0 0.7472
yyyy 6/17/14 diff 0.2528 0.7472 1
yyyy 6/18/14 e_score 0.373 0 0.373
yyyy 6/18/14 diff 0.627 0.373 1
yyyy 6/19/14 e_score 0.533 0 0.533
yyyy 6/19/14 diff 0.467 0.533 1
これまでの私のコード:
app.R
library(shiny)
library(shinydashboard)
ui <- shinyUI(fluidPage(
sidebarLayout(
sidebarPanel(
selectInput('Select', 'Customer:', choices = unique(as.character(dat5$email))),
selectInput("User", "Date:", choices = unique(dat5$date) )
),
mainPanel(plotOutput("distPlot"))
)
))
server <- function(input, output) {
output$distPlot <- renderPlot({
ggplot(data = subset(dat5, (email %in% input$Select & date %in% input$User)), aes(fill=variable, ymax = ymax, ymin = ymin, xmax = 4, xmin = 3)) +
geom_rect(colour = "grey30", show_guide = F) +
coord_polar(theta = "y") +
geom_text(aes(x = 0, y = 0,label = round(value[1]*100))) +
xlim(c(0, 4)) +
theme_bw() +
theme(panel.grid=element_blank()) +
theme(axis.text=element_blank()) +
theme(axis.ticks=element_blank()) +
xlab("") +
ylab("") +
scale_fill_manual(values=c('#33FF00','#CCCCCC'))
})
}
shinyApp(ui = ui, server = server)
アプリのui.R部分の入力にはアクセスできないため、selectUを動的に生成するにはrenderUi/uiOutputを使用する必要があります。
あなたのui.R
追加できます:
uiOutput("secondSelection")
そしてあなたのserver.R
:
output$secondSelection <- renderUI({
selectInput("User", "Date:", choices = as.character(dat5[dat5$email==input$Select,"date"]))
})