在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)