table(diff(table6.16[,1])) 6. Add percent table6.16$financePct <- with(table6.16, Financial/DomesticIndustries) png('finance.png', width=480, height=320, bg="transparent")...