# # Plot French 4th Republic # # Clear out the Objects Just to Be Safe # rm(list=ls(all=TRUE)) # france4threpublic <- read.table("C:/r_files/voeten_3.txt",header=T) attach(france4threpublic) # plot(oc1,oc2,type="n",asp=1, main="Figure 5.9: French National Assembly 1946-1958\n(Rosenthal and Voeten, 2004)", xlab="", ylab="",ylim=c(-1.0,1.0),xlim=c(-1.0,1.0)) points(oc1[party == 1],oc2[party == 1],pch='c',col="red") points(oc1[party == 2],oc2[party == 2],pch='s',col="red") points(oc1[party == 3],oc2[party == 3],pch='r',col="black") points(oc1[party == 4],oc2[party == 4],pch='x',col="blue") points(oc1[party == 5],oc2[party == 5],pch='d',col="magenta2") points(oc1[party == 6],oc2[party == 6],pch='g',col="purple2") points(oc1[party == 7],oc2[party == 7],pch='p',col="green") # text(-1.0,1.0,"c = communist ",pos=4) text(-1.0,0.9,"s = socialist ",pos=4) text(-1.0,0.8,"r = radicals ",pos=4) text(-1.0,0.7,"x = right ",pos=4) text(-1.0,0.6,"d = christian dem.",pos=4) text(-1.0,0.5,"g = gaullists ",pos=4) text(-1.0,0.4,"p = poujadists ",pos=4)