Я играю с функцией geom_mosaic()
(часть пакета ggmosaic
) на R Shiny и придумала проблему, которую пыталась решить несколько дней.
Во-первых, некоторые примеры данных:
a <- "a"
b <- "b"
c <- "c"
df <- tribble(
~id, ~var1, ~var2, ~var3,
1, a, b, c,
2, b, b, c,
3, b, b, c,
4, a, c, b,
5, a, a, a,
6, b, c, c,
7, b, c, a,
8, a, a, b,
9, a, a, a,
10, b, b, c
)
Кажется, что geom_mosaic()
не принимает реактивные входы на Shiny, то есть код 1 (ниже) отлично работает на консоли R, ноКод 2 (эквивалент R Shiny) не работает, выдавая следующее сообщение об ошибке:
Ошибка: объект ______ не найден
Код 1 (geom_mosaic отлично работает наконсоль):
library(tidyverse)
library(ggmosaic)
selected_var1 <- "var1"
selected_var1_dat <- df[[selected_var1]]
selected_var2 <- "var2"
selected_var2_dat <- df[[selected_var2]]
ggplot(data = df) +
geom_mosaic(aes(x = product(selected_var1_dat),
fill = selected_var2_dat, na.rm = T))
Вывод ggplot (все выглядит хорошо):
Код 2 (теперь для реализации в Shiny):
library(shiny)
library(tidyverse)
library(ggmosaic)
varOptions <- c("var1", "var2", "var3")
a <- "a"
b <- "b"
c <- "c"
df <- tribble(
~id, ~var1, ~var2, ~var3,
1, a, b, c,
2, b, b, c,
3, b, b, c,
4, a, c, b,
5, a, a, a,
6, b, c, c,
7, b, c, a,
8, a, a, b,
9, a, a, a,
10, b, b, c
)
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
selectInput(inputId = "selected_var1",
label = "X:",
choices = varOptions),
selectInput(inputId = "selected_var2",
label = "Y:",
choices = varOptions)
),
mainPanel(
plotlyOutput(outputId = "mosaic")
)
)
)
server <- function(input, output) {
output$mosaic <- renderPlotly({
selected_var1 <- input$selected_var1
selected_var1_dat <- df[[selected_var1]]
selected_var2 <- input$selected_var2
selected_var2_dat <- df[[selected_var2]]
ggplot(data = df) +
geom_mosaic(aes(x = product(selected_var1_dat),
fill = selected_var2_dat, na.rm = T))
})
}
shinyApp(ui = ui, server = server)
, который выводит это сообщение об ошибке:
Я пробовал разные способы обойти эту проблему без удачи.Я немного поработал с Shiny, и, похоже, он работает с любым другим ggplot
графиком, который я использовал.У кого-нибудь есть идеи о том, что может происходить?