R 在Shiny中使用appendTab()并使用ggplot创建图表：图表正在发生变化

这是我的代码

我的 idea 是用appendTab()e创建面板，让用户创建图表，然后点击一个按钮来运行某种模型

这个 idea 几乎是可行的，但我注意到，当我回到第一个面板时，图表的 colored颜色 与最后一个图表的 colored颜色 相同.

这里我有一个gif显示，当我返回到上一个面板时， colored颜色 始终保持最后一个 colored颜色 (黄色).

为什么？

library(shiny)
library(dplyr)
library(stringr)
library(ggplot2)

colors_hex <- c("#FF0000", "#00FF00", "#0000FF", "#FFFF00", "#FF00FF")

data <- gapminder::gapminder %>% filter(country == 'Italy')


# Adiciona ruído aleatório aos valores da coluna 'pop'
desvio_maximo = 0.05  # Ajuste conforme necessário para controlar o desvio máximo
noise <- rnorm(n = nrow(data), mean = 0, sd = desvio_maximo * mean(data$pop))
pop_com_ruido <- data$pop + noise
ui <- fluidPage(
  
  navbarPage(
    "Rodando Modelos Econométricos com seus dados...",
    id = "tabs"
  ),
  actionButton("add_tab", "Adicione um Painel"),
  tableOutput("head"),

  uiOutput("tabs_content")
  
)

server <- function(input, output, session) {

  observeEvent(input$add_tab, {
    tab_name <- paste("Gráfico e Regressão Modelo ", input$add_tab)
    appendTab(
      inputId = "tabs",
      tabPanel(tab_name,
               actionButton(inputId = str_remove_all(paste0(tab_name,'criar')," "),
                            paste0("Crie o Gráfico")),
               actionButton(inputId = str_remove_all(paste0(tab_name,'mod')," "),
                            paste0("Rode a ",tab_name)),
               plotOutput(paste0("plot",input$add_tab))
      ),
      select = TRUE
    )
      observeEvent(
        input[[str_remove_all(paste0(tab_name,'criar')," ")]],{
          output[[paste0("plot",input$add_tab)]] <- renderPlot({
          p <- ggplot(data = data,aes(x = year, y = pop)) + geom_line( color = colors_hex[input$add_tab])
          p
        }
      )
     
      
    })
      observeEvent(
        input[[str_remove_all(paste0(tab_name,'mod')," ")]],{
          output[[paste0("plot",input$add_tab)]] <- renderPlot({
            ggplot(data = data,aes(x = year, y = pop)) + 
              geom_line(color = colors_hex[input$add_tab])+
              geom_line(aes(x = year, pop_com_ruido),color = 'black',size = 4)
          }
          )
        })
       
  })
}

shinyApp(ui, server)