library(gplots)

f2 <- matrix(c(.6153, .5703, .5821, .5498),2,2)
postscript(file="fig2.eps",family="NimbusSan",width=8,height=8,
horiz=F,onefile=F,pointsize=20,paper="special")
barplot2(f2,beside=T,ylim=c(.5,.63),xpd=F,col=(c("gray40","gray80")),
         ylab="Mean relative trust in the better advisor",
         xlab="Accuracy group")
mtext(c("Government agency\nadvisor better","Consumer organization\nadvisor better"),
      side=1,line=1.35,at=c(2,5))
legend(3.3,.62,title="Trust type",bty="n",
       fill=c("gray40","gray80"),c("Revealed","Stated"))
dev.off()

f3 <- matrix(c(.6246, .5575, .5833, .5461),2,2)
postscript(file="fig3.eps",family="NimbusSan",width=8,height=8,
horiz=F,onefile=F,pointsize=20,paper="special")
barplot2(f3,beside=T,ylim=c(.5,.63),xpd=F,col=(c("gray40","gray80")),
         ylab="Mean relative trust in the better advisor",
         xlab="Accuracy group")
mtext(c("Government agency\nadvisor better","Consumer organization\nadvisor better"),
      side=1,line=1.35,at=c(2,5))
legend(3.3,.62,title="Value similarity",fill=c("gray40","gray80"),bty="n",
       c("Values similar","Values dissimilar"))
dev.off()

f4 <- matrix(c(.5914, .5890, .5968, .5348),2,2)
postscript(file="fig4.eps",family="NimbusSan",width=8,height=8,
horiz=F,onefile=F,pointsize=20,paper="special")
barplot2(f4,beside=T,ylim=c(.5,.63),xpd=F,col=(c("gray40","gray80")),
         ylab="Mean relative trust in the better advisor",
         xlab="Accuracy group")
mtext(c("Government agency\nadvisor better","Consumer organization\nadvisor better"),
      side=1,line=1.35,at=c(2,5))
legend(1,.625,title="Physical similarity",fill=c("gray40","gray80"),bty="n",
                       c("Physically similar","Physically dissimilar"))
dev.off()