R 为条形图动态选择颜色

我正在使用shiny软件包制作一个应用程序，用于R数据分析

我在为条形图函数提供颜色属性值时遇到问题。我从用户那里取了两列，并应用函数nvalues，对默认颜色进行处理。。但是，如果我想拥有自己的定制颜色数组，并根据专栏的要求只使用其中的一部分，该怎么办呢

这是我闪亮的档案

shinyServer(function(input, output) {
  output$myplot<-renderPlot({          
    c1<-input$cname1
    c2<-input$cname2
    clm1<-smpl[,c1]
    clm2<-smpl[,c2]
    counts<-table(clm1,clm2)
    View(counts)
    n<-nlevels(clm1)
    barplot(counts,beside=TRUE,col=c(1:n),legend = rownames(counts))                    
  })
})

与所有基本打印功能一样，根据需要指定颜色向量

barplot(some_data,col=c('red','orange','yellow','green','blue'))   

或

---

等等。col向量会根据需要进行循环。

现在还不清楚您在问什么。您是否要求函数在颜色列表中进行选择？我的要求是，如果计数有n个级别，则应从我定义的颜色向量中选择n个颜色，而不是该向量中的所有颜色。如果列中的级别小于该向量，该怎么办。它将其用于条形图中的下一个子组。那不是good@apps92然后指定索引，例如col=rainbow10[1:n]

barplot(some_data,col=rainbow(10))