r - R闪亮的ggplot与if条件多层

Question

我正在创建一个闪亮的应用程序，我心中有以下目标。

1. 选择 studyid，然后在 y 上绘制平均值，在 x 轴上绘制 avisit。
2. 之后，如果用户从主题列表中选择主题，我应该能够超级施加散点图和线图。

我正在使用以下代码，它工作正常，但我无法在 if 块中添加另一层来绘制线图。任何帮助

if (input$studyid == "xxx") {
  ggplot(list_val_mean[[1]],aes(AVISIT,mean))  +
    geom_point() +
    geom_line() + {
      if (length(input$subjlist) > 0) geom_point(data = filt_df[[1]] %>% 
                                                   filter(SUBJID %in% input$subjlist), aes(AVISIT,VAL))
      
    } +
    theme_classic()
}

感谢

标签： rif-statementggplot2shiny