# NOT RUN {
# Base Graphs
with(data = SURFACESPAIN, barplot(surface, names.arg = community, las = 2))
# ggplot2
ggplot(data = SURFACESPAIN, aes(x = reorder(community, surface), y = surface)) +
geom_bar(stat = "identity", fill = "yellow", color = "gold") + coord_flip() +
labs(x = "", y = "squared kilometers")
# Trellis Approach
barchart(community ~ surface, data = SURFACESPAIN)
# }
Run the code above in your browser using DataLab