sample

###Top 10 countries ranked by their “Ease of Doing Business” scores to give an overall snapshot of country rankings. ######Load necessary libraries ######Define G7 countries ######Clean and filter the data ######Produce summary table of top 10 countries.

library(readxl)  
library(dplyr)   

## Warning: package 'dplyr' was built under R version 4.4.2

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(ggplot2) 

## Warning: package 'ggplot2' was built under R version 4.4.2

library(leaflet) 

## Warning: package 'leaflet' was built under R version 4.4.2

library(sf)

## Warning: package 'sf' was built under R version 4.4.2

## Linking to GEOS 3.12.2, GDAL 3.9.3, PROJ 9.4.1; sf_use_s2() is TRUE

raw_data <- read_excel("C:/Users/Siddhi/Downloads/EDB.xlsx")

## Warning: Expecting numeric in Z1201 / R1201C26: got 'No Practice'

## Warning: Expecting numeric in AA1201 / R1201C27: got 'No Practice'

## Warning: Expecting numeric in AB1201 / R1201C28: got 'No Practice'

## Warning: Expecting numeric in AC1201 / R1201C29: got 'No Practice'

## Warning: Expecting numeric in Z1202 / R1202C26: got 'No Practice'

## Warning: Expecting numeric in AA1202 / R1202C27: got 'No Practice'

## Warning: Expecting numeric in AB1202 / R1202C28: got 'No Practice'

## Warning: Expecting numeric in AC1202 / R1202C29: got 'No Practice'

## Warning: Expecting numeric in Z1203 / R1203C26: got 'No Practice'

## Warning: Expecting numeric in AA1203 / R1203C27: got 'No Practice'

## Warning: Expecting numeric in AB1203 / R1203C28: got 'No Practice'

## Warning: Expecting numeric in AC1203 / R1203C29: got 'No Practice'

## Warning: Expecting numeric in Z1204 / R1204C26: got 'No Practice'

## Warning: Expecting numeric in AA1204 / R1204C27: got 'No Practice'

## Warning: Expecting numeric in AB1204 / R1204C28: got 'No Practice'

## Warning: Expecting numeric in AC1204 / R1204C29: got 'No Practice'

## Warning: Expecting numeric in Z1205 / R1205C26: got 'No Practice'

## Warning: Expecting numeric in AA1205 / R1205C27: got 'No Practice'

## Warning: Expecting numeric in AB1205 / R1205C28: got 'No Practice'

## Warning: Expecting numeric in AC1205 / R1205C29: got 'No Practice'

## Warning: Expecting numeric in Z1206 / R1206C26: got 'No Practice'

## Warning: Expecting numeric in AA1206 / R1206C27: got 'No Practice'

## Warning: Expecting numeric in AB1206 / R1206C28: got 'No Practice'

## Warning: Expecting numeric in AC1206 / R1206C29: got 'No Practice'

## Warning: Expecting numeric in Z1207 / R1207C26: got 'No Practice'

## Warning: Expecting numeric in AA1207 / R1207C27: got 'No Practice'

## Warning: Expecting numeric in AB1207 / R1207C28: got 'No Practice'

## Warning: Expecting numeric in Z1208 / R1208C26: got 'No Practice'

## Warning: Expecting numeric in AA1208 / R1208C27: got 'No Practice'

## Warning: Expecting numeric in AB1208 / R1208C28: got 'No Practice'

## Warning: Expecting numeric in Z1279 / R1279C26: got 'No Practice'

## Warning: Expecting numeric in AA1279 / R1279C27: got 'No Practice'

## Warning: Expecting numeric in AB1279 / R1279C28: got 'No Practice'

## Warning: Expecting numeric in Z1302 / R1302C26: got 'No Practice'

## Warning: Expecting numeric in AA1302 / R1302C27: got 'No Practice'

## Warning: Expecting numeric in AB1302 / R1302C28: got 'No Practice'

## Warning: Expecting numeric in AC1302 / R1302C29: got 'No Practice'

## Warning: Expecting numeric in Z1303 / R1303C26: got 'No Practice'

## Warning: Expecting numeric in AA1303 / R1303C27: got 'No Practice'

## Warning: Expecting numeric in AB1303 / R1303C28: got 'No Practice'

## Warning: Expecting numeric in AC1303 / R1303C29: got 'No Practice'

## Warning: Expecting numeric in Z1304 / R1304C26: got 'No Practice'

## Warning: Expecting numeric in AA1304 / R1304C27: got 'No Practice'

## Warning: Expecting numeric in AB1304 / R1304C28: got 'No Practice'

## Warning: Expecting numeric in AC1304 / R1304C29: got 'No Practice'

## Warning: Expecting numeric in Z1305 / R1305C26: got 'No Practice'

## Warning: Expecting numeric in AA1305 / R1305C27: got 'No Practice'

## Warning: Expecting numeric in AB1305 / R1305C28: got 'No Practice'

## Warning: Expecting numeric in AC1305 / R1305C29: got 'No Practice'

## Warning: Expecting numeric in Z1306 / R1306C26: got 'No Practice'

## Warning: Expecting numeric in AA1306 / R1306C27: got 'No Practice'

## Warning: Expecting numeric in AB1306 / R1306C28: got 'No Practice'

## Warning: Expecting numeric in AC1306 / R1306C29: got 'No Practice'

## Warning: Expecting numeric in Z1307 / R1307C26: got 'No Practice'

## Warning: Expecting numeric in AA1307 / R1307C27: got 'No Practice'

## Warning: Expecting numeric in AB1307 / R1307C28: got 'No Practice'

## Warning: Expecting numeric in AC1307 / R1307C29: got 'No Practice'

## Warning: Expecting numeric in Z1308 / R1308C26: got 'No Practice'

## Warning: Expecting numeric in AA1308 / R1308C27: got 'No Practice'

## Warning: Expecting numeric in AB1308 / R1308C28: got 'No Practice'

## Warning: Expecting numeric in Z1309 / R1309C26: got 'No Practice'

## Warning: Expecting numeric in AA1309 / R1309C27: got 'No Practice'

## Warning: Expecting numeric in AB1309 / R1309C28: got 'No Practice'

## Warning: Expecting numeric in Z1310 / R1310C26: got 'No Practice'

## Warning: Expecting numeric in AA1310 / R1310C27: got 'No Practice'

## Warning: Expecting numeric in AB1310 / R1310C28: got 'No Practice'

## Warning: Expecting numeric in Z1311 / R1311C26: got 'No Practice'

## Warning: Expecting numeric in AA1311 / R1311C27: got 'No Practice'

## Warning: Expecting numeric in AB1311 / R1311C28: got 'No Practice'

## Warning: Expecting numeric in Z1312 / R1312C26: got 'No Practice'

## Warning: Expecting numeric in AA1312 / R1312C27: got 'No Practice'

## Warning: Expecting numeric in AB1312 / R1312C28: got 'No Practice'

## Warning: Expecting numeric in Z1368 / R1368C26: got 'No Practice'

## Warning: Expecting numeric in AA1368 / R1368C27: got 'No Practice'

## Warning: Expecting numeric in AB1368 / R1368C28: got 'No Practice'

## Warning: Expecting numeric in AC1368 / R1368C29: got 'No Practice'

## Warning: Expecting numeric in Z1369 / R1369C26: got 'No Practice'

## Warning: Expecting numeric in AA1369 / R1369C27: got 'No Practice'

## Warning: Expecting numeric in AB1369 / R1369C28: got 'No Practice'

## Warning: Expecting numeric in AC1369 / R1369C29: got 'No Practice'

## Warning: Expecting numeric in Z1370 / R1370C26: got 'No Practice'

## Warning: Expecting numeric in AA1370 / R1370C27: got 'No Practice'

## Warning: Expecting numeric in AB1370 / R1370C28: got 'No Practice'

## Warning: Expecting numeric in AC1370 / R1370C29: got 'No Practice'

## Warning: Expecting numeric in Z1371 / R1371C26: got 'No Practice'

## Warning: Expecting numeric in AA1371 / R1371C27: got 'No Practice'

## Warning: Expecting numeric in AB1371 / R1371C28: got 'No Practice'

## Warning: Expecting numeric in AC1371 / R1371C29: got 'No Practice'

## Warning: Expecting numeric in Z1372 / R1372C26: got 'No Practice'

## Warning: Expecting numeric in AA1372 / R1372C27: got 'No Practice'

## Warning: Expecting numeric in AB1372 / R1372C28: got 'No Practice'

## Warning: Expecting numeric in AC1372 / R1372C29: got 'No Practice'

## Warning: Expecting numeric in Z1373 / R1373C26: got 'No Practice'

## Warning: Expecting numeric in AA1373 / R1373C27: got 'No Practice'

## Warning: Expecting numeric in AB1373 / R1373C28: got 'No Practice'

## Warning: Expecting numeric in AC1373 / R1373C29: got 'No Practice'

## Warning: Expecting numeric in Z1374 / R1374C26: got 'No Practice'

## Warning: Expecting numeric in AA1374 / R1374C27: got 'No Practice'

## Warning: Expecting numeric in AB1374 / R1374C28: got 'No Practice'

## Warning: Expecting numeric in Z1375 / R1375C26: got 'No Practice'

## Warning: Expecting numeric in AA1375 / R1375C27: got 'No Practice'

## Warning: Expecting numeric in AB1375 / R1375C28: got 'No Practice'

## Warning: Expecting numeric in Z1376 / R1376C26: got 'No Practice'

## Warning: Expecting numeric in AA1376 / R1376C27: got 'No Practice'

## Warning: Expecting numeric in AB1376 / R1376C28: got 'No Practice'

## Warning: Expecting numeric in Z1377 / R1377C26: got 'No Practice'

## Warning: Expecting numeric in AA1377 / R1377C27: got 'No Practice'

## Warning: Expecting numeric in AB1377 / R1377C28: got 'No Practice'

## Warning: Expecting numeric in Z1378 / R1378C26: got 'No Practice'

## Warning: Expecting numeric in AA1378 / R1378C27: got 'No Practice'

## Warning: Expecting numeric in AB1378 / R1378C28: got 'No Practice'

## Warning: Expecting numeric in AP1907 / R1907C42: got 'No Practice'

## Warning: Expecting numeric in AQ1907 / R1907C43: got 'No Practice'

## Warning: Expecting numeric in AR1907 / R1907C44: got 'No Practice'

## Warning: Expecting numeric in AP1908 / R1908C42: got 'No Practice'

## Warning: Expecting numeric in AQ1908 / R1908C43: got 'No Practice'

## Warning: Expecting numeric in AR1908 / R1908C44: got 'No Practice'

## Warning: Expecting numeric in AP1909 / R1909C42: got 'No Practice'

## Warning: Expecting numeric in AQ1909 / R1909C43: got 'No Practice'

## Warning: Expecting numeric in AR1909 / R1909C44: got 'No Practice'

## Warning: Expecting numeric in AP1910 / R1910C42: got 'No Practice'

## Warning: Expecting numeric in AQ1910 / R1910C43: got 'No Practice'

## Warning: Expecting numeric in AR1910 / R1910C44: got 'No Practice'

## Warning: Expecting numeric in AP1911 / R1911C42: got 'No Practice'

## Warning: Expecting numeric in AQ1911 / R1911C43: got 'No Practice'

## Warning: Expecting numeric in AR1911 / R1911C44: got 'No Practice'

## Warning: Expecting numeric in Z2094 / R2094C26: got 'No Practice'

## Warning: Expecting numeric in AA2094 / R2094C27: got 'No Practice'

## Warning: Expecting numeric in AB2094 / R2094C28: got 'No Practice'

## Warning: Expecting numeric in AC2094 / R2094C29: got 'No Practice'

## Warning: Expecting numeric in Z2095 / R2095C26: got 'No Practice'

## Warning: Expecting numeric in AA2095 / R2095C27: got 'No Practice'

## Warning: Expecting numeric in AB2095 / R2095C28: got 'No Practice'

## Warning: Expecting numeric in AC2095 / R2095C29: got 'No Practice'

## Warning: Expecting numeric in Z2096 / R2096C26: got 'No Practice'

## Warning: Expecting numeric in AA2096 / R2096C27: got 'No Practice'

## Warning: Expecting numeric in AB2096 / R2096C28: got 'No Practice'

## Warning: Expecting numeric in AC2096 / R2096C29: got 'No Practice'

## Warning: Expecting numeric in Z2097 / R2097C26: got 'No Practice'

## Warning: Expecting numeric in AA2097 / R2097C27: got 'No Practice'

## Warning: Expecting numeric in AB2097 / R2097C28: got 'No Practice'

## Warning: Expecting numeric in AC2097 / R2097C29: got 'No Practice'

## Warning: Expecting numeric in Z2098 / R2098C26: got 'No Practice'

## Warning: Expecting numeric in AA2098 / R2098C27: got 'No Practice'

## Warning: Expecting numeric in AB2098 / R2098C28: got 'No Practice'

## Warning: Expecting numeric in AC2098 / R2098C29: got 'No Practice'

## Warning: Expecting numeric in Z2099 / R2099C26: got 'No Practice'

## Warning: Expecting numeric in AA2099 / R2099C27: got 'No Practice'

## Warning: Expecting numeric in AB2099 / R2099C28: got 'No Practice'

## Warning: Expecting numeric in AC2099 / R2099C29: got 'No Practice'

## Warning: Expecting numeric in Z2100 / R2100C26: got 'No Practice'

## Warning: Expecting numeric in AA2100 / R2100C27: got 'No Practice'

## Warning: Expecting numeric in AB2100 / R2100C28: got 'No Practice'

## Warning: Expecting numeric in Z2101 / R2101C26: got 'No Practice'

## Warning: Expecting numeric in AA2101 / R2101C27: got 'No Practice'

## Warning: Expecting numeric in AB2101 / R2101C28: got 'No Practice'

## Warning: Expecting numeric in Z2102 / R2102C26: got 'No Practice'

## Warning: Expecting numeric in AA2102 / R2102C27: got 'No Practice'

## Warning: Expecting numeric in AB2102 / R2102C28: got 'No Practice'

## Warning: Expecting numeric in Z2103 / R2103C26: got 'No Practice'

## Warning: Expecting numeric in AA2103 / R2103C27: got 'No Practice'

## Warning: Expecting numeric in AB2103 / R2103C28: got 'No Practice'

## Warning: Expecting numeric in Z2104 / R2104C26: got 'No Practice'

## Warning: Expecting numeric in AA2104 / R2104C27: got 'No Practice'

## Warning: Expecting numeric in AB2104 / R2104C28: got 'No Practice'

## New names:
## • `Procedures (number)` -> `Procedures (number)...16`
## • `Time (days)` -> `Time (days)...17`
## • `Procedures (number)` -> `Procedures (number)...21`
## • `Time (days)` -> `Time (days)...22`
## • `Procedures (number)` -> `Procedures (number)...26`
## • `Time (days)` -> `Time (days)...27`
## • `Procedures (number)` -> `Procedures (number)...55`
## • `Time (days)` -> `Time (days)...56`

g7_countries <- c("Canada", "France", "Germany", "Italy", "Japan", "United Kingdom", "United States")

cleaned_data <- raw_data %>%
  filter(Economy %in% c(g7_countries, "India")) %>%
  select(Economy, Region, `Ease of doing business score`, 
         `Score-Starting a business`, `Score-Registering property`, 
         `Score-Paying taxes`, `Score-Getting electricity`) %>%
  mutate(Average_Score = rowMeans(across(starts_with("Score")), na.rm = TRUE))

summary_table <- cleaned_data %>%
  arrange(desc(`Ease of doing business score`)) %>%
  head(10)

print(summary_table)

## # A tibble: 10 × 8
##    Economy        Region           Ease of doing busine…¹ Score-Starting a bus…²
##    <chr>          <chr>                             <dbl>                  <dbl>
##  1 United Kingdom High income: OE…                   84.8                   89.8
##  2 United States  High income: OE…                   84.0                   91.6
##  3 United Kingdom High income: OE…                   83.7                   89.8
##  4 United Kingdom High income: OE…                   83.7                   89.8
##  5 United States  High income: OE…                   83.7                   91.2
##  6 United States  High income: OE…                   83.7                   91.2
##  7 United States  High income: OE…                   83.6                   91.2
##  8 United States  High income: OE…                   83.6                   91.2
##  9 United Kingdom High income: OE…                   83.6                   89.8
## 10 United Kingdom High income: OE…                   83.6                   94.6
## # ℹ abbreviated names: ¹​`Ease of doing business score`,
## #   ²​`Score-Starting a business`
## # ℹ 4 more variables: `Score-Registering property` <dbl>,
## #   `Score-Paying taxes` <dbl>, `Score-Getting electricity` <dbl>,
## #   Average_Score <dbl>