R Markdown

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")