全部的条都是一个颜色，新手小白交学校论文要用到，请各位大神不吝赐教！！
我的全部代码：
原来的问卷星导出的数据是这样的，所以先做了处理


g1<-platf[grepl( pattern = "微信", platf)]
g2<-platf[grepl( pattern = "QQ", platf)]
g3<-platf[grepl( pattern = "微博", platf)]
g4<-platf[grepl( pattern = "b站", platf)]                                                                                                                                                                                                                                                                       
g5<-platf[grepl( pattern = "小红书", platf)]
g6<-platf[grepl( pattern = "抖音", platf)]
g7<-platf[grepl( pattern = "快手", platf)]
record<- matrix(c(length(g1),length(g2),length(g3),length(g4),length(g5),length(g6),length(g7)), nrow = 1)
colnames(record) <- c("微信", "QQ", "微博",'b站','小红书','抖音','快手')
record
par(mar=c(3,3,3,3))
palette("default")
a<-cm.colors(7);a
barplot(record,xlim=c(0,80),horiz=T,space=0.3,cex.names=0.9,col=cm.colors(7))
但是这里显示的颜色很奇怪都是一个色

又尝试了换成col=c(1,2,3,4,5,6,7)，结果全是黑色。。。