-
Notifications
You must be signed in to change notification settings - Fork 3
/
Copy path.Rhistory
512 lines (512 loc) · 21.1 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
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
entperif$prosklisi
entperif<-entperif[which(!startsWith(entperif$prosklisi, "Μ")),]
entperif<-entperif[which(!startsWith(as.character(entperif$prosklisi), "Μ")),]
entperif<-entperif[which(!startsWith(as.character(entperif$prosklisi), "M")),]
View(entperif)
unique(entperif$prosklisi)
unique(entperif$submeasure_code)
source('~/Dropbox/paa/updatedb/dbimporter.R')
unique(entperif$submeasure_code)
unique(entperif$prosklisi)
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
cons <- dbListConnections(PostgreSQL())
for(con in cons) dbDisconnect(con)
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(plirperif)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(regionsperif)
View(ekxwriseis)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(regionsperif)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(regions)
View(regions)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(regions)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(regionsperif)
View(regions)
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(regions)
View(regions)
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(plirpriority)
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(plirpriority)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(plirpriority)
View(plirpriority)
plirpriority$Group.2[which(plirpriority$Group.2=="-"),]<-"None"
plirpriority$Group.2[which(plirpriority$Group.2=="-")]<-"None"
View(plirpriority)
cons <- dbListConnections(PostgreSQL())
for(con in cons) dbDisconnect(con)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(plirpriority)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(plirpriority)
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(plirpriority)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(plirpriority)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(plirpriority)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(plirpriority)
View(plirpriority)
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
cons <- dbListConnections(PostgreSQL())
for(con in cons) dbDisconnect(con)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(plirpriority)
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(plirpriority)
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
cons <- dbListConnections(PostgreSQL())
for(con in cons) dbDisconnect(con)
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
cons <- dbListConnections(PostgreSQL())
for(con in cons) dbDisconnect(con)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(plirpriority)
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
cons <- dbListConnections(PostgreSQL())
for(con in cons) dbDisconnect(con)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(dashboard)
cons <- dbListConnections(PostgreSQL())
for(con in cons) dbDisconnect(con)
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(entaxeis)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(measures)
source('~/Dropbox/paa/updatedb/dbimporter.R')
cons <- dbListConnections(PostgreSQL())
for(con in cons) dbDisconnect(con)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(measures)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(measures)
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(mapdata)
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(pliromes)
View(pliromes)
cons <- dbListConnections(PostgreSQL())
for(con in cons) dbDisconnect(con)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(aporrofisi)
View(aporrofisi)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(aporrofisi)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(aporrofisi)
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(aporrofisi)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(aporrofisi)
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(regions)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(clld)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(clld)
View(clld)
View(otd)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(clld)
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(otdfull)
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(otd)
source('~/Dropbox/paa/updatedb/dbimporter.R')
cons <- dbListConnections(PostgreSQL())
for(con in cons) dbDisconnect(con)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(otdbullets)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(otdbullets)
View(otdbullets)
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(poreia)
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
cons <- dbListConnections(PostgreSQL())
for(con in cons) dbDisconnect(con)
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(poreia)
cons <- dbListConnections(PostgreSQL())
for(con in cons) dbDisconnect(con)
source('~/Dropbox/paa/updatedb/dbimporter.R')
cons <- dbListConnections(PostgreSQL())
for(con in cons) dbDisconnect(con)
source('~/Dropbox/paa/updatedb/dbimporter.R')
cons <- dbListConnections(PostgreSQL())
for(con in cons) dbDisconnect(con)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(poreia)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(poreia)
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(poreia)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(poreia)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(poreia)
poreia <- read.csv("/home/iliastsergoulas/Dropbox/paa/updatedb/poreia.csv", sep="\t", encoding="UTF-8")
names(poreia)<-c("priority_code","date","total_pliromesdd","paanewdd","paaolddd","total_pliromeseu",
"paaneweu","paaoldeu","returndd","returneu")
poreia$netpliromes<-poreia$total_pliromesdd+poreia$paaolddd-poreia$paanewdd
poreia$netpliromeseu<-poreia$total_pliromeseu+poreia$paaoldeu-poreia$paaneweu
poreia<-aggregate(cbind(poreia$netpliromes, poreia$netpliromeseu) ~ date, data = poreia, sum, na.rm = TRUE)
View(poreia)
class(poreia$date)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(poreia)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(poreia)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(poreia)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(poreia)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(poreia)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(poreia)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(poreia)
poreia$date
poreia <- read.csv("/home/iliastsergoulas/Dropbox/paa/updatedb/poreia.csv", sep="\t", encoding="UTF-8")
names(poreia)<-c("priority_code","date","total_pliromesdd","paanewdd","paaolddd","total_pliromeseu",
"paaneweu","paaoldeu","returndd","returneu")
View(poreia)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(poreia)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(poreia)
source('~/Dropbox/paa/updatedb/dbimporter.R')
poreia <- read.csv("/home/iliastsergoulas/Dropbox/paa/updatedb/poreia.csv", sep="\t", encoding="UTF-8")
names(poreia)<-c("priority_code","date","total_pliromesdd","paanewdd","paaolddd","total_pliromeseu",
"paaneweu","paaoldeu","returndd","returneu")
View(poreia)
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(poreia)
poreia <- read.csv("/home/iliastsergoulas/Dropbox/paa/updatedb/poreia.csv", sep="\t", encoding="UTF-8")
names(poreia)<-c("priority_code","date","total_pliromesdd","paanewdd","paaolddd","total_pliromeseu",
"paaneweu","paaoldeu","returndd","returneu")
poreia$netpliromes<-poreia$total_pliromesdd+poreia$paaolddd-poreia$paanewdd
poreia$netpliromeseu<-poreia$total_pliromeseu+poreia$paaoldeu-poreia$paaneweu
poreia<-aggregate(cbind(poreia$netpliromes, poreia$netpliromeseu) ~ date, data = poreia, sum, na.rm = TRUE)
poreia$date<-gsub(x=poreia$date,pattern=" 00:00:00",replacement="",fixed=T)
View(poreia)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(poreia)
?read.csv
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(poreia)
cons <- dbListConnections(PostgreSQL())
for(con in cons) dbDisconnect(con)
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(poreia)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(poreia)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(poreia)
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
?parse_date_time
source('~/Dropbox/paa/updatedb/dbimporter.R')
cons <- dbListConnections(PostgreSQL())
for(con in cons) dbDisconnect(con)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(poreia)
class(poreia$date)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(poreia)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(poreia)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(poreia)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(poreia)
View(poreia)
View(poreia)
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(poreia)
poreia <- read.csv("/home/iliastsergoulas/Dropbox/paa/updatedb/poreia.csv", sep="\t",
encoding="UTF-8")
View(poreia)
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
cons <- dbListConnections(PostgreSQL())
for(con in cons) dbDisconnect(con)
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/wordcloud.R')
install.packages("wordcloud")
install.packages("wordcloud2")
install.packages("readtext")
source('~/Dropbox/wordcloud.R')
install.packages("tm")
source('~/Dropbox/wordcloud.R')
source('~/Dropbox/wordcloud.R')
install.packages("dendextend")
source('~/Dropbox/wordcloud.R')
install.packages("readtext")
source('~/Dropbox/wordcloud.R')
source('~/Dropbox/wordcloud.R')
View(mytext)
source('~/Dropbox/wordcloud.R')
source('~/Dropbox/wordcloud.R')
source('~/Dropbox/wordcloud.R')
source('~/Dropbox/wordcloud.R')
source('~/Dropbox/wordcloud.R')
source('~/Dropbox/wordcloud.R')
source('~/Dropbox/wordcloud.R')
source('~/Dropbox/wordcloud.R')
source('~/Dropbox/wordcloud.R')
source('~/Dropbox/wordcloud.R')
source('~/Dropbox/wordcloud.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(otd)
View(clld)
View(otdfull)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(clld)
cons <- dbListConnections(PostgreSQL())
for(con in cons) dbDisconnect(con)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(otdfull)
source('~/Dropbox/paa/updatedb/dbimporter.R')
cons <- dbListConnections(PostgreSQL())
for(con in cons) dbDisconnect(con)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(otdfull)
View(otdfull)
View(otdtype)
source('~/Dropbox/paa/updatedb/dbimporter.R')
cons <- dbListConnections(PostgreSQL())
for(con in cons) dbDisconnect(con)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(otdbullets)
View(otdbullets)
source('~/Dropbox/paa/updatedb/dbimporter.R')
priorities<-aggregate(pliromes$netpliromes, by=list(as.character(pliromes$priority_code)), FUN=sum, na.rm=TRUE)
library(RPostgreSQL)
library(reshape2)
library(lubridate)
drv <- dbDriver("PostgreSQL") # loads the PostgreSQL driver
con <- dbConnect(drv, dbname = as.character("agristats"), # creates a connection to the postgres database
host = "88.99.13.199", port = as.character("5432"),
user = as.character("iliastsergoulas"), password = as.character("Std74650!"))
entaxeis <- read.csv("/home/iliastsergoulas/Dropbox/paa/updatedb/entaxeis.csv", sep="\t", encoding="UTF-8")
names(entaxeis)<-c("measure_code","measure_desc","submeasure_code","submeasure_desc","priority_code","priority_desc","focus_area",
"prosklisi","year","region","prefecture","n_projects_ent","total_budget_ent","totaldd_ent")
pliromes <- read.csv("/home/iliastsergoulas/Dropbox/paa/updatedb/pliromes.csv", sep="\t", encoding="UTF-8")
names(pliromes)<-c("measure_code","measure_desc","submeasure_code","submeasure_desc","priority_code","priority_desc","focus_area",
"prosklisi","year","region","prefecture","n_projects_plir","total_pliromesdd","total_pliromeseu",
"paanewdd","paaolddd","paaneweu","paaoldeu","returndd","returneu")
pliromes$netpliromes<-pliromes$total_pliromesdd+pliromes$paaolddd-pliromes$paanewdd
pliromes$netpliromeseu<-pliromes$total_pliromeseu+pliromes$paaoldeu-pliromes$paaneweu
ekxwriseis <- read.csv("/home/iliastsergoulas/Dropbox/paa/updatedb/ekx.csv", sep=";", encoding="UTF-8")
priorities<-aggregate(pliromes$netpliromes, by=list(as.character(pliromes$priority_code)), FUN=sum, na.rm=TRUE)
View(priorities)
View(priorities)
View(pliromes)
source('~/Dropbox/paa/updatedb/dbimporter.R')
cons <- dbListConnections(PostgreSQL())
for(con in cons) dbDisconnect(con)
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(priorities)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(priorities)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(priorities)
View(priorities)
View(priorities)
source('~/Dropbox/paa/updatedb/dbimporter.R')
priorities<-aggregate(pliromes$netpliromes, by=list(as.character(pliromes$priority_code),as.character(pliromes$year)), FUN=sum, na.rm=TRUE)
priorities$Group.1[which(priorities$Group.1=="-")]<-"None"
priorities$x<-round(priorities$x/1000000,2)
names(priorities)<-c("priority_code","year","pliromes")
priorities<-dcast(priorities, year ~ priority_code, value.var = "pliromes")
priorities[is.na(priorities)] <- 0
View(priorities)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(priorities)
View(priorities)
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(priorities)
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
cons <- dbListConnections(PostgreSQL())
for(con in cons) dbDisconnect(con)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(priorities)
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(dashboard)
View(dashboard)
sum(dashboard$P3)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(regions)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(regions)
View(regions)
dimosia <- read.csv("/home/iliastsergoulas/Dropbox/paa/updatedb/dimosia.csv", sep=";", encoding="UTF-8")
dimosia <- read.csv("/home/iliastsergoulas/Dropbox/paa/updatedb/dimosia.csv", sep=";", encoding="UTF-8")
dimosia <- read.csv("/home/iliastsergoulas/Dropbox/paa/updatedb/dimosia.csv", sep=";", encoding="UTF-8")
View(dimosia)
dimosia <- read.csv("/home/iliastsergoulas/Dropbox/paa/updatedb/dimosia.csv", sep=\t;", encoding="UTF-8")
dimosia <- read.csv("/home/iliastsergoulas/Dropbox/paa/updatedb/dimosia.csv", sep=\t", encoding="UTF-8")
dimosia <- read.csv("/home/iliastsergoulas/Dropbox/paa/updatedb/dimosia.csv", sep="\t", encoding="UTF-8")
View(dimosia)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(dimosia)
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(dimosia)
dimosia <- read.csv("/home/iliastsergoulas/Dropbox/paa/updatedb/dimosia.csv", sep="\t", encoding="UTF-8")
View(ekxwriseis)
View(dimosia)
dimosia <- read.csv("/home/iliastsergoulas/Dropbox/paa/updatedb/dimosia.csv", sep="\t", encoding="UTF-8")
View(dimosia)
names(dimosia)<-c("opsaa","total_budget","payments")
dimosia<-aggregate(dimosia$payments, by=list(as.character(dimosia$opsaa),as.character(dimosia$total_budget)), FUN=sum, na.rm=TRUE)
View(dimosia)
dimosia<-aggregate(c(dimosia$Group.2,dimosia$x), by=list(as.character(dimosia$Group.1)), FUN=sum, na.rm=TRUE)
dimosia<-aggregate(~dimosia$Group.2+dimosia$x, by=list(as.character(dimosia$Group.1)), FUN=sum, na.rm=TRUE)
View(dimosia)
dimosia<-aggregate(.~dimosia$Group.2+dimosia$x, by=list(as.character(dimosia$Group.1)), FUN=sum, na.rm=TRUE)
dimosia<-aggregate(dimosia,.~dimosia$Group.2+dimosia$x, by=list(as.character(dimosia$Group.1)), FUN=sum, na.rm=TRUE)
View(dimosia)
class(dimosia$Group.1)
source('~/Dropbox/paa/updatedb/dbimporter.R')
dimosia<-aggregate(dimosia,.~as.numeric(dimosia$Group.2)+as.numeric(dimosia$x), by=list(as.character(dimosia$Group.1)), FUN=sum, na.rm=TRUE)
dimosia<-aggregate(dimosia,.~as.numeric(dimosia$Group.2)+as.numeric(dimosia$x), FUN=sum, na.rm=TRUE)
dimosia<-aggregate(.~as.numeric(dimosia$Group.2)+as.numeric(dimosia$x), dimosia, sum, na.rm=TRUE)
dimosia<-aggregate(. ~ Group.1, data = dimosia, FUN = sum)
dimosia <- read.csv("/home/iliastsergoulas/Dropbox/paa/updatedb/dimosia.csv", sep="\t", encoding="UTF-8",colClasses="character")
View(dimosia)
names(dimosia)<-c("opsaa","total_budget","payments")
dimosia<-aggregate(dimosia$payments, by=list(as.character(dimosia$opsaa),as.character(dimosia$total_budget)), FUN=sum, na.rm=TRUE)
View(dimosia)
dimosia<-aggregate(as.numeric(dimosia$payments), by=list(as.character(dimosia$opsaa),as.character(dimosia$total_budget)), FUN=sum, na.rm=TRUE)
View(dimosia)
dimosia <- read.csv("/home/iliastsergoulas/Dropbox/paa/updatedb/dimosia.csv", sep="\t", encoding="UTF-8",colClasses="character")
names(dimosia)<-c("opsaa","total_budget","payments")
dimosia<-aggregate(as.numeric(dimosia$payments), by=list(as.character(dimosia$opsaa),as.character(dimosia$total_budget)), FUN=sum, na.rm=TRUE)
dimosia<-aggregate(. ~ Group.1, data = dimosia, FUN = sum)
dimosia$Group.2<-as.numeric(dimosia$Group.2)
dimosia<-aggregate(. ~ Group.1, data = dimosia, FUN = sum)
dimosia1 <- read.csv("/home/iliastsergoulas/Dropbox/paa/updatedb/dimosia.csv", sep="\t", encoding="UTF-8",colClasses="character")
View(dimosia1)
View(dimosia)
View(dimosia1)
View(dimosia)
source('~/Dropbox/paa/updatedb/dbimporter.R')
dimosia <- read.csv("/home/iliastsergoulas/Dropbox/paa/updatedb/dimosia.csv", sep="\t", encoding="UTF-8",colClasses="character")
names(dimosia)<-c("opsaa","total_budget","payments")
dimosia<-aggregate(as.numeric(dimosia$payments), by=list(as.character(dimosia$opsaa),as.character(dimosia$total_budget)), FUN=sum, na.rm=TRUE)
dimosia$Group.2<-as.numeric(dimosia$Group.2)
dimosia<-aggregate(. ~ Group.1, data = dimosia, FUN = sum)
dimosia$opsaa<-as.character(dimosia$opsaa)
dbWriteTable(con, c("paa", "dimosia"), value = dimosia, overwrite = TRUE, row.names = FALSE)
View(dimosia)
source('~/Dropbox/paa/updatedb/dbimporter.R')
cons <- dbListConnections(PostgreSQL())
for(con in cons) dbDisconnect(con)
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
eu <- read.csv("/home/iliastsergoulas/Dropbox/paa/updatedb/eu.csv", sep=";", encoding="UTF-8")
eu<-eu[order(eu$pct),]
View(eu)
source('~/Dropbox/paa/updatedb/dbimporter.R')
cons <- dbListConnections(PostgreSQL())
for(con in cons) dbDisconnect(con)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(regions)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(regions)
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(dashboard)
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(dashboard)
cons <- dbListConnections(PostgreSQL())
for(con in cons) dbDisconnect(con)
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(dashboard)
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
cons <- dbListConnections(PostgreSQL())
for(con in cons) dbDisconnect(con)
source('~/Dropbox/paa/updatedb/dbimporter.R')
source('~/Dropbox/paa/updatedb/dbimporter.R')
View(clld)
source('~/Dropbox/paa/updatedb/dbimporter.R')
cons <- dbListConnections(PostgreSQL())
for(con in cons) dbDisconnect(con)
source('~/Dropbox/paa/updatedb/dbimporter.R')