关于在R Shiny中添加图例

问题描述

在获得名为full的表之后，这是我的代码的一部分

full <- full %>% pivot_longer(cols = -num)
    p <- ggplot(full,aes(x=num,y=value,group=name,color=name,linetype=name))+
      geom_line()
    
    if(input$po == c(1,2) | input$po == c(2,1) ){
       p <- p + 
        scale_color_manual(values = c(Policy1='red',Policy1reuse ='red',Policy2='blue',Policy2reuse ='blue'))+
        scale_linetype_manual(values = c(Policy1='solid',Policy1reuse ='dashed',Policy2='solid',Policy2reuse ='dashed'))
      }
    else if(input$po == c(1,3) | input$po == c(3,1) ){
      p <- p + 
        scale_color_manual(values = c(Policy3='green',Policy3reuse ='green',Policy1='blue',Policy1reuse ='blue'))+
        scale_linetype_manual(values = c(Policy3='solid',Policy3reuse ='dashed',Policy1='solid',Policy1reuse ='dashed'))}

我在这里绘制渲染图，input$po是用户在selectInput中输入的数字， 假设我输入1,2或2,1或3,1，它可以正常工作，例如，如果我输入3,1： 表格如下：

，这是输入和绘图：

但是，如果我输入1,3，则会出现错误：

我不明白为什么会这样，如果我删除了1,2和2,1条件部分的scalar_color_manual和scalar_linetype_manual，那么1,3将会解决！但不是我想要的线型和颜色。如果我在if中放入1,3和3,1，在if中放入1,2 2,1，那么1,3可以正常工作，但是1,2将运行此错误，我该如何解决。谢谢您的帮助。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）