# # Book_ch_6_Fig_11.r # # Reads in old Interest Group Example From Poole & Rosenthal # Chapter 8, Figure 8.6, and makes House-Senate Plot # # # CWLA -0.590 -0.807 CWLA # COPE -0.598 -0.013 COPE # AFBF 0.864 0.493 AFBF # BCTD -0.134 0.654 BCTD # CV 0.992 0.129 CV # ACLU -0.713 -0.701 ACLU # ACU 0.989 -0.146 ACU # ASC 0.990 0.144 ASC # LCV -0.558 -0.830 LCV # LWV -0.381 -0.925 LWV # NFU -0.321 0.138 NFU # AFT -0.412 -0.911 AFT # CARTER -0.385 0.268 CARTER # CCUS 0.459 0.175 CCUS # NFIB 0.501 0.255 NFIB # AFSCME -0.317 -0.802 AFSCME # NFO -0.465 -0.041 NFO # NCSC -0.846 -0.534 NCSC # CFA -0.870 -0.492 CFA # NWPC -1.000 -0.029 NWPC # ADA -0.806 -0.592 ADA # UAW -0.800 -0.600 UAW # ACA 0.996 -0.093 ACA # CFNFMP -0.783 -0.622 CFNFMP # BFW -0.878 -0.479 BFW # CW -0.750 -0.662 CW # FCNL -0.854 -0.520 FCNL # NASC 1.000 0.000 NASC # UMW -0.718 0.319 UMW # # Remove all objects just to be safe # rm(list=ls(all=TRUE)) # TT <- matrix(scan("C:/R_Files/hou_fig_8p6_PandR.txt",0),ncol=8,byrow=TRUE) # T <- TT nrow <- length(T[,1]) ncol <- length(T[1,]) # par(mfrow=c(1,2)) # # # xaxis1 <- -1.0 xaxis2 <- 1.0 yaxis1 <- -1.0 yaxis2 <- 1.0 # xx <- T[,7] yy <- T[,8] plot(xx,yy,asp=1,type="n", xlab="Liberal-Conservative",ylab="Social-Issues", xlim=c(xaxis1,xaxis2),ylim=c(yaxis1,yaxis2)) mtext(side=3,line=1.5,"96th Congress\nMember Ideal Points",font=2) # points(xx[T[,4] == 100 & T[,3] >= 40 & T[,3] <= 51],yy[T[,4] == 100 & T[,3] >= 40 & T[,3] <= 51],pch='s',col="red") points(xx[T[,4] == 100 & T[,3] == 53],yy[T[,4] == 100 & T[,3] == 53],pch='s',col="red") points(xx[T[,4] == 100 & T[,3] == 54],yy[T[,4] == 100 & T[,3] == 54],pch='s',col="red") points(xx[T[,4] == 100 & (T[,3] < 40 | T[,3] > 54)],yy[T[,4] == 100 & (T[,3] < 40 | T[,3] > 54)],pch='d',col="red") points(xx[T[,4] == 100 & T[,3] == 52],yy[T[,4] == 100 & T[,3] == 52],pch='d',col="red") points(xx[T[,4] == 200],yy[T[,4] == 200],pch='r',col="blue") points(xx[T[,3] == 99],yy[T[,3] == 99],pch='P',col="black") points(xx[T[,4] == 328],yy[T[,4] == 328],pch='I',col="black") # # TT <- matrix(scan("C:/R_Files/sen_fig_8p6_PandR.txt",0),ncol=8,byrow=TRUE) # T <- TT nrow <- length(T[,1]) ncol <- length(T[1,]) # xx <- T[,7] yy <- T[,8] # points(xx[T[,4] == 100 & T[,3] >= 40 & T[,3] <= 51],yy[T[,4] == 100 & T[,3] >= 40 & T[,3] <= 51],pch='s',col="red") points(xx[T[,4] == 100 & T[,3] == 53],yy[T[,4] == 100 & T[,3] == 53],pch='s',col="red") points(xx[T[,4] == 100 & T[,3] == 54],yy[T[,4] == 100 & T[,3] == 54],pch='s',col="red") points(xx[T[,4] == 100 & (T[,3] < 40 | T[,3] > 54)],yy[T[,4] == 100 & (T[,3] < 40 | T[,3] > 54)],pch='d',col="red") points(xx[T[,4] == 100 & T[,3] == 52],yy[T[,4] == 100 & T[,3] == 52],pch='d',col="red") points(xx[T[,4] == 200],yy[T[,4] == 200],pch='r',col="blue") points(xx[T[,3] == 99],yy[T[,3] == 99],pch='P',col="black") points(xx[T[,4] == 328],yy[T[,4] == 328],pch='I',col="black") # plot(xx,yy,asp=1,type="n", xlab="Liberal-Conservative",ylab="Social-Issues", xlim=c(xaxis1,xaxis2),ylim=c(yaxis1,yaxis2)) mtext(side=3,line=1.5,"96th Congress\nInterest Groups",font=2) # text( -0.590, -0.807, "cwla",col="black",pos=2) text( -0.598, -0.013, "cope",col="black",pos=3) text( 0.864, 0.493, "afbf",col="black",pos=3) text( -0.134, 0.654, "bctd",col="black",pos=4) text( 0.992, 0.129, "cv",col="black",pos=2) text( -0.713, -0.701, "aclu",col="black",pos=2) text( 0.989, -0.166, "acu",col="black",pos=2) text( 0.990, 0.144, "asc",col="black",pos=3) text( -0.558, -0.830, "lcv",col="black",pos=4) text( -0.381, -0.925, "lwv",col="black",pos=4) text( -0.321, 0.138, "nfu",col="black",pos=4) text( -0.412, -0.911, "aft",col="black",pos=2) text( -0.385, 0.268, "carter",col="black",pos=4) text( 0.459, 0.175, "ccus",col="black",pos=2) text( 0.501, 0.255, "nfib",col="black",pos=4) text( -0.317, -0.802, "afscme",col="black",pos=4) text( -0.465, -0.041, "nfo",col="black",pos=4) text( -0.846, -0.534, "ncsc",col="black",pos=4) text( -0.870, -0.492, "cfa bfw",col="black",pos=3) text( -1.000, -0.029, "nwpc",col="black",pos=4) text( -0.806, -0.592, "ada uaw",col="black",pos=4) #text( -0.800, -0.600, "uaw",col="black",pos=4) text( 0.996, -0.083, "aca",col="black",pos=2) text( -0.753, -0.682, "cfnfmp",col="black",pos=4) #text( -0.858, -0.449, "bfw",col="black",pos=2) text( -0.760, -0.622, "cw",col="black",pos=2) text( -0.854, -0.470, "fcnl",col="black",pos=4) text( 1.000, 0.000, "nasc",col="black",pos=2) text( -0.718, 0.319, "umw",col="black",pos=3) # points( -0.590, -0.807, pch=16,col="black") points( -0.598, -0.013, pch=16,col="black") points( 0.864, 0.493, pch=16,col="black") points( -0.134, 0.654, pch=16,col="black") points( 0.992, 0.129, pch=16,col="black") points( -0.713, -0.701, pch=16,col="black") points( 0.989, -0.146, pch=16,col="black") points( 0.990, 0.144, pch=16,col="black") points( -0.558, -0.830, pch=16,col="black") points( -0.381, -0.925, pch=16,col="black") points( -0.321, 0.138, pch=16,col="black") points( -0.412, -0.911, pch=16,col="black") points( -0.385, 0.268, pch=16,col="black") points( 0.459, 0.175, pch=16,col="black") points( 0.501, 0.255, pch=16,col="black") points( -0.317, -0.802, pch=16,col="black") points( -0.465, -0.041, pch=16,col="black") points( -0.846, -0.534, pch=16,col="black") points( -0.870, -0.492, pch=16,col="black") points( -1.000, -0.029, pch=16,col="black") points( -0.806, -0.592, pch=16,col="black") points( -0.800, -0.600, pch=16,col="black") points( 0.996, -0.093, pch=16,col="black") points( -0.783, -0.622, pch=16,col="black") points( -0.878, -0.479, pch=16,col="black") points( -0.750, -0.662, pch=16,col="black") points( -0.854, -0.520, pch=16,col="black") points( 1.000, 0.000, pch=16,col="black") points( -0.718, 0.319, pch=16,col="black")