R不着色条形图

我正在对问卷的各个部分进行图形可视化。 我们使用RGB系统与Excel协调颜色 但是，我的条形图没有着色，只使用了着色向量的第一种颜色

所以不是

barplot(c(1, 1, 1), axes=T, col=c("#806000","#C6E0B4","#FFC000"),names.arg=c("test1","test2","test3"))

最后，我发现所有三个条都是“806000”的颜色

以下是我的图表代码（DATA_tot是我问卷的整个数据表）：

有没有人经历过这个问题，或者找到了解决方法？

---

我正在明确地寻找带有

条形图的解决方案（出于其他原因）。
尝试使用
c
而不是
cbind
：

barplot(
  c(
    length(which(DATA_tot$A014_18==2)),
    length(which(DATA_tot$A014_02==2)),   
    length(which(DATA_tot$A014_01==2)),
    length(which(DATA_tot$A014_03==2))
    ),
  main="Frage 4a",
  col=c("grey","#806000","#C6E0B4","#FFC000"),
  ylab="Anzahl der Betriebe",
  names.arg=c("keine \n Änderungen","Streuwiesen","einmähdige \n 
Wiesen","Hutweiden"), 
  ylim=c(0,1400),
  cex.axis=0.8, cex.names=0.6
  )

尝试使用
c
而不是
cbind
：

barplot(
  c(
    length(which(DATA_tot$A014_18==2)),
    length(which(DATA_tot$A014_02==2)),   
    length(which(DATA_tot$A014_01==2)),
    length(which(DATA_tot$A014_03==2))
    ),
  main="Frage 4a",
  col=c("grey","#806000","#C6E0B4","#FFC000"),
  ylab="Anzahl der Betriebe",
  names.arg=c("keine \n Änderungen","Streuwiesen","einmähdige \n 
Wiesen","Hutweiden"), 
  ylim=c(0,1400),
  cex.axis=0.8, cex.names=0.6
  )

我上一个问题的旁白：如何用高度标注每个酒吧？我上一个问题的旁白：如何用高度标注每个酒吧？