Append Dataset CMS

Import Dataset

Cost2011 <- read_csv("CostReport_2011_Final.csv")
Cost2012 <- read_csv("CostReport_2012_Final.csv")
Cost2013 <- read_csv("CostReport_2013_Final.csv")
Cost2014 <- read_csv("CostReport_2014_Final.csv")
Cost2015 <- read_csv("CostReport_2015_Final.csv")
Cost2016 <- read_csv("CostReport_2016_Final.csv")
Cost2017 <- read_csv("CostReport_2017_Final.csv")
Cost2018 <- read_csv("CostReport_2018_Final.csv")
Cost2019 <- read_csv("CostReport_2019_Final.csv")

Check match Coloumn

paste0("Match Colnames 2011 and 2012 : ",sum(colnames(Cost2011)==colnames(Cost2012)))

## [1] "Match Colnames 2011 and 2012 : 126"

paste0("Match Colnames 2012 and 2013 : ",sum(colnames(Cost2012)==colnames(Cost2013)))

## [1] "Match Colnames 2012 and 2013 : 126"

paste0("Match Colnames 2013 and 2014 : ",sum(colnames(Cost2013)==colnames(Cost2014)))

## [1] "Match Colnames 2013 and 2014 : 126"

paste0("Match Colnames 2014 and 2015 : ",sum(colnames(Cost2014)==colnames(Cost2015)))

## [1] "Match Colnames 2014 and 2015 : 126"

paste0("Match Colnames 2015 and 2016 : ",sum(colnames(Cost2015)==colnames(Cost2016)))

## [1] "Match Colnames 2015 and 2016 : 126"

paste0("Match Colnames 2016 and 2017 : ",sum(colnames(Cost2016)==colnames(Cost2017)))

## [1] "Match Colnames 2016 and 2017 : 126"

paste0("Match Colnames 2017 and 2018 : ",sum(colnames(Cost2017)==colnames(Cost2018)))

## [1] "Match Colnames 2017 and 2018 : 126"

paste0("Match Colnames 2018 and 2019 : ",sum(colnames(Cost2018)==colnames(Cost2019)))

## [1] "Match Colnames 2018 and 2019 : 126"

##Since total Match colanmes from 2011 to 2019 is 126, same with total coloumn which mean 
##All coloumn remain same from 2011 to 2019

Append From 2011 to 2019

## Give Year Coloum Since there no coloumn indicate Year
Cost2011$Year<-2011
Cost2012$Year<-2012
Cost2013$Year<-2013
Cost2014$Year<-2014
Cost2015$Year<-2015
Cost2016$Year<-2016
Cost2017$Year<-2017
Cost2018$Year<-2018
Cost2019$Year<-2019

## Bind Rows
Cost1119<-bind_rows(Cost2011,Cost2012,Cost2013,
                    Cost2014,Cost2015,Cost2016,
                    Cost2017,Cost2018,Cost2019)

## Save Appended Rows to Xlsx Format
openxlsx::write.xlsx(Cost1119,"Append Cost 2011 to 2019.xlsx")