Skip to content

Commit c9ec79e

Browse files
authored
Add files via upload
1 parent 956f755 commit c9ec79e

File tree

3 files changed

+340
-0
lines changed

3 files changed

+340
-0
lines changed

第8章 高维数据型图表/crimeRatesByState2005.tsv

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1 @@
1+
state murder Forcible_rate Robbery aggravated_assult burglary larceny_theft motor_vehicle_theft populationAlabama 8.2 34.3 141.4 247.8 953.8 2650 288.3 4627851Alaska 4.8 81.1 80.9 465.1 622.5 2599.1 391 686293Arizona 7.5 33.8 144.4 327.4 948.4 2965.2 924.4 6500180Arkansas 6.7 42.9 91.1 386.8 1084.6 2711.2 262.1 2855390California 6.9 26 176.1 317.3 693.3 1916.5 712.8 36756666Colorado 3.7 43.4 84.6 264.7 744.8 2735.2 559.5 4861515Connecticut 2.9 20 113 138.6 437.1 1824.1 296.8 3501252Delaware 4.4 44.7 154.8 428.2 688.9 2144 278.5 873092Florida 5 37.1 169.4 496.6 926.3 2658.3 423.3 18328340Georgia 6.2 23.6 154.8 264.3 931 2751.1 490.2 9685744Hawaii 1.9 26.9 78.5 147.8 767.9 3308.4 716.4 1288198Idaho 2.4 40.4 18.6 195.4 564.4 1931.7 201.8 1523816Illinois 6 33.7 181.7 330.2 606.9 2164.8 308.6 12901563Indiana 5.7 29.6 108.6 179.9 697.6 2412 346.7 6376792Iowa 1.3 27.9 38.9 223.3 606.4 2042.7 184.6 3002555Kansas 3.7 38.4 65.3 280 689.2 2758.1 339.6 2802134Kentucky 4.6 34 88.4 139.8 634 1685.8 210.8 4269245Louisiana 9.9 31.4 118 435.1 870.6 2494.5 318.1 4410796Maine 1.4 24.7 24.4 61.7 478.5 1832.6 102 1316456Maryland 9.9 22.6 256.7 413.8 641.4 2294.3 608.4 5633597Massachusetts 2.7 27.1 119 308.1 541.1 1527.4 295.1 6497967Michigan 6.1 51.3 131.8 362.9 696.8 1917.8 476.5 10003422Minnesota 2.2 44 92 158.7 578.9 2226.9 278.2 5220393Mississippi 7.3 39.3 82.3 149.4 919.7 2083.9 256.5 2938618Missouri 6.9 28 124.1 366.4 738.3 2746.2 443.1 5911605Montana 1.9 32.2 18.9 228.5 389.2 2543 210.7 967440Nebraska 2.5 32.9 59.1 192.5 532.4 2574.3 316.5 1783432Nevada 8.5 42.1 194.7 361.5 972.4 2153.9 1115.2 2600167New Hampshire 1.4 30.9 27.4 72.3 317 1377.3 102.1 1315809New Jersey 4.8 13.9 151.6 184.4 447.1 1568.4 317.5 8682661New Mexico 7.4 54.1 98.7 541.9 1093.9 2639.9 414.5 1984356New York 4.5 18.9 182.7 239.7 353.3 1569.6 185.6 19490297North Carolina 6.7 26.5 145.5 289.4 1201.1 2546.2 327.8 9222414North Dakota 1.1 24.2 7.4 65.5 311.9 1500.3 166 641481Ohio 5.1 39.8 163.1 143.4 872.8 2429 360.9 11485910Oklahoma 5.3 41.7 91 370.5 1006 2644.2 391.8 3642361Oregon 2.2 34.8 68.1 181.8 758.6 3112.2 529 3790060Pennsylvania 6.1 28.9 154.6 235 451.6 1729.1 236.5 12448279Rhode Island 3.2 29.8 72.1 146.1 494.2 1816 408.7 1050788South Carolina 7.4 42.5 132.1 579 1000.9 2954.1 384.4 4479800South Dakota 2.3 46.7 18.6 108.1 324.4 1343.7 108.4 804194Tennessee 7.2 36.4 167.3 541.9 1026.9 2828.1 420.6 6214888Texas 6.2 37.2 156.6 329.8 961.6 2961.7 408.7 24326974Utah 2.3 37.3 44.3 143.4 606.2 2918.8 343.9 2736424Vermont 1.3 23.3 11.7 83.5 491.8 1686.1 102.9 621270Virginia 6.1 22.7 99.2 154.8 392.1 2035 211.1 7769089Washington 3.3 44.7 92.1 205.8 959.7 3149.5 783.9 6549224West Virginia 4.4 17.7 44.6 206.1 621.2 1794 210 1814468Wisconsin 3.5 20.6 82.2 135.2 440.8 1992.8 226.6 5627967Wyoming 2.7 24 15.3 188.1 476.3 2533.9 145.1 532668
Lines changed: 280 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,280 @@
1+
Flower_x,Flower_y,Group
2+
-0.001785714,-0.016728625,1
3+
-0.005357143,-0.046468401,1
4+
-0.019642857,-0.074349442,1
5+
-0.030357143,-0.087360595,1
6+
-0.035714286,-0.111524164,1
7+
-0.041071429,-0.133828996,1
8+
-0.039285714,-0.156133829,1
9+
-0.042857143,-0.169144981,1
10+
-0.053571429,-0.185873606,1
11+
-0.060714286,-0.200743494,1
12+
-0.071428571,-0.213754647,1
13+
-0.078571429,-0.223048327,1
14+
-0.076785714,-0.239776952,1
15+
-0.078571429,-0.258364312,1
16+
-0.078571429,-0.286245353,1
17+
-0.071428571,-0.312267658,1
18+
-0.058928571,-0.342007435,1
19+
-0.05,-0.371747212,1
20+
-0.044642857,-0.390334572,1
21+
-0.039285714,-0.403345725,1
22+
-0.032142857,-0.416356877,1
23+
-0.017857143,-0.423791822,1
24+
0.003571429,-0.43866171,1
25+
0.014285714,-0.449814126,1
26+
0.028571429,-0.462825279,1
27+
0.041071429,-0.470260223,1
28+
0.057142857,-0.470260223,1
29+
0.073214286,-0.470260223,1
30+
0.083928571,-0.466542751,1
31+
0.098214286,-0.464684015,1
32+
0.105357143,-0.451672862,1
33+
0.101785714,-0.42936803,1
34+
0.101785714,-0.418215613,1
35+
0.105357143,-0.407063197,1
36+
0.114285714,-0.405204461,1
37+
0.135714286,-0.408921933,1
38+
0.153571429,-0.399628253,1
39+
0.175,-0.379182156,1
40+
0.182142857,-0.349442379,1
41+
0.192857143,-0.32527881,1
42+
0.198214286,-0.302973978,1
43+
0.196428571,-0.280669145,1
44+
0.183928571,-0.267657993,1
45+
0.176785714,-0.249070632,1
46+
0.169642857,-0.230483271,1
47+
0.171428571,-0.210037175,1
48+
0.1625,-0.189591078,1
49+
0.142857143,-0.176579926,1
50+
0.133928571,-0.167286245,1
51+
0.1,-0.152416357,1
52+
0.092857143,-0.137546468,1
53+
0.071428571,-0.126394052,1
54+
0.064285714,-0.120817844,1
55+
0.048214286,-0.107806691,1
56+
0.044642857,-0.094795539,1
57+
0.044642857,-0.07063197,1
58+
0.0375,-0.040892193,1
59+
0.025,-0.018587361,1
60+
0.010714286,-0.005576208,1
61+
-0.001785714,-0.016728625,1
62+
0.008928571,0.001858736,2
63+
0.023214286,-0.013011152,2
64+
0.0375,-0.027881041,2
65+
0.044642857,-0.046468401,2
66+
0.053571429,-0.066914498,2
67+
0.066071429,-0.07063197,2
68+
0.080357143,-0.078066914,2
69+
0.089285714,-0.098513011,2
70+
0.108928571,-0.102230483,2
71+
0.133928571,-0.115241636,2
72+
0.141071429,-0.133828996,2
73+
0.155357143,-0.144981413,2
74+
0.167857143,-0.163568773,2
75+
0.183928571,-0.176579926,2
76+
0.198214286,-0.187732342,2
77+
0.208928571,-0.195167286,2
78+
0.210714286,-0.185873606,2
79+
0.219642857,-0.18401487,2
80+
0.232142857,-0.18401487,2
81+
0.244642857,-0.187732342,2
82+
0.258928571,-0.195167286,2
83+
0.280357143,-0.200743494,2
84+
0.296428571,-0.206319703,2
85+
0.310714286,-0.206319703,2
86+
0.325,-0.204460967,2
87+
0.335714286,-0.197026022,2
88+
0.348214286,-0.197026022,2
89+
0.364285714,-0.198884758,2
90+
0.375,-0.182156134,2
91+
0.375,-0.163568773,2
92+
0.3875,-0.159851301,2
93+
0.408928571,-0.167286245,2
94+
0.430357143,-0.169144981,2
95+
0.4375,-0.169144981,2
96+
0.442857143,-0.163568773,2
97+
0.4375,-0.150557621,2
98+
0.433928571,-0.139405204,2
99+
0.435714286,-0.12267658,2
100+
0.446428571,-0.115241636,2
101+
0.453571429,-0.104089219,2
102+
0.453571429,-0.083643123,2
103+
0.457142857,-0.068773234,2
104+
0.4625,-0.050185874,2
105+
0.455357143,-0.029739777,2
106+
0.442857143,-0.001858736,2
107+
0.430357143,0.013011152,2
108+
0.407142857,0.026022305,2
109+
0.385714286,0.031598513,2
110+
0.367857143,0.035315985,2
111+
0.333928571,0.042750929,2
112+
0.317857143,0.053903346,2
113+
0.2875,0.059479554,2
114+
0.257142857,0.066914498,2
115+
0.228571429,0.072490706,2
116+
0.201785714,0.068773234,2
117+
0.1875,0.053903346,2
118+
0.171428571,0.042750929,2
119+
0.144642857,0.024163569,2
120+
0.116071429,0.014869888,2
121+
0.0875,0.007434944,2
122+
0.069642857,0.005576208,2
123+
0.046428571,0.005576208,2
124+
0.0125,0.005576208,2
125+
0.008928571,0.001858736,2
126+
0.028571429,0.014869888,3
127+
0.046428571,0.029739777,3
128+
0.064285714,0.046468401,3
129+
0.1,0.050185874,3
130+
0.125,0.063197026,3
131+
0.1375,0.078066914,3
132+
0.1375,0.094795539,3
133+
0.153571429,0.098513011,3
134+
0.169642857,0.107806691,3
135+
0.175,0.124535316,3
136+
0.183928571,0.144981413,3
137+
0.198214286,0.154275093,3
138+
0.210714286,0.171003717,3
139+
0.217857143,0.178438662,3
140+
0.217857143,0.197026022,3
141+
0.217857143,0.226765799,3
142+
0.221428571,0.247211896,3
143+
0.219642857,0.267657993,3
144+
0.217857143,0.29739777,3
145+
0.214285714,0.321561338,3
146+
0.217857143,0.340148699,3
147+
0.205357143,0.353159851,3
148+
0.194642857,0.358736059,3
149+
0.182142857,0.36802974,3
150+
0.178571429,0.3866171,3
151+
0.167857143,0.403345725,3
152+
0.146428571,0.403345725,3
153+
0.128571429,0.403345725,3
154+
0.110714286,0.408921933,3
155+
0.103571429,0.399628253,3
156+
0.1,0.390334572,3
157+
0.083928571,0.381040892,3
158+
0.067857143,0.381040892,3
159+
0.051785714,0.397769517,3
160+
0.041071429,0.405204461,3
161+
0.023214286,0.405204461,3
162+
0.014285714,0.395910781,3
163+
-0.008928571,0.375464684,3
164+
-0.016071429,0.358736059,3
165+
-0.026785714,0.345724907,3
166+
-0.028571429,0.328996283,3
167+
-0.028571429,0.308550186,3
168+
-0.033928571,0.291821561,3
169+
-0.039285714,0.273234201,3
170+
-0.051785714,0.247211896,3
171+
-0.051785714,0.230483271,3
172+
-0.051785714,0.198884758,3
173+
-0.046428571,0.172862454,3
174+
-0.033928571,0.148698885,3
175+
-0.016071429,0.1133829,3
176+
-0.008928571,0.085501859,3
177+
-0.007142857,0.059479554,3
178+
-0.005357143,0.029739777,3
179+
0.001785714,0.011152416,3
180+
0.028571429,0.014869888,3
181+
-0.001785714,0.011152416,4
182+
-0.014285714,0.022304833,4
183+
-0.026785714,0.033457249,4
184+
-0.039285714,0.044609665,4
185+
-0.05,0.06133829,4
186+
-0.060714286,0.079925651,4
187+
-0.060714286,0.105947955,4
188+
-0.066071429,0.120817844,4
189+
-0.082142857,0.143122677,4
190+
-0.092857143,0.169144981,4
191+
-0.0875,0.19330855,4
192+
-0.103571429,0.213754647,4
193+
-0.117857143,0.230483271,4
194+
-0.1375,0.243494424,4
195+
-0.155357143,0.273234201,4
196+
-0.176785714,0.284386617,4
197+
-0.2,0.289962825,4
198+
-0.216071429,0.291821561,4
199+
-0.232142857,0.299256506,4
200+
-0.255357143,0.301115242,4
201+
-0.276785714,0.302973978,4
202+
-0.291071429,0.299256506,4
203+
-0.305357143,0.293680297,4
204+
-0.335714286,0.289962825,4
205+
-0.364285714,0.280669145,4
206+
-0.375,0.273234201,4
207+
-0.382142857,0.250929368,4
208+
-0.389285714,0.230483271,4
209+
-0.392857143,0.198884758,4
210+
-0.382142857,0.17472119,4
211+
-0.378571429,0.152416357,4
212+
-0.376785714,0.124535316,4
213+
-0.369642857,0.100371747,4
214+
-0.353571429,0.074349442,4
215+
-0.335714286,0.046468401,4
216+
-0.321428571,0.033457249,4
217+
-0.305357143,0.016728625,4
218+
-0.275,0.003717472,4
219+
-0.248214286,0,4
220+
-0.219642857,0,4
221+
-0.182142857,0,4
222+
-0.155357143,-0.005576208,4
223+
-0.132142857,0.003717472,4
224+
-0.1125,0.003717472,4
225+
-0.085714286,0.003717472,4
226+
-0.071428571,0,4
227+
-0.051785714,-0.013011152,4
228+
-0.030357143,-0.016728625,4
229+
-0.010714286,-0.00929368,4
230+
-0.001785714,0.011152416,4
231+
-0.041071429,-0.027881041,5
232+
-0.066071429,-0.037174721,5
233+
-0.101785714,-0.046468401,5
234+
-0.101785714,-0.035315985,5
235+
-0.126785714,-0.031598513,5
236+
-0.158928571,-0.022304833,5
237+
-0.183928571,-0.011152416,5
238+
-0.214285714,-0.011152416,5
239+
-0.258928571,-0.005576208,5
240+
-0.319642857,-0.007434944,5
241+
-0.321428571,-0.018587361,5
242+
-0.342857143,-0.026022305,5
243+
-0.346428571,-0.033457249,5
244+
-0.364285714,-0.048327138,5
245+
-0.383928571,-0.065055762,5
246+
-0.394642857,-0.091078067,5
247+
-0.403571429,-0.104089219,5
248+
-0.4125,-0.12267658,5
249+
-0.405357143,-0.135687732,5
250+
-0.408928571,-0.152416357,5
251+
-0.410714286,-0.165427509,5
252+
-0.398214286,-0.182156134,5
253+
-0.383928571,-0.187732342,5
254+
-0.375,-0.180297398,5
255+
-0.3625,-0.167286245,5
256+
-0.35,-0.167286245,5
257+
-0.348214286,-0.185873606,5
258+
-0.330357143,-0.200743494,5
259+
-0.310714286,-0.217472119,5
260+
-0.296428571,-0.232342007,5
261+
-0.273214286,-0.243494424,5
262+
-0.255357143,-0.249070632,5
263+
-0.232142857,-0.247211896,5
264+
-0.219642857,-0.247211896,5
265+
-0.180357143,-0.24535316,5
266+
-0.171428571,-0.23605948,5
267+
-0.155357143,-0.243494424,5
268+
-0.135714286,-0.241635688,5
269+
-0.126785714,-0.228624535,5
270+
-0.121428571,-0.206319703,5
271+
-0.1125,-0.18401487,5
272+
-0.096428571,-0.161710037,5
273+
-0.0875,-0.143122677,5
274+
-0.080357143,-0.128252788,5
275+
-0.067857143,-0.115241636,5
276+
-0.044642857,-0.102230483,5
277+
-0.033928571,-0.076208178,5
278+
-0.016071429,-0.063197026,5
279+
-0.003571429,-0.037174721,5
280+
-0.041071429,-0.027881041,5
Lines changed: 59 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,59 @@
1+
library(ggplot2)
2+
library(wesanderson)
3+
4+
Flower <- read.csv("Îå°ê»¨_µ¥Ôª.csv")
5+
N_Flower<-nrow(Flower)
6+
crime <- read.csv("crimeRatesByState2005.tsv",
7+
header = TRUE, sep = "\t", stringsAsFactors = F)
8+
9+
mydata<-crime[,c(2,4,3,5,6,7,8)]
10+
N<-nrow(mydata)
11+
12+
Scale_x<-8
13+
Scale_y<-4
14+
xlabel<-seq(2.5,10,2.5)
15+
xbreak<-(xlabel-min(mydata[,1]))/(max(mydata[,1])-min(mydata[,1]))*Scale_x+0.1
16+
ylabel<-seq(0,280,100)
17+
ybreak<-(ylabel-min(mydata[,2]))/(max(mydata[,2])-min(mydata[,2]))*Scale_y+0.1
18+
19+
20+
mydata[,1]<-(mydata[,1]-min(mydata[,1]))/(max(mydata[,1])-min(mydata[,1]))*Scale_x+0.1
21+
mydata[,2]<-(mydata[,2]-min(mydata[,2]))/(max(mydata[,2])-min(mydata[,2]))*Scale_y+0.1
22+
23+
for (j in 3:7){
24+
mydata[,j]<-(mydata[,j]-min(mydata[,j]))/(max(mydata[,j])-min(mydata[,j]))+0.1
25+
for (i in 1:N){
26+
temp<-cbind(Group_Scatter=rep(i,N_Flower,1),
27+
Group_Flower=rep(colnames(mydata)[j],N_Flower,1),
28+
x=rep(mydata[i,1],N_Flower,1),
29+
y=rep(mydata[i,2],N_Flower,1),
30+
mydata[i,j]*Flower[Flower$Group==(j-2),c(1,2)])
31+
if (i==1){
32+
temp_Flower<-temp
33+
}else
34+
{
35+
temp_Flower<-rbind(temp_Flower,temp)
36+
}
37+
38+
}
39+
40+
if (j==3){
41+
Flower_data<-temp_Flower
42+
}else{
43+
Flower_data<-rbind(Flower_data,temp_Flower)
44+
}
45+
}
46+
47+
Flower_data$Group_Flower<-as.factor(Flower_data$Group_Flower)
48+
49+
50+
ggplot(data=Flower_data)+
51+
geom_curve(aes(x=x,y=y,xend = x+0.00000001, yend =0),colour="grey50",size=0.1,curvature = 0.2,alpha=0.9)+
52+
geom_polygon(aes(x=x+Flower_x,y=y+Flower_y,fill=Group_Flower,
53+
group=interaction(Group_Flower,Group_Scatter)),size=0.1,colour="black",alpha=0.9)+
54+
scale_fill_manual(values = wes_palette("Darjeeling",5)[c(1,2,3,5,4)])+
55+
scale_x_continuous(breaks=xbreak, labels=xlabel)+
56+
scale_y_continuous(breaks=ybreak, labels=ylabel)+
57+
xlab(colnames(mydata)[1])+
58+
ylab(colnames(mydata)[2])+
59+
coord_fixed()

0 commit comments

Comments
 (0)