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
  )

R不着色条图

1 个答案: