Q2

filepath <- "Desktop/Financial 2022.xlsx"
Financial_Development_Database_2022 <- read_excel(filepath, sheet = "Data - August 2022")

Financial_Development_Database_2022 %>% 
  group_by(region,income, year) %>% 
  summarize(Mean = mean(ai01, na.rm = TRUE),Max_Value = max(ai01, na.rm = T),Standard_deviation = sd(ai01, na.rm = TRUE),Median = median(ai01, na.rm = T),Min_Value =  min(ai01, na.rm = T))->AI01

## Warning: There were 1954 warnings in `summarize()`.
## The first warning was:
## ℹ In argument: `Max_Value = max(ai01, na.rm = T)`.
## ℹ In group 1: `region = "East Asia & Pacific"`, `income = "High income"`, `year
##   = 1960`.
## Caused by warning in `max()`:
## ! no non-missing arguments to max; returning -Inf
## ℹ Run `dplyr::last_dplyr_warnings()` to see the 1953 remaining warnings.

## `summarise()` has grouped output by 'region', 'income'. You can override using
## the `.groups` argument.

datatable(AI01, options = list(scrollX = TRUE), caption = "Summmary Statistics for ai01")

Financial_Development_Database_2022 %>%
  group_by(region,income, year) %>% 
  summarize(Mean = mean(di01, na.rm = TRUE),Max_Value = max(di01, na.rm = T),Standard_deviation = sd(di01, na.rm = TRUE),Median = median(di01, na.rm = T),Min_Value =  min(di01, na.rm = T))->DI01

## Warning: There were 194 warnings in `summarize()`.
## The first warning was:
## ℹ In argument: `Max_Value = max(di01, na.rm = T)`.
## ℹ In group 249: `region = "Europe & Central Asia"`, `income = "Lower middle
##   income"`, `year = 1960`.
## Caused by warning in `max()`:
## ! no non-missing arguments to max; returning -Inf
## ℹ Run `dplyr::last_dplyr_warnings()` to see the 193 remaining warnings.

## `summarise()` has grouped output by 'region', 'income'. You can override using
## the `.groups` argument.

datatable(DI01, options = list(scrollX = TRUE), caption = "Summmary Statistics for di01")

Financial_Development_Database_2022 %>% 
  group_by(region,income, year) %>% 
  summarize(Mean = mean(si05, na.rm = TRUE),Max_Value = max(si05, na.rm = T),Standard_deviation = sd(si05, na.rm = TRUE),Median = median(si05,na.rm = T),Min_Value =  min(si05, na.rm = T))->SI05

## Warning: There were 1776 warnings in `summarize()`.
## The first warning was:
## ℹ In argument: `Max_Value = max(si05, na.rm = T)`.
## ℹ In group 1: `region = "East Asia & Pacific"`, `income = "High income"`, `year
##   = 1960`.
## Caused by warning in `max()`:
## ! no non-missing arguments to max; returning -Inf
## ℹ Run `dplyr::last_dplyr_warnings()` to see the 1775 remaining warnings.

## `summarise()` has grouped output by 'region', 'income'. You can override using
## the `.groups` argument.

datatable(SI05, options = list(scrollX = TRUE), caption = "Summmary Statistics for si05")