-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy path.Rhistory
112 lines (112 loc) · 5.08 KB
/
.Rhistory
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
prezzi_immobiliare <- function(periodo,regione,provincia,export=0) {
# packages
library(XML)
library(XLConnect)
# creazione url
url_prezzi <- paste0("http://www.immobiliare.it/prezzi-mq/",as.character(regione),"/",as.character(provincia),".html")
tables_prezzi <- readHTMLTable(url_prezzi)
# x zona
zone <- tables_prezzi[[2]]
newNamesZone <- c("zona","vendita","affitto")
names(zone) <- newNamesZone
zone$vendita <- as.numeric(sub(".","",zone$vendita,fixed=T))
zone$affitto <- as.numeric(sub(",",".",sub(".","",zone$affitto,fixed=T)))
zone$periodo <- rep(periodo,length(zone$vendita))
zone$regione <- rep(regione,length(zone$vendita))
zone$provincia <- rep(provincia,length(zone$vendita))
zone <- zone[with(zone,order(-vendita)),c("periodo","regione","provincia","zona","vendita","affitto")]
# x cap
cap <- tables_prezzi[[3]]
newNamesCap <- c("cap","vendita","affitto")
names(cap) <- newNamesCap
cap$vendita <- as.numeric(sub(".","",cap$vendita,fixed=T))
cap$affitto <- as.numeric(sub(",",".",sub(".","",cap$affitto,fixed=T)))
cap$periodo <- rep(periodo,length(cap$vendita))
cap$regione <- rep(regione,length(cap$vendita))
cap$provincia <- rep(provincia,length(cap$vendita))
cap <- cap[with(cap,order(-vendita)),c("periodo","regione","provincia","cap","vendita","affitto")]
rm(list=c("tables_prezzi","newNamesZone","newNamesCap"))
prezzi <- list(zone=zone,cap=cap)
if (export==1)
{
nome_file_out <- paste0(provincia,"_",periodo,".xlsx")
wb <- loadWorkbook(nome_file_out,create=TRUE)
createSheet(wb, name="zone")
writeWorksheet(wb,prezzi$zone,sheet="zone")
createSheet(wb, name="cap")
writeWorksheet(wb,prezzi$cap,sheet="cap")
saveWorkbook(wb)
}
return(prezzi)
}
roma_201505 <- prezzi_immobiliare(201505,"Lazio","Roma",export=1)
install.packages("XLConnect")
library(XLConnect)
install.packages("rJava")
library(rJava)
prezzi_immobiliare <- function(periodo,regione,provincia,export=0) {
# creazione url
url_prezzi <- paste0("http://www.immobiliare.it/prezzi-mq/",as.character(regione),"/",as.character(provincia),".html")
tables_prezzi <- readHTMLTable(url_prezzi)
# x zona
zone <- tables_prezzi[[2]]
newNamesZone <- c("zona","vendita","affitto")
names(zone) <- newNamesZone
zone$vendita <- as.numeric(sub(".","",zone$vendita,fixed=T))
zone$affitto <- as.numeric(sub(",",".",sub(".","",zone$affitto,fixed=T)))
zone$periodo <- rep(periodo,length(zone$vendita))
zone$regione <- rep(regione,length(zone$vendita))
zone$provincia <- rep(provincia,length(zone$vendita))
zone <- zone[with(zone,order(-vendita)),c("periodo","regione","provincia","zona","vendita","affitto")]
# x cap
cap <- tables_prezzi[[3]]
newNamesCap <- c("cap","vendita","affitto")
names(cap) <- newNamesCap
cap$vendita <- as.numeric(sub(".","",cap$vendita,fixed=T))
cap$affitto <- as.numeric(sub(",",".",sub(".","",cap$affitto,fixed=T)))
cap$periodo <- rep(periodo,length(cap$vendita))
cap$regione <- rep(regione,length(cap$vendita))
cap$provincia <- rep(provincia,length(cap$vendita))
cap <- cap[with(cap,order(-vendita)),c("periodo","regione","provincia","cap","vendita","affitto")]
rm(list=c("tables_prezzi","newNamesZone","newNamesCap"))
prezzi <- list(zone=zone,cap=cap)
if (export==1)
{
nome_file_out <- paste0(provincia,"_",periodo,".xlsx")
wb <- loadWorkbook(nome_file_out,create=TRUE)
createSheet(wb, name="zone")
writeWorksheet(wb,prezzi$zone,sheet="zone")
createSheet(wb, name="cap")
writeWorksheet(wb,prezzi$cap,sheet="cap")
saveWorkbook(wb)
}
return(prezzi)
}
roma_201505 <- prezzi_immobiliare(201505,"Lazio","Roma",export=1)
roma_201505 <- prezzi_immobiliare(201505,"Lazio","Roma",export=0)
roma_201505
milano_201505 <- prezzi_immobiliare(201505,"Lombardia","Milano",export=0)
milano_201505
roma_201505 <- prezzi_immobiliare(201612,"Lazio","Roma",export=0)
roma_201505
str(roma_201612)
roma_201612 <- prezzi_immobiliare(201612,"Lazio","Roma",export=0)
str(roma_201612)
milano_201612 <- prezzi_immobiliare(201612,"Lombardia","Milano",export=0)
milano_201612
mun_0_8 <- read.csv("http://dati.comune.roma.it/cms/do/jacms/Content/incrementDownload.action?contentId=DTS3468&filename=Esercizi_Commerciali_presenti_sul_territorio_comunale_in_sede_fissa_attivi._Al_3_marzo_2016.csv", sep=";")
mun_8_19 <- read.csv("http://dati.comune.roma.it/cms/do/jacms/Content/incrementDownload.action?contentId=DTS3577&filename=Esercizi_commerciali_presenti_sul_territorio_comunale_in_sede_fissa_attivi._Al_03.03.2016_Mun._8-19.csv", sep=";")
mun_19_20 <- read.csv("http://dati.comune.roma.it/cms/do/jacms/Content/incrementDownload.action?contentId=DTS3580&filename=Esercizi_commerciali_presenti_sul_territorio_comunale_in_sede_fissa_attivi._Al_03.03.2016_Mun._19-20.csv", sep=";")
munAll <- rbind(mun_0_8, mun_8_19[-1,], mun_19_20[-1,])
head(munAll)
str(munAll)
munAll$address <- paste(munAll[,"DESCRIZIONE.VIA"], munAll[,"CIVICO"], ", Rome")
head(munAll$address)
idx <- grep(pattern = "FRANCESCO A RIPA 151", munAll$address)
idx
munAll[idx,]
table(munAll$DESCRIZIONE.ATTIVITA)
table(munAll$DESCRIZIONE.ATTIVITA.1)
P1_svago <- munAll[munAll$DESCRIZIONE.ATTIVITA.1=="SOMM. ATTIVITA' DI SVAGO(LR 21/2006 ART.6 c.1 l.a)",]
P1_svago$address <- paste(P1_svago[,"DESCRIZIONE.VIA"], P1_svago[,"CIVICO"], ", Rome")
loc <- geocode(P1_svago[,"address"])