在條形圖底部添加標籤

Question

我很新晶格所以對我來說這是一個試驗和錯誤在這裏運行。

它似乎定製格圖形不能與典型的r-理解。

我想喜歡count(percentage)添加這應該是這樣的做的時候每個欄下面的東西：

正如你可以看到我的代碼不標註欄右側。並非全部都是錯誤的。第一個應該是20（0.1％）。

這裏我的代碼：

grp1<-rep("grp1",20) 
grp2<-rep("grp2",40) 
grp3<-rep("grp3",60) 
grp4<-rep("grp4",80) 
grp <- c(grp1,grp2,grp3,grp4) 

barchart(grp,horizontal=F, 
    par.settings = list(
    plot.polygon = list(col = c("#1E4150","#28556E","#32698C","#3C7DAA"))), 
     panel = function(x, y, subscripts, ...){ 
      X <- table(x) 
      panel.barchart(x,y,...) 
      percentages <- paste(round(table(X)/length(X),2),"%",sep="") 
      lab1 <- paste("(",percentages, sep="") 
      lab1 <- paste(lab1,")", sep="") 
      abs <- table(X) 
      panel.text(1,-3, label = paste(abs,lab1), cex=0.8) 
     } 
) 

Answer 1

我想也許你想要做更多的東西是這樣的：

barchart(grp,horizontal=F, 
    par.settings = list(
    plot.polygon = list(col = c("#1E4150","#28556E","#32698C","#3C7DAA"))), 
     panel = function(x, y, subscripts, ...){ 
      panel.barchart(x,y,...) 
      percentages <- paste(round(y/sum(y),2),"%",sep="") 
      lab1 <- paste("(",percentages,")", sep="") 
      panel.text(x,-3, labels = paste(y,lab1), cex=0.8) 
     } 
)