没问题，我来帮你搞定这个Shiny工具！下面是一个完整的可运行示例，完全匹配你的需求，你可以直接拿去修改适配自己的产品函数：

library(shiny)
library(ggplot2)

# 定义UI界面
ui <- fluidPage(
  titlePanel("产品价值随利率变动分析"),
  sidebarLayout(
    sidebarPanel(
      # 产品选择下拉框
      selectInput("product", "选择产品:",
                  choices = c("产品A" = "A", "产品B" = "B"), # 可按需添加更多产品
                  selected = "A"),
      # 初始金额输入框
      numericInput("initial_amount", "初始金额($):",
                   value = 1000, min = 0.01, step = 1)
    ),
    mainPanel(
      plotOutput("value_plot")
    )
  )
)

# 定义Server逻辑
server <- function(input, output) {
  
  # 响应式计算产品价值：实时响应输入变化
  calculate_value <- reactive({
    # 生成利率序列：0%到20%，步长0.5%（可按需调整范围和步长）
    interest_rates <- seq(0, 0.2, by = 0.005)
    # 根据选中产品匹配对应计算函数
    product_value <- switch(input$product,
                            "A" = input$initial_amount * (1 + interest_rates)^-1, # 产品A的公式
                            "B" = input$initial_amount * (1 + interest_rates)^5) # 示例产品B的公式，可替换
    
    # 返回格式化的数据框，方便绘图
    data.frame(
      Rate = interest_rates * 100, # 转换为百分比格式显示
      Value = product_value
    )
  })
  
  # 生成并渲染绘图
  output$value_plot <- renderPlot({
    plot_data <- calculate_value()
    
    ggplot(plot_data, aes(x = Rate, y = Value)) +
      geom_line(color = "#2c3e50", size = 1.2) +
      geom_point(color = "#e74c3c", size = 2) +
      labs(
        title = paste("产品", input$product, "价值随利率变动"),
        x = "利率(%)",
        y = "产品价值($)"
      ) +
      theme_minimal() +
      theme(plot.title = element_text(hjust = 0.5, size = 16, face = "bold"))
  })
}

# 启动Shiny App
shinyApp(ui = ui, server = server)

关键细节说明： #

• 实时响应机制：calculate_value()是响应式函数，只要用户修改产品选择或初始金额，就会自动重新计算全序列的产品价值；
• 产品函数扩展：在switch语句里可以轻松添加更多产品的计算公式，直接替换成你自己的业务逻辑即可；
• 绘图优化：用ggplot2生成美观的折线图，添加数据点让数值更直观，坐标轴和标题都做了清晰的标注；
• 部署便捷性：把代码保存为app.R文件后，用RStudio的「Publish」按钮（需登录ShinyApps账号）或rsconnect包的deployApp()命令就能快速上线。

内容的提问来源于stack exchange，提问作者Shafid Islam