R-项目条形图颜色

我是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)

---

传入向量而不是表应该可以做到：

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

或

---

使用

旁边的=TRUE

参数：

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

---

谢谢你们两位！这解决了一个令人沮丧且看似容易的难题。

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