/
map by school 2 (tag counts).R
executable file
·132 lines (116 loc) · 6.72 KB
/
map by school 2 (tag counts).R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
# NB: This file assumes you have already run "map by school 1 (setup).R"
##########################
## First set of tag plots: raw numbers as radii, each tag separately
##
filename <- paste0(imageloc, "US map, case 2001-2010, N",diss.count,".pdf")
pdf(filename)
map("worldHires",c("usa","Canada","Mexico"), xlim=c(-135,-53), ylim=c(23,58), fill=FALSE)
map("state", boundary = FALSE, col="gray",add=TRUE)
points(x=Lng[case],y=Lat[case],cex=sqrt(DissCount),col="gray10",pch=21,bg=alpha("gray20",0.5))
title("Clinical / Case Study sites", sub=paste(casesum,"dissertations, 2001-2010"))
dev.off()
filename <- paste0(imageloc, "US map, crit 2001-2010, N",diss.count,".pdf")
pdf(filename)
map("worldHires",c("usa","Canada","Mexico"), xlim=c(-135,-53), ylim=c(23,58), fill=FALSE)
map("state", boundary = FALSE, col="gray",add=TRUE)
points(x=Lng[crit],y=Lat[crit],cex=sqrt(DissCount),col="gray10",pch=21,bg=alpha("gray20",0.5))
title("Critical/Hermeneutical sites", sub=paste(critsum,"dissertations, 2001-2010"))
dev.off()
filename <- paste0(imageloc, "US map, cult 2001-2010, N",diss.count,".pdf")
pdf(filename)
map("worldHires",c("usa","Canada","Mexico"), xlim=c(-135,-53), ylim=c(23,58), fill=FALSE)
map("state", boundary = FALSE, col="gray",add=TRUE)
points(x=Lng[cult],y=Lat[cult],cex=sqrt(DissCount),col="gray10",pch=21,bg=alpha("gray20",0.5))
title("Cultural / Critical sites", sub=paste(cultsum,"dissertations, 2001-2010"))
dev.off()
filename <- paste0(imageloc, "US map, disc 2001-2010, N",diss.count,".pdf")
pdf(filename)
map("worldHires",c("usa","Canada","Mexico"), xlim=c(-135,-53), ylim=c(23,58), fill=FALSE)
map("state", boundary = FALSE, col="gray",add=TRUE)
points(x=Lng[disc],y=Lat[disc],cex=sqrt(DissCount),col="gray10",pch=21,bg=alpha("gray20",0.5))
title("Discourse or Text Analysis sites", sub=paste(discsum,"dissertations, 2001-2010"))
dev.off()
filename <- paste0(imageloc, "US map, ethn 2001-2010, N",diss.count,".pdf")
pdf(filename)
map("worldHires",c("usa","Canada","Mexico"), xlim=c(-135,-53), ylim=c(23,58), fill=FALSE)
map("state", boundary = FALSE, col="gray",add=TRUE)
points(x=Lng[ethn],y=Lat[ethn],cex=sqrt(DissCount),col="gray10",pch=21,bg=alpha("gray20",0.5))
title("Ethnographic sites", sub=paste(ethnsum,"dissertations, 2001-2010"))
dev.off()
filename <- paste0(imageloc, "US map, expt 2001-2010, N",diss.count,".pdf")
pdf(filename)
map("worldHires",c("usa","Canada","Mexico"), xlim=c(-135,-53), ylim=c(23,58), fill=FALSE)
map("state", boundary = FALSE, col="gray",add=TRUE)
points(x=Lng[expt],y=Lat[expt],cex=sqrt(DissCount),col="gray10",pch=21,bg=alpha("gray20",0.5))
title("Experimental sites", sub=paste(exptsum,"dissertations, 2001-2010"))
dev.off()
filename <- paste0(imageloc, "US map, hist 2001-2010, N",diss.count,".pdf")
pdf(filename)
map("worldHires",c("usa","Canada","Mexico"), xlim=c(-135,-53), ylim=c(23,58), fill=FALSE)
map("state", boundary = FALSE, col="gray",add=TRUE)
points(x=Lng[hist],y=Lat[hist],cex=sqrt(DissCount),col="gray10",pch=21,bg=alpha("gray20",0.5))
title("Historical / Archival sites", sub=paste(histsum,"dissertations, 2001-2010"))
dev.off()
filename <- paste0(imageloc, "US map, intv 2001-2010, N",diss.count,".pdf")
pdf(filename)
map("worldHires",c("usa","Canada","Mexico"), xlim=c(-135,-53), ylim=c(23,58), fill=FALSE)
map("state", boundary = FALSE, col="gray",add=TRUE)
points(x=Lng[intv],y=Lat[intv],cex=sqrt(DissCount),col="gray10",pch=21,bg=alpha("gray20",0.5))
title("Interview / Questionnaire sites", sub=paste(intvsum,"dissertations, 2001-2010"))
dev.off()
filename <- paste0(imageloc, "US map, meta 2001-2010, N",diss.count,".pdf")
pdf(filename)
map("worldHires",c("usa","Canada","Mexico"), xlim=c(-135,-53), ylim=c(23,58), fill=FALSE)
map("state", boundary = FALSE, col="gray",add=TRUE)
points(x=Lng[meta],y=Lat[meta],cex=sqrt(DissCount),col="gray10",pch=21,bg=alpha("gray20",0.5))
title("Meta-Analysis / Discipliniography sites", sub=paste(metasum,"dissertations, 2001-2010"))
dev.off()
filename <- paste0(imageloc, "US map, modl 2001-2010, N",diss.count,".pdf")
pdf(filename)
map("worldHires",c("usa","Canada","Mexico"), xlim=c(-135,-53), ylim=c(23,58), fill=FALSE)
map("state", boundary = FALSE, col="gray",add=TRUE)
points(x=Lng[modl],y=Lat[modl],cex=sqrt(DissCount),col="gray10",pch=21,bg=alpha("gray20",0.5))
title("Model-Building sites", sub=paste(modlsum,"dissertations, 2001-2010"))
dev.off()
filename <- paste0(imageloc, "US map, phil 2001-2010, N",diss.count,".pdf")
pdf(filename)
map("worldHires",c("usa","Canada","Mexico"), xlim=c(-135,-53), ylim=c(23,58), fill=FALSE)
map("state", boundary = FALSE, col="gray",add=TRUE)
points(x=Lng[phil],y=Lat[phil],cex=sqrt(DissCount),col="gray10",pch=21,bg=alpha("gray20",0.5))
title("Philosophical sites", sub=paste(philsum,"dissertations, 2001-2010"))
dev.off()
filename <- paste0(imageloc, "US map, poet 2001-2010, N",diss.count,".pdf")
pdf(filename)
map("worldHires",c("usa","Canada","Mexico"), xlim=c(-135,-53), ylim=c(23,58), fill=FALSE)
map("state", boundary = FALSE, col="gray",add=TRUE)
points(x=Lng[poet],y=Lat[poet],cex=sqrt(DissCount),col="gray10",pch=21,bg=alpha("gray20",0.5))
title("Poetic / Fictive sites", sub=paste(poetsum,"dissertations, 2001-2010"))
dev.off()
filename <- paste0(imageloc, "US map, pract 2001-2010, N",diss.count,".pdf")
pdf(filename)
map("worldHires",c("usa","Canada","Mexico"), xlim=c(-135,-53), ylim=c(23,58), fill=FALSE)
map("state", boundary = FALSE, col="gray",add=TRUE)
points(x=Lng[pract],y=Lat[pract],cex=sqrt(DissCount),col="gray10",pch=21,bg=alpha("gray20",0.5))
title("Practitioner / Teacher Research sites", sub=paste(practsum,"dissertations, 2001-2010"))
dev.off()
filename <- paste0(imageloc, "US map, rhet 2001-2010, N",diss.count,".pdf")
pdf(filename)
map("worldHires",c("usa","Canada","Mexico"), xlim=c(-135,-53), ylim=c(23,58), fill=FALSE)
map("state", boundary = FALSE, col="gray",add=TRUE)
points(x=Lng[rhet],y=Lat[rhet],cex=sqrt(DissCount),col="gray10",pch=21,bg=alpha("gray20",0.5))
title("Rhetorical Analysis sites", sub=paste(rhetsum,"dissertations, 2001-2010"))
dev.off()
filename <- paste0(imageloc, "US map, surv 2001-2010, N",diss.count,".pdf")
pdf(filename)
map("worldHires",c("usa","Canada","Mexico"), xlim=c(-135,-53), ylim=c(23,58), fill=FALSE)
map("state", boundary = FALSE, col="gray",add=TRUE)
points(x=Lng[surv],y=Lat[surv],cex=sqrt(DissCount),col="gray10",pch=21,bg=alpha("gray20",0.5))
title("Survey sites", sub=paste(survsum,"dissertations, 2001-2010"))
dev.off()
filename <- paste0(imageloc, "US map, othr 2001-2010, N",diss.count,".pdf")
pdf(filename)
map("worldHires",c("usa","Canada","Mexico"), xlim=c(-135,-53), ylim=c(23,58), fill=FALSE)
map("state", boundary = FALSE, col="gray",add=TRUE)
points(x=Lng[othr],y=Lat[othr],cex=sqrt(DissCount),col="gray10",pch=21,bg=alpha("gray20",0.5))
title("Other sites", sub=paste(othrsum,"dissertations, 2001-2010"))
dev.off()