シャイニーflexdashboard - プロット私は光沢のあるベースflexdashboardを構築していると私は、これは私のデータフレームである</p> <p>のレンダリングの問題を抱えている

Question

をレンダリングしない：

structure(list(from_id = c("385588434812408", "385588434812408", 
"385588434812408", "385588434812408", "385588434812408", "385588434812408" 
), from_name = c("Стопанска банка - На ваша страна", 
"Стопанска банка - На ваша страна", 
"Стопанска банка - На ваша страна", 
"Стопанска банка - На ваша страна", 
"Стопанска банка - На ваша страна", 
"Стопанска банка - На ваша страна"), 
    year = c(2017L, 2017L, 2017L, 2017L, 2017L, 2017L), month = c(8L, 
    8L, 8L, 8L, 8L, 8L), bank = c("stopanska", "stopanska", "stopanska", 
    "stopanska", "stopanska", "stopanska"), likes_count = c(17L, 
    20L, 366L, 240L, 50L, 7L)), .Names = c("from_id", "from_name", 
"year", "month", "bank", "likes_count"), class = c("data.table", 
"data.frame"), row.names = c(NA, -6L), .internal.selfref = <pointer: 0x2fae898>) 

これは私のコードです：

Column {.sidebar} 
----------------------------------------------------------------------- 

```{r} 
selectInput("bank_id", label = "Select a bank:", 
      df$bank, selected = "stopanska") 

selectInput('x', 'Year', names(df)) 
selectInput('y', 'Likes', names(df)) 
``` 

Column 
----------------------------------------------------------------------- 

```{r} 

dataset <- reactive({ 
    df[input$bank_id, ] 

    }) 


renderPlot({ 
    p <- ggplot(dataset(), aes_string(x=input$x, y=input$y)) + geom_bar() 

    print(p) 
}) 

    ``` 

私はdfからの値でサイドバーを取得していますが、プロットはレンダリングされません。なぜか何かヒント？

私はそれが非常に基本的な質問だと確信していますが、私はシャイニーを初めて使っています。

Answer 1

レンダリングを示すために、コードは次の行に沿って表示されます。私は入力を変更したことに注意してください（xとy）オリジナルは私の意見では使用できませんでした。

--- 
title: "bank likes" 
output: 
    flexdashboard::flex_dashboard: 
    orientation: columns 
    vertical_layout: fill 
--- 

```{r setup, include=FALSE} 
library(flexdashboard) 
library(ggplot2) 
library(shiny) 
df<-read.table(text="from_id      from_name year month  bank likes_count 
385588434812408 Стопанска_банка_На_ваша_страна 2017  8 stopanska   17 
385588434812408 Стопанска_банка_На_ваша_страна 2017  8 stopanska   20 
385588434812408 Стопанска_банка_На_ваша_страна 2017  8 stopanska   366 
385588434812408 Стопанска_банка_На_ваша_страна 2017  8 stopanska   240 
385588434812408 Стопанска_банка_На_ваша_страна 2017  8 stopanska   50 
385588434812408 Стопанска_банка_На_ваша_страна 2017  8 stopanska   7", stringsAsFactors=F, header=T) 
``` 

Column {.sidebar} 
----------------------------------------------------------------------- 

    ```{r} 
selectInput("bank_id", label = "Select a bank:", 
     df$bank, selected = "stopanska") 

selectInput('x', 'Year', choices=unique(df$year)) 
selectInput('y', 'Likes', choices=unique(df$likes_count)) 
``` 

Column 
----------------------------------------------------------------------- 

    ```{r} 

dataset <- reactive({ 
df[input$bank_id, ] 

}) 


renderPlot({ 
p <- ggplot(dataset(), aes(x=input$x, y=input$y)) + 
geom_bar(stat="identity") 

print(p) 
}) 

```