将多个分类标签添加到R中的条形图

Question

说我有一些关于我在地球和韦恩世界进行的实验的数据。有控制和治疗手段：

means1<-c(1,2)
means2<-c(1.5,2.5)
data<-cbind(means1,means2)
rownames(data)=c('ctrl','treatment')
colnames(data)=c('Earth','Waynes World')

我想绘制这些数据，所以我这样做。

barplot(data,beside=T) 

这会生成成对的控制和治疗条，由行星分隔。每对条形都有一个x轴标签，用于指定它们来自哪个行星。我想要的是每个条形下面的第二组x轴标签，指定ctrl或治疗。奖励如果您倾斜第二组标签，它们不会与第一个标签重叠，并且一切看起来都很漂亮。

Answer 1

我认为这样的事情描述了你之后的事情

bp<-barplot(data,beside=T, xaxt="n") 
mtext(text=rownames(data)[row(bp)], at=bp, line=1, side=1)
mtext(text=colnames(data), at=colMeans(bp), line=2.2, side=1)