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

Names Coloumn

df<-data.frame(d2011=colnames(Cost2011),d2012=colnames(Cost2012),d2013=colnames(Cost2013),
               d2014=colnames(Cost2011),d2015=colnames(Cost2012),d2016=colnames(Cost2013),
               d2017=colnames(Cost2011),d2018=colnames(Cost2012),d2019=colnames(Cost2013))

head(df)

##            d2011          d2012          d2013          d2014          d2015
## 1    rpt_rec_num    rpt_rec_num    rpt_rec_num    rpt_rec_num    rpt_rec_num
## 2   Provider CCN   Provider CCN   Provider CCN   Provider CCN   Provider CCN
## 3  Hospital Name  Hospital Name  Hospital Name  Hospital Name  Hospital Name
## 4 Street Address Street Address Street Address Street Address Street Address
## 5           City           City           City           City           City
## 6     State Code     State Code     State Code     State Code     State Code
##            d2016          d2017          d2018          d2019
## 1    rpt_rec_num    rpt_rec_num    rpt_rec_num    rpt_rec_num
## 2   Provider CCN   Provider CCN   Provider CCN   Provider CCN
## 3  Hospital Name  Hospital Name  Hospital Name  Hospital Name
## 4 Street Address Street Address Street Address Street Address
## 5           City           City           City           City
## 6     State Code     State Code     State Code     State Code

openxlsx::write.xlsx(df,"Colomnames Cost 2011 to 2019.xlsx")

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")

## Warning in file.create(to[okay]): cannot create file 'Append Cost 2011 to
## 2019.xlsx', reason 'Permission denied'