ggplot汇总数据帧的丢失值

Question

我想ggplot一些综合数据，但不幸的是我有一些损失......

df <- Project Subproject  Value  Date 
       A   1    47  2017-08-04 
       A   2    22  2017-08-04 
       B   1    1  2017-08-04 
       A   1    40  2017-08-07 
       A   2    29  2017-08-07 
       B   1    1  2017-08-07 

new_df <- df %>% 
      group_by(Project, Date)%>% 
      summarise(Value = sum(Value)) 


ui <- dashboardPage(
     dashboardSidebar(
     sidebarMenu(
     menuItem('Dashboard', tabName = 'dashboard', icon = icon('dashboard')), 

    menuItem(
    dateRangeInput('date_range', label = "Date Range",format = "mm/dd/yyyy", start = Sys.Date()-17, end = Sys.Date()+17, startview = "month", weekstart = 0, separator = " to ", width = 200) 
), 


    menuItem(
    checkboxGroupInput('project_name', label = "Project", choices = c(unique(new_df$Project)), selected = c(unique(new_df$Project))) 

), 

    menuItem(
    submitButton(text = "Apply Changes", icon = NULL, width = NULL) 
) 
) 
), 

dashboardBody(

fluidRow(
    box(plotOutput("plot1", width = 1000, height = 500)) 
) 
) 

server <- function(input, output) { 


output$plot1 <- renderPlot({ 


date_data <- reactive({ 
    subset(new_df, Date >= input$date_range[1] & Date <= input$date_range[2]) 
}) 


project_data <- reactive({ 
    subset(date_data(), Project %in% input$project_name) 
}) 




ggplot(data = project_data(), aes(x = Date, y = value, fill = Project)) + 
    geom_bar(stat = 'identity') + 
    geom_hline(yintercept = 49, linetype = 'dotted', color = 'red', size = 0.8) + 
    geom_hline(yintercept = 70, linetype = 'dashed', color = 'purple', size = 0.8) + 
    geom_text(data = project_data(), aes(label = value, fill = Project), size=4, position = position_stack(vjust = 0.5)) + 

}) 
} 
shinyApp(ui, server) 

正如你从照片中可以看到，第一张图片是我的geom_bar没有汇总/汇总数据，第二个是汇总/汇总。项目B在第二个项目中根本没有出现，尽管据说仍然在数据框中...并且没有在第一个图表中进行总结，我的geom_text仍然按子项目显示非汇总数字。

Answer 1

想通了......原来，我的一些价值观实际上是NA，而不是0，这是搞乱名单是如何聚集。用这条线固定：

df$Value = ifelse(is.na(df$Value), 0, df$Value)