4 How We Bound Company Data

After we collected all of our company data, we broke it down into individual company plots and then combined all the respective data plots onto a single graph. To pull this off, we used the rbind() function for each company and then for the group plot. By using the rbind() function, we were able to extrapolate useful content.

 dell_data <- rbind(twitter_dell6.30,twitter_dell7.01, twitter_dell7.02, twitter_dell7.03, twitter_dell7.04, twitter_dell7.05, twitter_dell7.06, twitter_dell7.07, twitter_dell7.08, twitter_dell7.09, twitter_dell7.10, twitter_dell7.11, twitter_dell7.12, twitter_dell7.13, twitter_dell7.14, twitter_dell7.15, twitter_dell7.16, twitter_dell7.17, twitter_dell7.18, twitter_dell7.19, twitter_dell7.20)
 dell_data$CompanyName <-"Dell"
 
  cisco_data <- rbind(twitter_cisco6.30,twitter_cisco7.01,twitter_cisco7.02, twitter_cisco7.03, twitter_cisco7.04, twitter_cisco7.05, twitter_cisco7.06, twitter_cisco7.07, twitter_cisco7.08, twitter_cisco7.09, twitter_cisco7.10, twitter_cisco7.11, twitter_cisco7.12, twitter_cisco7.13, twitter_cisco7.14, twitter_cisco7.15, twitter_cisco7.16, twitter_cisco7.17, twitter_cisco7.18, twitter_cisco7.19, twitter_cisco7.20)
 cisco_data$CompanyName <-"Cisco"
 
  amazon_data <- rbind(twitter_amazon6.30,twitter_amazon7.01,twitter_amazon7.02, twitter_amazon7.03, twitter_amazon7.04, twitter_amazon7.05, twitter_amazon7.06, twitter_amazon7.07, twitter_amazon7.08, twitter_amazon7.09, twitter_amazon7.10, twitter_amazon7.11, twitter_amazon7.12, twitter_amazon7.13, twitter_amazon7.14, twitter_amazon7.15, twitter_amazon7.16, twitter_amazon7.17, twitter_amazon7.18, twitter_amazon7.19, twitter_amazon7.20)
 amazon_data$CompanyName <-"Amazon"
 
  microsoft_data <- rbind(twitter_microsoft6.30,twitter_microsoft7.01,twitter_microsoft7.02, twitter_microsoft7.03, twitter_microsoft7.04, twitter_microsoft7.05, twitter_microsoft7.06, twitter_microsoft7.07, twitter_microsoft7.08, twitter_microsoft7.09, twitter_microsoft7.10, twitter_microsoft7.11, twitter_microsoft7.12, twitter_microsoft7.13, twitter_microsoft7.14, twitter_microsoft7.15, twitter_microsoft7.16, twitter_microsoft7.17, twitter_microsoft7.18, twitter_microsoft7.19, twitter_microsoft7.20)
 microsoft_data$CompanyName <-"Microsoft"
 
  all_data <- rbind(dell_data,amazon_data,microsoft_data,cisco_data)