est_desc_DRangel

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

• Diagrama De Barras

library(ggplot2)
ggplot(data=df, aes(x=Empresa, y=Asalariados)) +
  geom_bar(stat="identity")