【发布时间】：2019-06-20 13:55:29
【问题描述】：
尝试通过 FYQuarter 和动态图表创建带有滑块的仪表板。在 Shiny 查询下运行时出错
错误：意外的 '}' in: " geom_text(aes(label = Freq), position = position_dodge(0),vjust = -1) + 主题(panel.grid.major = element_blank(), panel.grid.minor = element_blank())})}"
Data-File2
structure(list(Quater = structure(c(1L, 1L, 1L, 2L, 2L, 2L, 3L,
3L, 3L, 4L, 4L, 4L, 5L, 5L, 5L, 6L, 6L, 6L, 7L, 7L, 7L, 8L, 8L,
8L, 9L, 9L, 9L, 10L, 10L, 10L), .Label = c("Fy17Q1", "Fy17Q2",
"Fy17Q3", "Fy17Q4", "Fy18Q1", "Fy18Q2", "Fy18Q3", "Fy18Q4", "Fy19Q1",
"Fy19Q2"), class = "factor"), RiskTierDesc = structure(c(1L,
2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L,
3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L, 3L), .Label = c("Above Normal",
"High", "Normal"), class = "factor"), Freq = c(519L, 63L, 1514L,
563L, 87L, 1662L, 643L, 81L, 1618L, 562L, 69L, 1524L, 555L, 61L,
1609L, 622L, 52L, 2090L, 800L, 86L, 2052L, 681L, 66L, 1811L,
622L, 57L, 2317L, 344L, 14L, 1537L)), .Names = c("Quater", "RiskTierDesc",
"Freq"), class = "data.frame", row.names = c(NA, -30L))
library(shiny)
library(shinydashboard)
library(ggplot2)
library(shinyWidgets)
ui <- dashboardPage(
dashboardHeader(title = "Basic Dashboard"),
dashboardSidebar(
sidebarMenu(sliderTextInput("Quater","Select Quarter:" ,
choices = File2$Quater,
selected = File2$Quater, #values which will be selected by default
animate = FALSE, grid = FALSE,
hide_min_max = FALSE, from_fixed = FALSE,
to_fixed = FALSE, from_min = NULL, from_max = NULL, to_min = NULL,
to_max = NULL, force_edges = FALSE, width = NULL, pre = NULL,
post = NULL, dragRange = TRUE))),
dashboardBody(
fluidRow(
box(
title = "RiskTier Vs Quater"
,status = "primary"
,solidHeader = TRUE
,collapsible = TRUE
,plotOutput("k", height = "300px")
))))
Server<- function(input, output){
dataset <- reactive({
File2[(File2$Quater, input$Quater),]
})
output$k<- renderPlot({
ggplot(dataset, aes(x=Quater, y=Freq , group=RiskTierDesc, colour=RiskTierDesc)) +
geom_line(aes(size=RiskTierDesc)) +
geom_point() +
scale_color_manual(values=c("red","orange","green")) +
scale_size_manual(values=c(1,1,1)) +
labs(title ="RiskTier Vs Quater", x = "Quarter", y = "Frequency") +
geom_text(aes(label = Freq), position = position_dodge(0),vjust = -1) +
theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank())})}
shinyApp(ui, Server)
请帮忙给点建议
【问题讨论】：
-
我认为
File2[(File2$Quater, input$Quater),]是问题所在。你能提供你的代码，包括数据，然后我可以尝试精确调试 -
请找到我的样本数据 Quater
-
你快到了，只需将
File2[(File2$Quater,input$Quater),]更改为File2[File2$Quater==input$Quater,]并将ggplot(dataset, ...)更改为ggplot(dataset(), ...)。当您需要共享 df 时，最好使用dput(File2) -
谢谢。现在我收到此错误警告：错误：
data必须是数据帧，或fortify()可强制的其他对象，而不是具有 reactiveExpr/reactive 类的 S3 对象 [无可用堆栈跟踪]