R-Project Barplot颜色

Question

我是R的新手，我正在尝试创建一个简单的条形图。我已经能够创建一个具有正确值的条形图，但所有条形图只能使用一种颜色。如果我稍微更改代码（使用table（）而不是as.table（）），我会得到错误的值，但图表上的颜色正确。如何让as.table（）接受图形中的多种颜色？这是我的代码的更改版本：

a=30
b=20
c=10
d=15
x=matrix(c(a,b,c,d),ncol=4,byrow=TRUE)   
colnames(x)=c("Label1","Label2","Label3","Label4")  
    rownames(x)=c("Percentage")  
    x=as.table(x)  
    color=c("red","blue","green","orange")
barplot(x,main="X",ylab="Percent",cex.names=0.75,col=color)

Answer 1

使用beside = TRUE参数：

barplot(x, beside = TRUE, main="X", ylab="Percent", cex.names=0.75, col=color)

Answer 2

传入向量而不是表应该可以解决问题：

barplot(x[1, ], main="X", ylab="Percent", cex.names=0.75, col=color)

或者

barplot(x["Percentage", ], main="X",ylab="Percent",cex.names=0.75, col=color)