ob <- c(4,1,2,12,97) names(ob) <- c("+++","++","+","±","-") ii <- barplot(as.matrix(ob),beside=F,ylim=c(0,120), main="ソロモン諸島成人の尿潜血検査結果") oc <- ob for (i in 1:length(ob)) { oc[i] <- sum(ob[1:i])-ob[i]/2 } text(ii,oc,paste(names(ob)))