shiny根据数据的长度设置多个色板

shiny根据数据的长度设置多个色板

复制代码
library(shiny)
library(colourpicker)
ui <- fluidPage(
  # 添加一个选择颜色的下拉菜单
  uiOutput("color_dropdown")
)

server <- function(input, output) {
  # 数据长度
  data_length <- reactive({
    length(c("数据1", "数据2", "数据3", "数据4", "数据5"))  # 这里只是一个示例,可以是你自己的数据长度
  })
  
  # 根据数据长度生成多个色板选项
  output$color_dropdown <- renderUI({
    color_palette <- c("orange", "green", "blue", "purple", "pink")
    num_colors <- data_length()
    
    dropdown_list <- lapply(1:num_colors, function(i) {
      colourInput(paste0("col_", i), paste0("选择颜色 ", i), color_palette[i])
    })
    
    tagList(dropdown_list)
  })
}

shinyApp(ui, server)
相关推荐
Wy. Lsy3 小时前
Kotlin基础学习记录
开发语言·学习·kotlin
The_Killer.3 小时前
格密码--数学基础--06对偶空间与对偶格
学习·线性代数·密码学
彤银浦4 小时前
Web学习笔记3
前端·笔记·学习·html5
之歆4 小时前
Python-魔术方法-创建、初始化与销毁-hash-bool-可视化-运算符重载-容器和大小-可调用对象-上下文管理-反射-描述器-二分-学习笔记
笔记·python·学习
优乐美香芋味好喝4 小时前
2025年7月11日学习笔记&一周归纳——模式识别与机器学习
笔记·学习·机器学习
声网6 小时前
对话 AI 陪伴新宠 Tolan 创始人:拒绝「恋爱脑」,「非人」陪伴更受欢迎?丨 Voice Agent 学习笔记
人工智能·笔记·学习
丁满与彭彭7 小时前
嵌入式学习笔记--MCU阶段--day03中断
笔记·单片机·学习
艾莉丝努力练剑7 小时前
【C语言】学习过程教训与经验杂谈:思想准备、知识回顾(五)
c语言·开发语言·数据结构·学习·算法
future14128 小时前
游戏开发日记7.12
数据结构·学习·c#·游戏开发
阿群今天学习了吗8 小时前
pytorch环境配置
人工智能·pytorch·python·学习·机器学习