xy<-cbind(x,y)
barplot((xy),beside=TRUE)
大概是这个意思,你试试
追问m<-a[,c(4,5)]
n<-as.matrix(m)
q<-t(n)
barplot(q,beside=TRUE)
我做出来之后横轴缺少一个时间标量,主要是怎么把时间加上去

追答用text()加上去
追问加了barplot(q,legend.text=a$年份,beside=TRUE),是这样的

追答不是你这个意思,text()是函数,不是barplot里的变量。
本回答被提问者和网友采纳