postscript(file="fig1.eps",family="NimbusSan",width=8,height=8,
horiz=F,onefile=F,pointsize=16,paper="special")
plot(c(8.681,7.497,5.867),typ="b",ylim=c(4.5,9.5),xaxt="n",
     xlab="Potential other helpers",ylab="Willingness to help")
lines(c(5.497,5.356,5.523),typ="b",lty=2)
axis(1,at=1:3,labels=c("0","1","14"))
legend(2.25,9,title="Perspective",legend=c("self","other"),lty=c(1,2))
dev.off()

postscript(file="fig2.eps",family="NimbusSan",width=8,height=8,
horiz=F,onefile=F,pointsize=16,paper="special")
plot(c(5.487,4.487),typ="b",ylim=c(4.25,6),xaxt="n",xlab="",ylab="",xlim=c(.75,2.25))
lines(c(4.571,5.657),typ="b",lty=2)
axis(1,at=1:2,labels=c("Absolute number","Proportion"))
legend(1.25,6,title="Perspective",legend=c("self","other"),lty=c(1,2))
dev.off()

postscript(file="fig3.eps",family="NimbusSan",width=8,height=8,
horiz=F,onefile=F,pointsize=16,paper="special")
plot(c(3.871,4.355),typ="b",ylim=c(3.75,5.25),xaxt="n",xlab="",ylab="",xlim=c(.75,2.25))
lines(c(4.638,4.897),typ="b",lty=2)
axis(1,at=1:2,labels=c("Private donation","Public support"))
legend(1,4.5,title="Perspective",legend=c("self","other"),lty=c(1,2))
dev.off()

postscript(file="fig4.eps",family="NimbusSan",width=8,height=8,
horiz=F,onefile=F,pointsize=16,paper="special")
plot(c(5.582,5.051),typ="b",ylim=c(4.25,5.75),xaxt="n",xlab="",ylab="",xlim=c(.75,2.25))
lines(c(4.392,5.139),typ="b",lty=2)
axis(1,at=1:2,labels=c("Principles","Convenience"))
legend(1,5.25,title="Perspective",legend=c("self","other"),lty=c(1,2))
dev.off()