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)
相关推荐
生如夏花℡17 分钟前
HarmonyOS学习记录3
学习·ubuntu·harmonyos
之歆20 分钟前
Python-封装和解构-set及操作-字典及操作-解析式生成器-内建函数迭代器-学习笔记
笔记·python·学习
幽络源小助理26 分钟前
SpringBoot基于JavaWeb的城乡居民基本医疗信息管理系统
java·spring boot·学习
虾球xz2 小时前
CppCon 2018 学习:EFFECTIVE REPLACEMENT OF DYNAMIC POLYMORPHISM WITH std::variant
开发语言·c++·学习
Chef_Chen2 小时前
从0开始学习R语言--Day38--辛普森多样性指数
学习
Allen_LVyingbo2 小时前
Python常用医疗AI库以及案例解析(2025年版、上)
开发语言·人工智能·python·学习·健康医疗
DKPT2 小时前
Java组合模式实现方式与测试方法
java·笔记·学习·设计模式·组合模式
菜菜why4 小时前
MSPM0G3507学习笔记(一) 重置版:适配逐飞库的ti板环境配置
笔记·学习·电赛·嵌入式软件·mspm0
夜阑卧听风吹雨,铁马冰河入梦来4 小时前
Spring AI 阿里巴巴学习
人工智能·学习·spring
板栗焖小鸡5 小时前
STM32-PWM驱动无源蜂鸣器
stm32·学习