Skip to content

Commit 4845b89

Browse files
Easy-ShuEasy-Shu
authored
Add files via upload
1 parent 1cef8c7 commit 4845b89

File tree

2 files changed

+256
-0
lines changed

2 files changed

+256
-0
lines changed

‎第8章 高维数据型图表/四叶草_单元.csv‎

Lines changed: 197 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,197 @@
1+
Flower_x,Flower_y,Group
2+
0,-0.007476636,1
3+
0.005405405,-0.028037383,1
4+
0.003603604,-0.041121495,1
5+
0,-0.056074766,1
6+
-0.005405405,-0.076635514,1
7+
-0.010810811,-0.093457944,1
8+
-0.021621622,-0.117757009,1
9+
-0.028828829,-0.142056075,1
10+
-0.025225225,-0.164485981,1
11+
-0.025225225,-0.185046729,1
12+
-0.01981982,-0.213084112,1
13+
-0.016216216,-0.241121495,1
14+
-0.009009009,-0.271028037,1
15+
-0.003603604,-0.287850467,1
16+
0.005405405,-0.312149533,1
17+
0.01981982,-0.334579439,1
18+
0.036036036,-0.353271028,1
19+
0.054054054,-0.368224299,1
20+
0.073873874,-0.375700935,1
21+
0.095495495,-0.38317757,1
22+
0.122522523,-0.38317757,1
23+
0.145945946,-0.370093458,1
24+
0.158558559,-0.347663551,1
25+
0.174774775,-0.321495327,1
26+
0.181981982,-0.297196262,1
27+
0.190990991,-0.285981308,1
28+
0.209009009,-0.28411215,1
29+
0.234234234,-0.28411215,1
30+
0.261261261,-0.280373832,1
31+
0.281081081,-0.263551402,1
32+
0.304504505,-0.239252336,1
33+
0.313513514,-0.209345794,1
34+
0.317117117,-0.175700935,1
35+
0.302702703,-0.147663551,1
36+
0.284684685,-0.121495327,1
37+
0.257657658,-0.106542056,1
38+
0.228828829,-0.082242991,1
39+
0.201801802,-0.063551402,1
40+
0.176576577,-0.046728972,1
41+
0.142342342,-0.024299065,1
42+
0.111711712,-0.011214953,1
43+
0.077477477,0.001869159,1
44+
0.03963964,0.009345794,1
45+
0.005405405,0.011214953,1
46+
0,-0.007476636,1
47+
0.001801802,0.011214953,2
48+
0.037837838,0.009345794,2
49+
0.077477477,0.003738318,2
50+
0.111711712,-0.011214953,2
51+
0.133333333,-0.009345794,2
52+
0.151351351,-0.007476636,2
53+
0.178378378,-0.003738318,2
54+
0.207207207,0.003738318,2
55+
0.234234234,0.014953271,2
56+
0.263063063,0.026168224,2
57+
0.286486486,0.037383178,2
58+
0.304504505,0.05046729,2
59+
0.320720721,0.06728972,2
60+
0.338738739,0.087850467,2
61+
0.347747748,0.106542056,2
62+
0.351351351,0.130841121,2
63+
0.356756757,0.153271028,2
64+
0.356756757,0.170093458,2
65+
0.353153153,0.192523364,2
66+
0.336936937,0.2,2
67+
0.318918919,0.213084112,2
68+
0.291891892,0.21682243,2
69+
0.264864865,0.222429907,2
70+
0.246846847,0.237383178,2
71+
0.246846847,0.256074766,2
72+
0.236036036,0.287850467,2
73+
0.221621622,0.314018692,2
74+
0.214414414,0.328971963,2
75+
0.196396396,0.345794393,2
76+
0.18018018,0.355140187,2
77+
0.162162162,0.357009346,2
78+
0.144144144,0.357009346,2
79+
0.127927928,0.351401869,2
80+
0.115315315,0.340186916,2
81+
0.104504505,0.325233645,2
82+
0.088288288,0.304672897,2
83+
0.079279279,0.291588785,2
84+
0.07027027,0.280373832,2
85+
0.052252252,0.259813084,2
86+
0.03963964,0.231775701,2
87+
0.032432432,0.211214953,2
88+
0.023423423,0.194392523,2
89+
0.021621622,0.170093458,2
90+
0.01981982,0.136448598,2
91+
0.01981982,0.117757009,2
92+
0.018018018,0.095327103,2
93+
0.014414414,0.06728972,2
94+
0.010810811,0.05046729,2
95+
0.001801802,0.028037383,2
96+
0.001801802,0.011214953,2
97+
0.001801802,0.007476636,3
98+
0.003603604,0.031775701,3
99+
0.009009009,0.05046729,3
100+
0.014414414,0.069158879,3
101+
0.016216216,0.097196262,3
102+
0.01981982,0.117757009,3
103+
0.01981982,0.142056075,3
104+
0.023423423,0.168224299,3
105+
0.021621622,0.190654206,3
106+
0.01981982,0.213084112,3
107+
0.018018018,0.237383178,3
108+
0.010810811,0.259813084,3
109+
0.005405405,0.28411215,3
110+
-0.007207207,0.323364486,3
111+
-0.021621622,0.347663551,3
112+
-0.037837838,0.36635514,3
113+
-0.05045045,0.38317757,3
114+
-0.068468468,0.390654206,3
115+
-0.086486486,0.390654206,3
116+
-0.102702703,0.390654206,3
117+
-0.120720721,0.38317757,3
118+
-0.131531532,0.370093458,3
119+
-0.144144144,0.355140187,3
120+
-0.156756757,0.338317757,3
121+
-0.171171171,0.319626168,3
122+
-0.181981982,0.300934579,3
123+
-0.189189189,0.291588785,3
124+
-0.2,0.291588785,3
125+
-0.257657658,0.291588785,3
126+
-0.27027027,0.280373832,3
127+
-0.284684685,0.272897196,3
128+
-0.297297297,0.256074766,3
129+
-0.306306306,0.237383178,3
130+
-0.313513514,0.218691589,3
131+
-0.313513514,0.2,3
132+
-0.30990991,0.179439252,3
133+
-0.295495495,0.151401869,3
134+
-0.279279279,0.134579439,3
135+
-0.263063063,0.114018692,3
136+
-0.25045045,0.091588785,3
137+
-0.232432432,0.080373832,3
138+
-0.210810811,0.063551402,3
139+
-0.189189189,0.048598131,3
140+
-0.172972973,0.037383178,3
141+
-0.153153153,0.029906542,3
142+
-0.138738739,0.022429907,3
143+
-0.111711712,0.007476636,3
144+
-0.084684685,0,3
145+
-0.05045045,-0.007476636,3
146+
-0.018018018,-0.003738318,3
147+
-0.007207207,-0.003738318,3
148+
0.001801802,0.007476636,3
149+
-0.007207207,-0.001869159,4
150+
-0.045045045,-0.007476636,4
151+
-0.066666667,-0.005607477,4
152+
-0.088288288,0,4
153+
-0.111711712,0.007476636,4
154+
-0.140540541,0.020560748,4
155+
-0.154954955,0.029906542,4
156+
-0.18018018,0.026168224,4
157+
-0.214414414,0.024299065,4
158+
-0.236036036,0.020560748,4
159+
-0.272072072,0.01682243,4
160+
-0.29009009,0.007476636,4
161+
-0.317117117,0,4
162+
-0.333333333,-0.011214953,4
163+
-0.36036036,-0.029906542,4
164+
-0.371171171,-0.048598131,4
165+
-0.371171171,-0.072897196,4
166+
-0.372972973,-0.097196262,4
167+
-0.363963964,-0.125233645,4
168+
-0.34954955,-0.143925234,4
169+
-0.333333333,-0.160747664,4
170+
-0.315315315,-0.173831776,4
171+
-0.291891892,-0.185046729,4
172+
-0.284684685,-0.192523364,4
173+
-0.282882883,-0.209345794,4
174+
-0.281081081,-0.237383178,4
175+
-0.279279279,-0.261682243,4
176+
-0.272072072,-0.274766355,4
177+
-0.263063063,-0.287850467,4
178+
-0.25045045,-0.302803738,4
179+
-0.230630631,-0.314018692,4
180+
-0.21981982,-0.321495327,4
181+
-0.198198198,-0.327102804,4
182+
-0.18018018,-0.327102804,4
183+
-0.158558559,-0.31588785,4
184+
-0.140540541,-0.297196262,4
185+
-0.126126126,-0.285981308,4
186+
-0.102702703,-0.259813084,4
187+
-0.091891892,-0.235514019,4
188+
-0.063063063,-0.2,4
189+
-0.052252252,-0.175700935,4
190+
-0.036036036,-0.14953271,4
191+
-0.023423423,-0.125233645,4
192+
-0.012612613,-0.100934579,4
193+
-0.005405405,-0.078504673,4
194+
-0.001801802,-0.056074766,4
195+
0.003603604,-0.039252336,4
196+
0.001801802,-0.018691589,4
197+
-0.007207207,-0.001869159,4

‎第8章 高维数据型图表/图8_7_8四叶草.R‎

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)]
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:6){
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)])+
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)