Проблемы с визуализацией графика flexdashboard - PullRequest
Новая
       28

Проблемы с визуализацией графика flexdashboard

0 голосов
/ 18 апреля 2020

У меня проблемы с размерами графиков на моей гибкой панели, и я не знаю причину.

Мой код похож на следующий: 

```{r}
fluidPage(
  h3("Diagrama de sectores"),
  plotOutput("sectores"),
  fluidRow(
         h3("Estrategias jugador"),
         plotOutput("es_jugador"),
         h3("Estrategias ordenador"),
         plotOutput("es_computer"))
)

output$sectores <- renderPlot({
  datasetInput() %>%
     ggplot(aes(x = 2, y = freq, fill = estado)) +
     geom_bar(stat = "identity", color = "white") +
     coord_polar(theta = "y", start = 0) 
})

output$es_jugador <- renderPlot({ 
   datasetInput() %>% 
   ggplot(aes(x = move)) +
   geom_bar(aes(y = (..count..)/sum(..count..)))
})

output$es_computer <- renderPlot({ 
   datasetInput() %>% 
   ggplot(aes(x = comp.move)) +
   geom_bar(aes(y = (..count..)/sum(..count..)))
})
```

Почему я получаю это? Как я могу это исправить?

enter image description here

Чтобы сделать мой пример воспроизводимым, вот пример моего набора данных. 

 datasetInput <- tribble(
      ~move,     ~comp.move,    ~estado,    ~utilidad,  ~fecha,
   "papel",  "tijeras", "pierde",   -1, "2020-04-18",
   "papel",   "piedra",   "gana",    1, "2020-04-18",
   "papel",  "tijeras", "pierde",   -1, "2020-04-18",
   "piedra",  "piedra",   "empate",  0, "2020-04-18",
   "tijeras", "piedra",   "pierde", -1, "2020-04-18",
   "papel",  "tijeras",   "pierde", -1, "2020-04-18",
   "piedra", "tijeras",    "gana",   1, "2020-04-18",
   "papel",   "papel",    "empate",  0, "2020-04-18",
   "tijeras","tijeras",  "empate",   0, "2020-04-18",
   "piedra", "piedra",   "empate",   0, "2020-04-18",
   "piedra", "piedra",    "empate",  0, "2020-04-18",
   "piedra", "tijeras",    "gana",   1, "2020-04-18")

Спасибо в заранее,

Альберто

...