R不着色條圖

Question

我正在對問卷的各個部分進行圖形化可視化處理。 我們正在使用RGB系統與Excel協調顏色，但是我的條形圖沒有被着色，僅使用着色矢量的第一種顏色。

所以代替

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

我最后將所有三個條形設置為顏色“＃806000”。

這是我的圖表的代碼（DATA_tot是我的問卷的整個數據表）：

barplot(
  cbind(
    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
  )

有沒有人遇到過這個問題或找到解決方法？ 我正在明確尋找使用barplot解決方案（出於其他原因）。

Answer 1

嘗試使用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
  )