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