-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathgroupHouseSize.R
73 lines (72 loc) · 3.28 KB
/
groupHouseSize.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
#group by # of rooms
# prices[1,-c(1,2)] ##(Total) National Average Home P.
nationalAVG<-prices[1,-c(1,2)] ##(Total) National Average Home P.
national1.5<-gather(prices[2,-c(1,2)])
national2.5<-gather(prices[3,-c(1,2)])
national3.5<-gather(prices[4,-c(1,2)])
national4.5<-gather(prices[5,-c(1,2)])
JerusalemAVG<-gather(prices[6,-c(1,2)])
Jerusalem1.5<-gather(prices[7,-c(1,2)])
Jerusalem2.5<-gather(prices[8,-c(1,2)])
Jerusalem3.5<-gather(prices[9,-c(1,2)])
Jerusalem4.5<-gather(prices[10,-c(1,2)])
tlvAVG<-gather(prices[11,-c(1,2)])
tlv1.5<-gather(prices[12,-c(1,2)])
tlv2.5<-gather(prices[13,-c(1,2)])
tlv3.5<-gather(prices[14,-c(1,2)])
tlv4.5<-gather(prices[15,-c(1,2)])
HaifaAVG<-gather(prices[16,-c(1,2)])
Haifa1.5<-gather(prices[17,-c(1,2)])
Haifa2.5<-gather(prices[18,-c(1,2)])
Haifa3.5<-gather(prices[19,-c(1,2)])
Haifa4.5<-gather(prices[20,-c(1,2)])
GushDanAVG<-gather(prices[21,-c(1,2)])
GushDan1.5<-gather(prices[22,-c(1,2)])
GushDan2.5<-gather(prices[23,-c(1,2)])
GushDan3.5<-gather(prices[24,-c(1,2)])
GushDan4.5<-gather(prices[25,-c(1,2)])
centerJeruPeriAVG<-gather(prices[26,-c(1,2)])
centerJeruPeri1.5<-gather(prices[27,-c(1,2)])
centerJeruPeri2.5<-gather(prices[28,-c(1,2)])
centerJeruPeri3.5<-gather(prices[29,-c(1,2)])
centerJeruPeri4.5<-gather(prices[30,-c(1,2)])
SouthAVG<-gather(prices[31,-c(1,2)])
South1.5<-gather(prices[32,-c(1,2)])
South2.5<-gather(prices[33,-c(1,2)])
South3.5<-gather(prices[34,-c(1,2)])
South4.5<-gather(prices[35,-c(1,2)])
SharonAVG<-gather(prices[36,-c(1,2)])
Sharon1.5<-gather(prices[37,-c(1,2)])
Sharon2.5<-gather(prices[38,-c(1,2)])
Sharon3.5<-gather(prices[39,-c(1,2)])
Sharon4.5<-gather(prices[40,-c(1,2)])
NorthAVG<-gather(prices[41,-c(1,2)])
North1.5<-gather(prices[42,-c(1,2)])
North2.5<-gather(prices[43,-c(1,2)])
North3.5<-gather(prices[44,-c(1,2)])
North4.5<-gather(prices[45,-c(1,2)])
qrayotHaifaAVG<-gather(prices[46,-c(1,2)])
qrayotHaifa1.5<-gather(prices[47,-c(1,2)])
qrayotHaifa2.5<-gather(prices[48,-c(1,2)])
qrayotHaifa3.5<-gather(prices[49,-c(1,2)])
qrayotHaifa4.5<-gather(prices[50,-c(1,2)])
all1.5<-cbind(national1.5,national1.5$value,centerJeruPeri1.5$value,GushDan1.5$value,Haifa1.5$value,Jerusalem1.5$value,South1.5$value,North1.5$value,qrayotHaifa1.5$value,Sharon1.5$value,tlv1.5$value)
all3.5<-cbind(national3.5,national3.5$value,centerJeruPeri3.5$value,GushDan3.5$value,Haifa3.5$value,Jerusalem3.5$value,South3.5$value,North3.5$value,qrayotHaifa3.5$value,Sharon3.5$value,tlv3.5$value)
all4.5<-cbind(national4.5,national4.5$value,centerJeruPeri4.5$value,GushDan4.5$value,Haifa4.5$value,Jerusalem4.5$value,South4.5$value,North4.5$value,qrayotHaifa4.5$value,Sharon4.5$value,tlv4.5$value)
all2.5<-cbind(national2.5,national2.5$value,centerJeruPeri2.5$value,GushDan2.5$value,Haifa2.5$value,Jerusalem2.5$value,South2.5$value,North2.5$value,qrayotHaifa2.5$value,Sharon2.5$value,tlv2.5$value)
all1.5<-all1.5[,-2]
all2.5<-all2.5[,-2]
all3.5<-all3.5[,-2]
all4.5<-all4.5[,-2]
colnames(all1.5)[1]<-"quarter"
colnames(all2.5)[1]<-"quarter"
colnames(all3.5)[1]<-"quarter"
colnames(all4.5)[1]<-"quarter"
names(all1.5)<-gsub("(1.5)[$]value","",names(all1.5))
names(all2.5)<-gsub("(2.5)[$]value","",names(all2.5))
names(all3.5)<-gsub("(2.5)[$]value","",names(all3.5))
names(all4.5)<-gsub("(2.5)[$]value","",names(all4.5))
p1.5<-melt(all1.5)
p2.5<-melt(all2.5)
p3.5<-melt(all3.5)
p4.5<-melt(all4.5)