动态选择条形图的颜色

Question

我正在使用闪亮包进行R数据分析。

我无法为color函数提供barplot属性的值。我正在从用户那里获取两列，我正在应用函数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))                    
  })
})

Answer 1

与所有base绘图功能一样，根据需要指定颜色矢量。

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

或

barplot(some_data,col=rainbow(10))

等等。 col向量会根据需要进行回收。