ggplot(tabla, aes(x = reorder(BARRIO, area_per_capita), y = area_per_capita)) +
geom_bar(stat = "identity", fill = "skyblue") +
labs(title = "Área per Capita en Barrios de Buenos Aires",
x = "Barrio",
y = "Área per Capita") +
theme(axis.text.x = element_text(angle = 45, hjust = 1)) # Rotar etiquetas del eje x

ggplot(top_10_poco_verde, aes(x = reorder(BARRIO, area_per_capita), y = area_per_capita)) +
geom_bar(stat = "identity", fill = "skyblue") +
labs(title = "Top 10 Barrios con Menor Área per Cápita en Buenos Aires",
x = "Barrio",
y = "Área per Cápita") +
theme(axis.text.x = element_text(angle = 45, hjust = 1)) # Rotar etiquetas del eje x

ggplot(tabla, aes(x = reorder(BARRIO, total_area), y = total_area)) +
geom_bar(stat = "identity", fill = "pink") +
labs(title = "Área per Capita en Barrios de Buenos Aires",
x = "Barrio",
y = "Total area (metros cuadrados") +
theme(axis.text.x = element_text(angle = 45, hjust = 1)) # Rotar etiquetas del eje x

ggplot(top_10_poco_verde, aes(x = reorder(BARRIO, total_area), y = total_area)) +
geom_bar(stat = "identity", fill = "pink") +
labs(title = "Top 10 barrios con menor área verde en CABA",
x = "Barrio",
y = "Área total") +
theme(axis.text.x = element_text(angle = 45, hjust = 1)) # Rotar etiquetas del eje x

tabla_ordenada %>%
kable("html", escape = FALSE) %>%
kable_styling(full_width = FALSE) %>%
add_header_above(c(" " = 5), bold = TRUE, background = "pink") %>%
row_spec(which(tabla_ordenada$BARRIO == "BALVANERA"), background = "palegoldenrod")
|
|
|
BARRIO
|
cant_area_verde
|
total_area
|
POBLACION
|
area_per_capita
|
|
VILLA SANTA RITA
|
1
|
216.747
|
33325
|
0.0065040
|
|
PARQUE CHACABUCO
|
3
|
2681.210
|
56281
|
0.0476397
|
|
ALMAGRO
|
5
|
9074.800
|
131699
|
0.0689056
|
|
CHACARITA
|
7
|
3132.106
|
27761
|
0.1128240
|
|
VILLA CRESPO
|
6
|
10503.087
|
81959
|
0.1281505
|
|
PATERNAL
|
4
|
2568.645
|
19717
|
0.1302757
|
|
BALVANERA
|
7
|
26006.155
|
138926
|
0.1871943
|
|
VELEZ SARSFIELD
|
4
|
6626.056
|
35081
|
0.1888788
|
|
AGRONOMIA
|
3
|
2708.344
|
13912
|
0.1946768
|
|
VILLA DEL PARQUE
|
11
|
13634.028
|
55273
|
0.2466671
|
|
BOEDO
|
6
|
12333.896
|
47306
|
0.2607258
|
|
SAN CRISTOBAL
|
10
|
13763.643
|
48611
|
0.2831384
|
|
PARQUE CHAS
|
6
|
5250.681
|
17489
|
0.3002276
|
|
CABALLITO
|
13
|
63193.859
|
176076
|
0.3589010
|
|
VILLA GRAL. MITRE
|
3
|
14019.861
|
34713
|
0.4038793
|
|
NUÑEZ
|
6
|
23914.124
|
51949
|
0.4603385
|
|
VILLA URQUIZA
|
24
|
42285.365
|
91563
|
0.4618172
|
|
FLORESTA
|
5
|
18136.146
|
37575
|
0.4826652
|
|
VILLA ORTUZAR
|
2
|
12248.923
|
21736
|
0.5635316
|
|
VILLA DEVOTO
|
10
|
42454.251
|
66521
|
0.6382083
|
|
FLORES
|
43
|
112170.012
|
164310
|
0.6826731
|
|
COLEGIALES
|
14
|
39552.043
|
52551
|
0.7526411
|
|
LINIERS
|
12
|
33224.639
|
44132
|
0.7528469
|
|
MONTE CASTRO
|
4
|
26018.578
|
33623
|
0.7738327
|
|
SAN TELMO
|
14
|
17038.330
|
20453
|
0.8330480
|
|
COGHLAN
|
3
|
17328.494
|
18604
|
0.9314392
|
|
VILLA LURO
|
18
|
30496.399
|
32502
|
0.9382930
|
|
VILLA RIACHUELO
|
5
|
14359.555
|
14084
|
1.0195651
|
|
CONSTITUCION
|
9
|
45601.406
|
44107
|
1.0338814
|
|
MONSERRAT
|
13
|
43495.249
|
39914
|
1.0897241
|
|
NUEVA POMPEYA
|
21
|
48341.167
|
42695
|
1.1322442
|
|
VILLA PUEYRREDON
|
9
|
47090.481
|
39654
|
1.1875342
|
|
BELGRANO
|
39
|
169678.338
|
126267
|
1.3438059
|
|
PARQUE AVELLANEDA
|
18
|
74427.904
|
53229
|
1.3982585
|
|
BOCA
|
29
|
70037.227
|
45113
|
1.5524844
|
|
VERSALLES
|
8
|
22087.464
|
13822
|
1.5979933
|
|
BARRACAS
|
42
|
145967.490
|
89452
|
1.6317968
|
|
SAAVEDRA
|
31
|
83619.958
|
50295
|
1.6625899
|
|
RECOLETA
|
48
|
275576.576
|
157932
|
1.7449065
|
|
RETIRO
|
62
|
122621.902
|
65413
|
1.8745800
|
|
SAN NICOLAS
|
20
|
54975.278
|
29273
|
1.8780200
|
|
VILLA SOLDATI
|
31
|
93202.328
|
46779
|
1.9923968
|
|
VILLA LUGANO
|
97
|
265947.020
|
126374
|
2.1044441
|
|
MATADEROS
|
22
|
141105.678
|
64436
|
2.1898578
|
|
PARQUE PATRICIOS
|
12
|
103231.866
|
40985
|
2.5187719
|
|
PALERMO
|
73
|
1043164.625
|
226534
|
4.6048921
|
|
PUERTO MADERO
|
37
|
97160.435
|
6726
|
14.4455003
|
|
VILLA REAL
|
5
|
1107611.758
|
13419
|
82.5405588
|
verde