Data table from <a href="http://hunch.net/?p=2517">http://hunch.net/?p=2517</a>
<br>
<img src="Screen shot 2012-06-06 at 1.13.00 PM.png">

<hr>
commands approximately
<pre style="font-family: sans-serif, helvetica, arial; white-space: pre-wrap; white-space: -moz-pre-wrap; white-space: -pre-wrap; white-space: -o-pre-wrap; word-wrap: break-word;">

library(reshape2)
library(plyr)

> d=read.tsv("data.tsv",col.names=c('k','n','name'))

> e=ddply(d,.(name),function(x) {confint=(if(x$n==0) c(NA,NA) else binom.test(x$k,x$n)$conf.int); data.frame(lo=confint[1], hi=confint[2], p=x$k/x$n, name=sprintf("%s (%s/%s)", x$name, x$k,x$n))})

> e=subset(e,is.finite(p))

> e=arrange(e,e$p)

> par(mar=c(5,20,3,1));plot(e$p, 1:nrow(e),main="95% binom confints\nred=overall rate",axes=F,xlim=c(0,1),xlab='accept rate',ylab='');axis(2,labels=e$name,at=1:nrow(e),las=1); segments(x0=e$lo,x1=e$hi,y0=1:nrow(e)); axis(1);  abline(v=0.2675709,col='red')

</pre>