Это должно отображать некоторую графику в каждом «пункте меню».
Я пытаюсь создать панель мониторинга, которая имеет различные разделы. Но размещение различных разделов (элементов) не работает с соответствующей графикой. Если я go один за другим код работает. Кажется, что мои знания в этом типе кода достигли своего пика на данный момент (;]). Я надеюсь, что вы можете помочь мне !!
Я оставляю вам захват изображения того, что он мне возвращает: Вывод
Я оставляю вам образец, чтобы вы могли запустить код: https://www.dropbox.com/s/mprblgbtrhqx5u8/example.Rdata?dl=0
Это код (он многократно повторяется, но делает подобные вещи):
library(shiny)
library(ggplot2)
library(dplyr)
library(plotly)
library(ggthemes)
library(tidyr)
if (interactive()) {
ui <- dashboardPage(
dashboardHeader(title = "aaaa"),
dashboardSidebar(
sidebarMenu(
id = "tabs",
menuItem("Juntos", tabName = "juntos", icon = icon("dashboard"),
sliderInput("year_j", "Year:",min = 2003, max = 2007,step=1,value=c(2003,2007)),
sliderInput("nac_j", "Año nacimiento:",min = 1991, max = 2001,step=1,value=c(1991,2001)),
sliderInput("edad_j", "Edad:",min = 5, max = 15,step=1,value=c(5,15))
),
menuItem("Hombres", tabName = "hombres", icon = icon("th"),
sliderInput("year_h", "Year:",min = 2003, max = 2007,step=1,value=c(2003,2007)),
sliderInput("nac_h", "Año nacimiento:",min = 1991, max = 2001,step=1,value=c(1991,2001)),
sliderInput("edad_h", "Edad:",min = 5, max = 15,step=1,value=c(5,15))
),
menuItem("Mujeres", tabName = "mujeres", icon = icon("th"),
sliderInput("year_m", "Year:",min = 2003, max = 2007,step=1,value=c(2003,2007)),
sliderInput("nac_m", "Año nacimiento:",min = 1991, max = 2001,step=1,value=c(1991,2001)),
sliderInput("edad_m", "Edad:",min = 5, max = 15,step=1,value=c(5,15))
)
)
),
dashboardBody(
tabItems(
tabItem(tabName = "juntos",
fluidRow(
box(plotlyOutput("plot2", width = "100%")),
box(plotlyOutput("plot3", width = "100%")),
box(plotlyOutput("plot1", width = "100%"))
)
),
tabItem(tabName = "hombres",
fluidRow(
box(plotlyOutput("plot4", width = "100%")),
box(plotlyOutput("plot5", width = "100%")),
box(plotlyOutput("plot6", width = "100%"))
)
),
tabItem(tabName = "mujeres",
fluidRow(
box(plotlyOutput("plot7", width = "100%")),
box(plotlyOutput("plot8", width = "100%")),
box(plotlyOutput("plot9", width = "100%"))
)
)
)
)
)
server <- function(input,output,session){
observeEvent(input$tabs, {
updateTabItems(session, "tabs", newtab)
})
dat <- reactive({
test <- p0318_H[p0318_H$y %in% seq(from=min(input$year_h),to=max(input$year_h),by=1),]
print(test)
test
})
dat1 <- reactive({
test1 <- tabla_H[tabla_H$y_nac %in% seq(from=min(input$nac_h),to=max(input$nac_h),by=1),]
print(test1)
test1
})
dat2 <- reactive({
test2 <- p0318_H[p0318_H$ed %in% seq(from=min(input$edad_h),to=max(input$edad_h),by=1),]
print(test2)
test2
})
#
dat3 <- reactive({
test3 <- p0318_M[p0318_M$y %in% seq(from=min(input$year_m),to=max(input$year_m),by=1),]
print(test3)
test3
})
dat4 <- reactive({
test4 <- tabla_M[tabla_M$y_nac %in% seq(from=min(input$nac_m),to=max(input$nac_m),by=1),]
print(test4)
test4
})
dat5 <- reactive({
test5 <- p0318_M[p0318_M$ed %in% seq(from=min(input$edad_m),to=max(input$edad_m),by=1),]
print(test5)
test5
})
#
dat6 <- reactive({
test6 <- p0318_J[p0318_J$y %in% seq(from=min(input$year_j),to=max(input$year_j),by=1),]
print(test6)
test6
})
dat7 <- reactive({
test7 <- tabla_J[tabla_J$y_nac %in% seq(from=min(input$nac_j),to=max(input$nac_j),by=1),]
print(test7)
test7
})
dat8 <- reactive({
test8 <- p0318_J[p0318_J$ed %in% seq(from=min(input$edad_j),to=max(input$edad_j),by=1),]
print(test8)
test8
})
##
output$plot2<-renderPlotly({
print(
ggplotly(ggplot(dat6(),aes(ed,pctdg, color=as.factor(y)))+geom_line()+ theme_gdocs()))
})
output$plot3<-renderPlotly({
print(
ggplotly(ggplot(dat7(),aes(ed,pctdg, color=as.factor(edad_year)))+geom_line()+ theme_gdocs()))
})
output$plot1<-renderPlotly({
print(
ggplotly(ggplot(dat8(),aes(y,pctdg, color=as.factor(ed)))+geom_line()+ theme_gdocs()))
})
#
output$plot4<-renderPlotly({
print(
ggplotly(ggplot(dat(),aes(ed,pctdg, color=as.factor(y)))+geom_line()+ theme_gdocs()))
})
output$plot5<-renderPlotly({
print(
ggplotly(ggplot(dat1(),aes(ed,pctdg, color=as.factor(edad_year)))+geom_line()+ theme_gdocs()))
})
output$plot6<-renderPlotly({
print(
ggplotly(ggplot(dat2(),aes(y,pctdg, color=as.factor(ed)))+geom_line()+ theme_gdocs()))
})
#
output$plot7<-renderPlotly({
print(
ggplotly(ggplot(dat3(),aes(ed,pctdg, color=as.factor(y)))+geom_line()+ theme_gdocs()))
})
output$plot8<-renderPlotly({
print(
ggplotly(ggplot(dat4(),aes(ed,pctdg, color=as.factor(edad_year)))+geom_line()+ theme_gdocs()))
})
output$plot9<-renderPlotly({
print(
ggplotly(ggplot(dat5(),aes(y,pctdg, color=as.factor(ed)))+geom_line()+ theme_gdocs()))
})
}
shinyApp(ui, server)
}
Правда состоит в том, что это очень поможет !