The objective of this analysis is to explore and analyze global economic data using the full Penn World Table dataset. We aim to examine GDP growth, population trends, employment levels, and other economic indicators across countries from 2000 to 2019.
We start by loading the full dataset and performing preprocessing, including selecting relevant variables, filtering for the desired time range, and calculating additional economic indicators.
# Load necessary libraries
library(dplyr)
library(ggplot2)
library(DT)
library(tidyr)
library(leaflet)
library(readxl)
library(knitr)
library(sf)
library(rworldmap)
library(RColorBrewer)
# Load the dataset
# Adjust the file path to where your pwt1001.xlsx is saved
pwt_data <- read_excel("pwt1001.xlsx", sheet = "Data")
# Data Wrangling
# Select relevant columns
pwt_cleaned <- pwt_data %>%
select(country, year, pop, emp, rgdpe, hc, avh) %>%
filter(year >= 2000 & year <= 2019) %>%
drop_na(country, year, pop, emp, rgdpe) %>%
mutate(
gdp_per_capita = rgdpe / pop,
employment_rate = (emp / pop) * 100
)
We summarize the data with detailed tables.
Several enhanced visualizations.
## Warning: Using `size` aesthetic for lines was deprecated in ggplot2 3.4.0.
## ℹ Please use `linewidth` instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.
This comprehensive analysis leverages the full Penn World Table dataset to provide insights into global economic performance. The use of detailed tables and advanced visualizations helps in understanding complex economic indicators and their interrelationships.