This week the data was inspired from the Dignity & Debt project. This will help in understanding and spreading awareness around Student Loan debt. The data source is here The objective for this is to perform data visualization and determine the most preferred method of payment for student loans in the US. I will use patchwork package to combine plots. Loading the data loans <- read.csv("https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2019/2019-11-26/loans.csv") glimpse(loans) ## Observations: 291 ## Variables: 10 ## $ agency_name <fct> "Account Control Technology, Inc.