Grafico de barras

df <- data.frame(Empresa = 
                   c("Disney World", 
                      "Florida Hospital", 
                      "Publix Supermarkets Inc",
                      "Walmart Stores Ind",
                      "Univaersal 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
Univaersal Orlando 12000 
library(ggplot2)

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

library(readr)
library(knitr)  

df <- read_csv("https://raw.githubusercontent.com/lihkir/AnalisisEstadisticoUN/main/Data/catalog.csv")
## Rows: 1693 Columns: 23
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (16): date, time, continent_code, country_name, country_code, state/prov...
## dbl  (7): id, population, distance, latitude, longitude, injuries, fatalities
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
knitr::kable(head(df))
id date time continent_code country_name country_code state/province population city/town distance location_description latitude longitude geolocation hazard_type landslide_type landslide_size trigger storm_name injuries fatalities source_name source_link
34 3/2/07 Night NA United States US Virginia 16000 Cherry Hill 3.40765 Unknown 38.6009 -77.2682 (38.600900000000003, -77.268199999999993) Landslide Landslide Small Rain NA NA NA NBC 4 news http://www.nbc4.com/news/11186871/detail.html
42 3/22/07 NA NA United States US Ohio 17288 New Philadelphia 3.33522 NA 40.5175 -81.4305 (40.517499999999998, -81.430499999999995) Landslide Landslide Small Rain NA NA NA Canton Rep.com http://www.cantonrep.com/index.php?ID=345054&Category=9&subCategoryID=0
56 4/6/07 NA NA United States US Pennsylvania 15930 Wilkinsburg 2.91977 Urban area 40.4377 -79.9160 (40.4377, -79.915999999999997) Landslide Landslide Small Rain NA NA NA The Pittsburgh Channel.com https://web.archive.org/web/20080423132842/http://www.thepittsburghchannel.com/news/11846833/detail.html
59 4/14/07 NA NA Canada CA Quebec 42786 Châteauguay 2.98682 Above river 45.3226 -73.7771 (45.322600000000001, -73.777100000000004) Landslide Riverbank collapse Small Rain NA NA NA Le Soleil http://www.hebdos.net/lsc/edition162007/articles.asp?article_id=166976
61 4/15/07 NA NA United States US Kentucky 6903 Pikeville 5.66542 Below road 37.4325 -82.4931 (37.432499999999997, -82.493099999999998) Landslide Landslide Small Downpour NA NA 0 Matthew Crawford (KGS) NA
64 4/20/07 NA NA United States US Kentucky 6903 Pikeville 0.23715 NA 37.4814 -82.5186 (37.481400000000001, -82.518600000000006) Landslide Landslide Small Rain NA NA NA Applalachain news-express http://www.news-expressky.com/articles/2007/04/19/top_story/01mudslide.txt