0
我有这个闪亮的代码和情节是由于某种原因没有显示。你能帮我伸出手吗? 是在主面板中呈现的基本闪亮情节。检查负载的时间,仍然没有绘图。基本闪亮不渲染阴谋
library(shiny)
library(plotly)
library(ggplot2)
ui <- fluidPage(
(titlePanel("APP & MEP | Size (m2) ~ Hours", windowTitle = "app")),
sidebarLayout(
sidebarPanel(
checkboxGroupInput(inputId = "checkgroup",
label = "Select Deparments",
choices = c("All", "ELE", "HVAC", "MAN", "PH", "LV"),
selected = "All", inline = F),
radioButtons(inputId = "radio",
label = "ADD Stat_Smooth?",
choices = c("YES","NO"),
inline = T),
sliderInput(inputId = "slider",
label = "SPAN Setting",
min = 0.2, max = 2, value = 1,
ticks = T)
),
mainPanel(plotOutput(outputId = "plot33"))
)
)
server <- function(input, output){
output$plot33 <- renderPlotly({
gg <- ggplot(sizedf, aes(SIZE, Hours)) + geom_point(aes(color = Department)) + ggtitle("Size(m2) vs Hours per department")
p <- ggplotly(gg)
p
})
}
shinyApp(ui = ui, server = server)
不知道我得到你得到的错误,但对象sizedf'未找到告诉我,你没有加载数据集中在你的榜样。 – MLavoie
但结构可以吗? –
在你的ui.R plotOutput应该被plotlyOutput替换 – MLavoie