#Práctica en R-pubs

Esto es un 5 Profe B)

Datos: Ranking de empresas en Florida Central 2003

¿Qué empresas ocuparon los primeros puestos en Florida central en 2003?

df = data.frame(Empresa = c(
"Disney World", 
"Florida Hospital",
"Publix Supermarkets Inc",
"Walmart Stores Ind",
"Universal Orlando"), 
Asalariados = c(51600, 19283, 14995, 14995, 12000))

knitr::kable(df)
Empresa Asalariados
Disney World 51600
Florida Hospital 19283
Publix Supermarkets Inc 14995
Walmart Stores Ind 14995
Universal Orlando 12000 
library(ggplot2)

ggplot(data=df, aes(x=Empresa, y=Asalariados)) + geom_bar(stat="identity", width=0.5, fill="orange") + theme_minimal()