Datos: Ranking de empresas en Florida central 2003 - ¿Qué empresas ocuparon los primeros puestos en Florida central 2003?

df <- data.frame(Empresa= 
                   c("Disney World",
                     "Florida Hospital", 
                     "Publix Supermarkest Ins",
                     "Walmart Stores Ind", 
                     "Universal Orlando"), 
                 Asalariados = 
                   c(51600,
                     19283,
                     14995,
                     14995,
                     12000))
knitr::kable(df)
Empresa Asalariados
Disney World 51600
Florida Hospital 19283
Publix Supermarkest Ins 14995
Walmart Stores Ind 14995
Universal Orlando 12000 
head(df)
##                   Empresa Asalariados
## 1            Disney World       51600
## 2        Florida Hospital       19283
## 3 Publix Supermarkest Ins       14995
## 4      Walmart Stores Ind       14995
## 5       Universal Orlando       12000
library(ggplot2)
ggplot(data=df, aes(x=Empresa, y=Asalariados)) + geom_bar(stat="identity")