title: How to Calculate Multiple Correlation Between Several Products using Boolean values With R
body: <p>I  want to compute the multiple correlation between several products depending on the frequency of getting them together (i.e as EX: product A has a large correlation coefficient with product B because the most orders of A were with product B at the same order) OR (If there's no order has A &amp; B at the same time then the correlation between them = 0)
  and i want to do that to create a recommendation model for every new order (recommend the products depending on the degree of the correlation between the selected product and others).
  and this's a sample from my data :</p>
  
  <pre><code>structure(list(WHWorkOrderHeaderId = c(137413L, 137413L, 137413L, 
  137413L, 137413L, 137413L, 137413L, 137413L, 137413L, 137413L, 
  137413L, 137413L, 136729L, 136729L, 136729L, 136729L, 136729L, 
  136729L, 136729L, 136729L, 136729L, 136729L, 136729L, 136729L, 
  136729L, 137260L, 137260L, 137260L, 137260L, 137260L, 137260L, 
  137260L, 137260L, 137260L, 137260L, 137429L, 137429L, 137429L, 
  137429L, 137429L, 137429L, 137429L, 137429L, 137429L, 137974L, 
  137974L, 137902L, 137902L, 137902L, 137902L, 137902L, 137902L, 
  137902L, 138837L, 138837L, 138837L, 138837L, 138837L, 138837L, 
  140938L, 140938L, 140938L, 140938L, 140938L, 140938L, 140938L, 
  140938L, 140938L, 140938L, 139642L, 139642L, 139642L, 139642L, 
  139642L, 139642L, 139642L, 140676L, 140676L, 140676L, 140676L, 
  140676L, 140676L, 139424L, 139424L, 139424L, 139424L, 139424L, 
  139424L, 139424L, 139424L, 139424L, 141302L, 141302L, 141302L, 
  141302L, 141302L, 141302L, 138297L, 138297L, 138297L, 138297L, 
  138297L, 138297L, 138297L, 138297L, 138297L, 138297L, 138297L, 
  138297L, 138297L, 137302L, 137302L, 137302L, 137302L, 134444L, 
  134444L, 134444L, 141134L, 141134L, 141134L, 141134L, 134468L, 
  134468L, 131965L, 131965L, 131965L, 131965L, 131965L, 131965L, 
  131965L, 131965L, 131965L, 135722L, 135722L, 135722L, 135722L, 
  135722L, 135722L, 135722L, 135722L, 135722L, 135722L, 135722L, 
  135722L, 135722L, 135722L, 139444L, 139444L, 139444L, 139444L, 
  139444L, 139444L, 137419L, 137419L, 137419L, 137419L, 137419L, 
  137419L, 137419L, 137419L, 137419L, 137419L, 137419L, 137419L, 
  136078L, 136078L, 136078L, 136078L, 136078L, 136078L, 136078L, 
  136078L, 136078L, 136078L, 136078L, 136078L, 136078L, 131866L, 
  131866L, 131866L, 131866L, 131866L, 131866L, 131866L, 139214L, 
  139214L, 139214L, 139214L, 139214L, 139214L, 131997L, 131997L, 
  131997L, 131997L, 139482L, 139482L, 139482L, 139482L, 139482L, 
  139482L, 139482L, 137352L, 137352L, 137352L, 137352L, 137352L, 
  137352L, 137352L, 137352L, 136610L, 136610L, 136610L, 136610L, 
  136610L, 136066L, 136066L, 136066L, 136066L, 136066L, 136066L, 
  136066L, 133358L, 133358L, 133358L, 134522L, 134522L, 134522L, 
  134522L, 134522L, 134522L, 134522L, 134522L, 131481L, 131481L, 
  131481L, 131918L, 131918L, 131918L, 131918L, 135758L, 135758L, 
  135758L, 135758L, 135678L, 135678L, 135678L, 135678L, 135678L, 
  135678L, 135678L, 135678L, 135678L, 131986L, 131986L, 131986L, 
  131986L, 131986L, 131986L, 131986L, 139468L, 139468L, 139468L, 
  139468L, 139468L, 139468L, 139468L, 139468L, 139468L, 139468L, 
  139533L, 139533L, 139533L, 139533L, 139533L, 139533L, 139533L, 
  139533L, 139533L, 131950L, 137540L, 137540L, 137540L, 137540L, 
  137540L, 137540L, 137540L, 138021L, 138021L, 138021L, 138021L, 
  138021L, 138021L, 138021L, 138021L, 138021L, 139280L, 139280L, 
  139280L, 139280L, 139280L, 139280L, 139280L, 139280L, 139280L, 
  139280L, 139280L, 139280L, 139280L, 139280L, 139280L, 139280L, 
  134490L, 134490L, 134490L, 134490L, 134490L, 134490L, 134490L, 
  134490L, 134490L, 134490L, 135747L, 135747L, 135747L, 135747L, 
  135747L, 135747L, 135747L, 135747L, 135747L, 135747L, 135747L, 
  141057L, 141057L, 141057L, 141057L, 141057L, 141057L, 141057L, 
  141057L, 141057L, 141057L, 141057L, 141057L, 141057L, 141057L, 
  141057L, 141057L, 141057L, 141057L, 141057L, 141057L, 141057L, 
  136233L, 136233L, 136233L, 136233L, 136233L, 136233L, 136233L, 
  136233L, 136233L, 136233L, 136233L, 136233L, 136233L, 136233L, 
  136233L, 136233L, 136233L, 136233L, 136233L, 136233L, 136233L, 
  136430L, 136430L, 136430L, 136430L, 136430L, 136430L, 136430L, 
  136430L, 136430L, 136430L, 136430L, 136430L, 136430L, 136430L, 
  141055L, 141055L, 141055L, 141055L, 141055L, 141055L, 141055L, 
  141055L, 131666L, 131666L, 131666L, 131666L, 131666L, 131666L, 
  131666L, 131666L, 131551L, 131551L, 131551L, 131551L, 131551L, 
  131551L, 131551L, 131551L, 131551L, 131469L, 131469L, 131469L, 
  131469L, 131469L, 131469L, 131469L, 131469L, 131469L, 131469L, 
  131469L, 131301L, 131321L, 131775L, 131775L, 131775L, 131775L, 
  131775L, 131775L, 131775L, 131775L, 131993L, 131993L, 131993L, 
  131993L, 131993L, 131993L, 131993L, 131993L, 131993L, 131993L, 
  131993L, 131993L, 132139L, 132139L, 132139L, 132139L, 132139L, 
  132139L, 132139L, 132139L, 132139L, 132139L, 132139L, 132139L, 
  132139L, 132139L, 134584L, 134584L, 134584L, 134584L, 134584L, 
  134584L, 134584L, 134584L, 134584L, 134584L, 134584L, 134584L, 
  134584L, 134584L, 134584L, 134584L, 134584L, 134584L, 134584L, 
  134584L, 134584L, 134584L, 134584L, 134584L, 134585L, 134585L, 
  134585L, 134585L, 134585L, 134585L, 134585L, 134585L, 134585L, 
  134585L, 134585L, 134585L, 134585L, 134585L, 134585L, 134585L, 
  134585L, 136986L, 136986L, 136986L, 136986L, 136986L, 132252L, 
  132252L, 132252L, 132252L, 132252L, 132252L, 132252L, 132252L, 
  132252L, 132252L, 131880L, 131880L, 131880L, 131880L, 131880L, 
  131880L, 131880L, 131880L, 131880L, 131880L, 136227L, 136227L, 
  136227L, 136227L, 136227L, 136227L, 136227L, 136227L, 136227L, 
  136227L, 136227L, 136356L, 136356L, 136356L, 136356L, 136356L, 
  136356L, 136356L, 136356L, 136356L, 136356L, 136356L, 136356L, 
  136356L, 136356L, 136356L, 141289L, 141289L, 141289L, 141289L, 
  141289L, 141289L, 141289L, 141289L, 141289L, 141289L, 141289L, 
  141289L, 141289L, 141289L, 139342L, 139342L, 139342L, 139342L, 
  139342L, 131915L, 131915L, 131915L, 131915L, 139297L, 139297L, 
  139297L, 139297L, 139297L, 139297L, 139297L, 139297L, 132175L, 
  132175L, 132175L, 132175L, 134504L, 134504L, 134504L, 134504L, 
  134504L, 134504L, 134504L, 134504L, 134504L, 134504L, 133320L, 
  133320L, 133320L, 133320L, 133320L, 133320L, 133320L, 133320L, 
  133320L, 133320L, 133320L, 133320L, 133320L, 133320L, 133320L, 
  133320L, 133320L, 133320L, 139105L, 139105L, 139105L, 139105L, 
  139105L, 139105L, 139105L, 139105L, 138050L, 138050L, 138050L, 
  138050L, 138050L, 138050L, 138050L, 138050L, 138050L, 138050L, 
  132216L, 132216L, 132216L, 132216L, 132216L, 132216L, 132216L, 
  132217L, 132217L, 132217L, 132217L, 132217L, 132217L, 132217L, 
  132217L, 131635L, 131635L, 131635L, 135792L, 135792L, 135792L, 
  135792L, 135792L, 135792L, 135792L, 135792L, 135792L, 135792L, 
  135792L, 137650L, 137650L, 137650L, 137650L, 137788L, 137788L, 
  137788L, 138028L, 138028L, 138028L, 138028L, 139057L, 139057L, 
  139057L, 139057L, 138497L, 138497L, 138497L, 138497L, 138497L, 
  138497L, 138597L, 139581L, 139581L, 139581L, 139581L, 139581L, 
  139581L, 139581L, 139581L, 139581L, 139581L, 139581L, 139581L, 
  139581L, 131894L, 131894L, 131894L, 131894L, 131894L, 131894L, 
  131894L, 132205L, 132205L, 132205L, 132205L, 132205L, 132205L, 
  132205L, 132205L, 132205L, 135981L, 135981L, 135981L, 135981L, 
  135981L, 135981L, 135981L, 135981L, 135981L, 136683L, 136683L, 
  136683L, 136683L, 136683L, 136683L, 136683L, 136683L, 136683L, 
  136683L, 136683L, 136683L, 136683L, 136683L, 136683L, 136683L, 
  136683L, 136683L, 137268L, 137268L, 137268L, 137268L, 137268L, 
  137268L, 137268L, 137268L, 137268L, 137268L, 137268L, 137285L, 
  138087L, 138087L, 138087L, 138087L, 138087L, 138087L, 138087L, 
  138087L, 138087L, 138970L, 138970L, 138970L, 138970L, 138970L, 
  138970L, 138970L, 138970L, 138970L, 138970L, 138970L, 138970L, 
  132084L, 132084L, 141281L, 141281L, 141281L, 141281L, 137391L, 
  137391L, 137391L, 137391L, 137391L, 137391L, 137391L, 137391L, 
  138285L, 138285L, 138285L, 138285L, 138285L, 138285L, 138285L, 
  138285L, 138285L, 138285L, 138285L, 133381L, 133381L, 133381L, 
  133381L, 133381L, 133381L, 133381L, 139269L, 139265L, 139265L, 
  139265L, 139265L, 139265L, 139265L, 136803L, 136803L, 136803L, 
  136803L, 136803L, 136803L, 136803L, 136803L, 136803L, 136803L, 
  136803L, 137032L, 137032L, 137032L, 137032L, 137032L, 137032L, 
  137032L, 137234L, 137234L, 137234L, 137234L, 137234L, 137234L, 
  137234L, 137234L, 137234L, 137004L, 137004L, 137004L, 137004L, 
  137004L, 137004L, 137004L, 137004L, 137004L, 138205L, 138205L, 
  138205L, 139070L, 139070L, 139070L, 139070L, 139070L, 139070L, 
  139070L, 139070L, 139070L, 139070L, 139351L, 139351L, 139351L, 
  139351L, 139351L, 139351L, 139351L, 139351L, 139351L, 139351L, 
  140813L, 140813L, 140813L, 140813L, 140813L, 140813L, 140813L, 
  139479L, 139479L, 139479L, 139479L, 139479L, 139479L, 139479L, 
  139479L, 140667L, 140667L, 140667L, 140667L, 140667L, 140667L, 
  140667L, 140667L, 133291L, 133291L, 133291L, 133291L, 139465L, 
  139465L, 139465L, 139465L, 139465L, 139465L, 139465L, 139465L, 
  139465L, 141174L, 141174L, 141174L, 141174L, 141174L, 141174L, 
  141174L, 141174L, 141174L, 141174L, 141174L, 141174L, 141174L, 
  141174L, 141174L, 141174L, 141174L, 139325L, 139325L, 139325L, 
  139325L, 139325L, 139325L, 139325L, 139325L, 139325L, 139325L, 
  139325L, 139325L, 139325L, 139325L, 139325L, 138061L, 138061L, 
  138061L, 138061L, 138061L, 138061L, 138061L, 138061L, 138061L, 
  138061L, 138061L, 138061L, 138061L, 139143L, 139143L, 139143L, 
  139143L, 139143L, 139143L, 139143L, 139143L, 139143L, 139143L, 
  139143L, 139143L, 138671L, 138671L, 138671L, 138671L, 138671L, 
  138671L, 138671L, 138671L, 138671L, 138671L, 138671L, 138671L, 
  131970L, 131970L, 131970L, 131970L, 131970L, 131970L, 131970L, 
  131970L, 136802L, 136802L, 136802L, 136802L, 136802L, 136405L, 
  136405L, 136405L, 136405L, 136405L, 136405L, 136405L, 139156L, 
  139156L, 139156L, 139156L), OtherLangDescription = c("frying Potato", 
  "Flame Grape", "Zebdaya Mango", "Green pepper", "Molokhia", "White Eggplant ", 
  "Golden Onion", "Zucchini", "Dill", "Parsley", "Coriander", "Local Eggplant", 
  "Local Lemon", "Local Pear", "Flame Grape", "Superior Grape", 
  "Capsicum", "Green pepper", "Cucumber", "White Eggplant ", "Carrot", 
  "Tomato", "Zucchini", "Parsley", "Local Celery ", "frying Potato", 
  "Flame Grape", "Superior Grape", "Momtaza Owais Mango", "Barshomi Figs", 
  "Green pepper", "Cucumber", "Tomato", "Red Onion", "Parsley", 
  "Flame Grape", "Momtaza Owais Mango", "Barshomi Figs", "Hot Pepper", 
  "Green pepper", "Cucumber", "Red Onion", "Zucchini", "Parsley", 
  "Momtaza Owais Mango", "Barshomi Figs", "Local Pear", "Superior Grape", 
  "Momtaza Owais Mango", "Barshomi Figs", "Cucumber", "White Eggplant ", 
  "Tomato", "Classic Eggplant", "Local Pear", "Tomato", "Dill", 
  "Parsley", "Coriander", "Classic Eggplant", "frying Potato", 
  "Flame Grape", "Cucumber", "Molokhia", "Cooking Potato", "Tomato", 
  "Cantaloupe", " Green Beans", "Baladi Cabbage", "Local Lemon", 
  "Classic Eggplant", "frying Potato", "Banati Grape", "Chili Pepper", 
  "Green pepper", "Tomato", "Local Lemon", "Classic Eggplant", 
  "Banati Grape", "Chili Pepper", "Green pepper", "Tomato", "Classic Eggplant", 
  "frying Potato", "Local Pear", "Chili Pepper", "Green pepper", 
  "White Eggplant ", "Black Eggplant", "Tomato", "Zaghlol Dates", 
  "Local Lemon", "Baladi Garlic", "Zucchini", "Dill", "Parsley", 
  "Red Globe Grape", "frying Potato", "Local Pear", "Flame Grape", 
  "Fons Mango", "Barshomi Figs", "Cucumber", "Carrot", "Tomato", 
  "Red Onion", "Dill", "Parsley", "Coriander", "Owais Mango", "Melon", 
  "Sadeeka Mango", "Barshomi Figs", "Avocado", "Strawberry", "Sugary Peach", 
  "Local Cucumber", "Imported Peach", "Guava", "Watermelon ( per KG)", 
  "Syrian plum", "Watermelon ( per KG)", "Hot Pepper", "Watermelon ( per KG)", 
  "Hot Pepper", "Cucumber", "White Eggplant ", "Grape Leaves", 
  "Carrot", "Tomato", "Red Onion", "Sugary Peach", "Local Lemon", 
  "Mushroom (200G) old", "Red Radish old", "Orange For Juice", 
  "Watermelon ( per KG)", "Melon", "Flame Grape", "Chili Pepper", 
  "Capsicum", "Carrot", "Tomato", "Broccoli", "Sugary Peach", "Local Cucumber", 
  "Classic Eggplant", "frying Potato", "Capsicum", "Green pepper", 
  "Golden Onion", "Tomato", "frying Potato", "Flame Grape", "Superior Grape", 
  "Sadeeka Mango", "Capsicum", "Green pepper", "Black Eggplant", 
  "Cooking Potato", "Carrot", "Tomato", "Local Cucumber", "Local Hot Pepper", 
  "Capsicum", "Green pepper", "Grape Leaves", "Cooking Potato", 
  "Tomato", "Cantaloupe", "Local Cucumber", "Japanese Plum", "Dill", 
  "White Cabbage", "Coriander", "Arugula", "Local Apple", "Local Lemon", 
  "Classic Eggplant", "Morket Tangerine", "Cooking Potato", "Red Onion", 
  "Tamr hendi", "Deluxe Dried Dates", "Sokkary Mango", "Nems Watermelon (KG)", 
  "Sugary Peach", "Red Globe Grape", "Owais Mango", "Lebanese Apple", 
  "Orange For Juice", "Watermelon ( per KG)", "Golden Apple", "Tomato", 
  "Sweet Potato", "Sokkary Mango", "Gala Apple", "Tomato", "Okra", 
  "Mint", "Red Globe Grape", "Watermelon ( per KG)", "Flame Grape", 
  "Hot Pepper", "Capsicum", "Tomato", "Local Cucumber", "Parsley", 
  "Local Apple", "Local Lemon", "Flame Grape", "Superior Grape", 
  "Parsley", "Local Apple", "Watermelon ( per KG)", "Cooking Potato", 
  "Taro", "Cantaloupe", "Local Cucumber", "Dried Dates", "Local Apple", 
  "Watermelon ( per KG)", "Golden Onion", "Sugary Peach", "Arugula old", 
  "frying Potato", "Parsle old", "Coriander old", "Dill old", "White Cabbage Old", 
  "Tomato", "Local Cucumber", "Orange For Juice", "Watermelon ( per KG)", 
  "Red Onion", "Watermelon ( per KG)", "Nectarine Peach", "Granny Apple", 
  "Apricot", "Carrot", "Tomato", "Red Onion", "Zucchini", "Parsle old", 
  "Coriander old", "Dill old", "Flame Grape", "Capsicum", "Carrot", 
  "Tomato", "Local Cucumber", "Zucchini", "Orange For Juice", "Golden Apple", 
  "Golden Onion", "Cooking Potato", "Carrot", "Tomato", "Taro", 
  "Local Lemon", "Cauliflower", "Classic Eggplant", "frying Potato", 
  "Autumn Royal Grape", "Capsicum", "Green pepper", "Cucumber", 
  "Tomato", "Red Globe Grape", "Local Lemon", "Classic Eggplant", 
  "frying Potato", "Autumn Royal Grape", "Capsicum", "Green pepper", 
  "Cucumber", "Tomato", "Red Globe Grape", "Watermelon ( per KG)", 
  "Local Lemon", "Classic Eggplant", "frying Potato", "Flame Grape", 
  "Tomato", "Red Onion", "Local Cucumber", "Superior Grape", "Sokkary Mango", 
  "Sadeeka Mango", "Barshomi Figs", "Hot Pepper", "Chili Pepper", 
  "Black Eggplant", "Red Globe Grape", "Syrian plum", "Local Lemon", 
  "Classic Eggplant", "frying Potato", "Pumpkin", "Banati Grape", 
  "Sokkary Mango", "Green pepper", "Cucumber", "Molokhia", "Golden Onion", 
  "Carrot", "Tomato", "Red Onion", "Red Garlic", "Mint", "Arugula", 
  "Parsle old", "Coriander old", "Dill old", "White Cabbage Old", 
  "Capsicum", "Green pepper", "White Eggplant ", "Carrot", "Tomato", 
  "Sugary Peach", "Mushroom (200G) old", "Arugula old", "Mint old", 
  "Dessert Peach", "frying Potato", "Parsle old", "Green pepper", 
  "Cucumber", "Tomato", "Red Onion", "Sugary Peach", "Classic Eggplant", 
  "Sweet Potato", "frying Potato", "Sweet Apple", "Local Pear", 
  "Flame Grape", "Fons Mango", "Naoumi Mango", "Barshomi Figs", 
  "Green pepper", "Cucumber", "Molokhia", "White Eggplant ", "Golden Apple", 
  "Carrot", "Tomato", "Cantaloupe", " Green Beans", "Red Globe Grape", 
  "Syrian plum", "Crimson Grape", "Local Lemon", "frying Potato", 
  "Flame Grape", "kiwi", "Capsicum", "Cherry Tomatoes", "Beet", 
  "Cucumber", "Granny Apple", "Gala Apple", "Golden Onion", "Carrot", 
  "Tomato", "Red Onion", "Sugary Peach", "Zucchini", "Dill", "Parsley", 
  "Coriander", "Arugula", "Local Celery ", "Watermelon ( per KG)", 
  "frying Potato", "Chili Pepper", "Beet", "Cucumber", "Apricot", 
  "Dill", "Parsley", "Imported Leek", "Coriander", "Red Radish", 
  "Arugula", "Local Celery ", "Local Hot Pepper", "Cauliflower", 
  "Watermelon ( per KG)", "Flame Grape", "Fons Mango", "Naoumi Mango", 
  "Cantaloupe", "Red Globe Grape", "Syrian Green Apple", "Mushroom (200G) old", 
  "Arugula old", "Parsle old", "Cucumber", "Golden Onion", "Tomato", 
  "Cantaloupe", "Zucchini", "Local Lemon", "Mushroom (200G) old", 
  "Red Radish old", "Parsle old", "Avocado", "African Crimson Grape", 
  "Green pepper", "Cucumber", "Zucchini", "Navel Orange", "Morket Tangerine", 
  "Pineapple ( per KG)", "Watermelon ( per KG)", "kiwi", "African Crimson Grape", 
  "African Pear", "Nectarine Peach", "Golden Apple", "Gala Apple", 
  "Local Banana", "Orange For Juice", "Orange For Juice", "African Crimson Grape", 
  "Strawberry", "coconut", "Dried Figs 400G Old", "Amar Eldain 400G Old", 
  "ِArugula Rokla  Old", "Imported Banana", "Apricot", "Classic Eggplant", 
  "Avocado", "Strawberry", "Green pepper", "Nectarine Peach", "Golden Apple", 
  "Granny Apple", "Gala Apple", "Tomato", "Cantaloupe", "Florida Peach", 
  "Imported Banana", "Morket Tangerine", "Watermelon ( per KG)", 
  "Superior Grape", "kiwi", "Strawberry", "Golden Apple", "Granny Apple", 
  "Gala Apple", "Cantaloupe", "Sugary Peach", "Imported Banana", 
  "Apricot", "Hollywood Plum", "Japanese Plum", "Orange For Juice", 
  "Dessert Peach", "Morket Tangerine", "Watermelon ( per KG)", 
  "frying Potato", "Melon", "Flame Grape", "Superior Grape", "Capsicum", 
  "Cucumber", "White Eggplant ", "Gala Apple", "Golden Onion", 
  "Cooking Potato", "Carrot", "Tomato", "Broccoli", "Sugary Peach", 
  "Imported Banana", "Apricot", "Hollywood Plum", "Baladi Garlic", 
  "Japanese Plum", "Zucchini", "Classic Eggplant", "Orange For Juice", 
  "Dessert Peach", "Morket Tangerine", "Watermelon ( per KG)", 
  "Melon", "Cucumber", "Golden Onion", "Cooking Potato", "Tomato", 
  "Broccoli", "Sugary Peach", "Apricot", "Hollywood Plum", "Baladi Garlic", 
  "Japanese Plum", "Zucchini", "Imported Cherry", "Flame Grape", 
  "Momtaza Owais Mango", "Zebdaya Mango", "Imported Banana", "Local Lemon", 
  "Mushroom (200G) old", "Orange For Juice", "frying Potato", "Red Cabbage old", 
  "Parsle old", "Dill old", "Tomato", "Golden Raisin", "Zucchini", 
  "Mushroom (200G) old", "Arugula old", "Italian Basil Old", "Black Eggplant", 
  "Golden Onion", "coconut", "Golden Raisin", "Raisin", "Green Latoga Lettuce  Old", 
  "ِArugula Rokla  Old", "Classic Eggplant", "Superior Grape", 
  "Capsicum", "Green pepper", "Cucumber", "Carrot", "Tomato", "Sugary Peach", 
  "Dill", "Parsley", "Arugula", "Local Lemon", "Classic Eggplant", 
  "Watermelon ( per KG)", "Hot Pepper", "Avocado", "Capsicum", 
  "Green pepper", "Cucumber", "Golden Onion", "Cooking Potato", 
  "Carrot", "Tomato", "Zucchini", "Mushroom (200G)", "Red Globe Grape", 
  "Local Lemon", "Classic Eggplant", "Sweet Potato", "frying Potato", 
  "Autumn Royal Grape", "Capsicum", "Cucumber", "Golden Onion", 
  "Carrot", "Tomato", "Zucchini", "Mushroom (200G)", "White Cabbage", 
  "Red Spanish plum", "Cucumber", "Cooking Potato", "Tomato", "Red Onion", 
  "Crimson Grape", "Local Lemon", "Classic Eggplant", "Tomato", 
  "Red Onion", "Sweet Potato", "frying Potato", "Barbary Figs", 
  "Green pepper", "Cucumber", "Tomato", "Red Globe Grape", "Owais Mango", 
  "Morket Tangerine", "Watermelon ( per KG)", "Cherry Tomatoes", 
  "Sugary Peach", "Dessert Peach", "frying Potato", "Superior Grape", 
  "Tomato", "Red Onion", "Cantaloupe", "Sugary Peach", "Imported Banana", 
  "Hollywood Plum", "Japanese Plum", "Local Lemon", "Mushroom (200G) old", 
  "Watermelon ( per KG)", "Parsle old", "Dill old", "Hot Pepper", 
  "Avocado", "Green pepper", "Cucumber", "Golden Apple", "Carrot", 
  "Tomato", "Cantaloupe", "Tamr hendi", "sobya 1/4KG", "Hibiscus", 
  "Imported Banana", "Apricot", "Watermelon ( per KG)", "frying Potato", 
  "Ismalilia Fass Mango", "Cucumber", "Golden Onion", "Tomato", 
  "Cantaloupe", "Arugula", "Local Lemon", "frying Potato", "Superior Grape", 
  "Cucumber", "Golden Onion", "Carrot", "Tomato", "Red Onion", 
  "Arugula", "Yasmina Mango", "Local Lemon", "Mushroom (200G) old", 
  "Arugula old", "Red Cabbage old", "Capsicum", "Green pepper", 
  "Grape Leaves", "Orange For Juice", "Morket Tangerine", "frying Potato", 
  "Superior Grape", "Golden Apple", "Tomato", "Deluxe Dried Dates", 
  "Japanese Plum", "Morket Tangerine", "Watermelon ( per KG)", 
  "Sugary Peach", "Classic Eggplant", "Melon", "White Cabbage Old", 
  "Flame Grape", "Superior Grape", "Golden Apple", "Tomato", "Red Onion", 
  "Apricot", "Zucchini", "Iceberg Lettuce", "Flame Grape", "Sokkary Mango", 
  "Zebdaya Mango", "Yasmina Mango", "Sokkary Mango", "Zebdaya Mango", 
  "Yasmina Mango", "Watermelon ( per KG)", "Local Pear", "Flame Grape", 
  "Sokkary Mango", "Banati Grape", "Fons Mango", "Zebdaya Mango", 
  "Crimson Grape", "Imported Peach", "Flame Grape", "Zebdaya Mango", 
  "Naoumi Mango", "Gala Apple", "Cantaloupe", "Cooking Potato", 
  "Local Lemon", "Barhi Dates", "Fons Mango", "Green pepper", "Beet", 
  "Cucumber", "Golden Onion", "Cooking Potato", "Tomato", "Zucchini", 
  "Mint", "Baladi Cabbage", "Kathaa", "Classic Eggplant", "Mint old", 
  "Green pepper", "Cucumber", "Golden Onion", "Cooking Potato", 
  "Carrot", "Local Lemon", "Imported Apricot", "Hot Pepper", "Tomato", 
  "Red Onion", "Cantaloupe", "package of Celery", "Local Cucumber", 
  "Japanese Plum", "Local Lemon", "Classic Eggplant", "Melon", 
  "Superior Grape", "Capsicum", "Cucumber", "Golden Onion", "Tomato", 
  "Iceberg Lettuce", "Local Lemon", "Classic Eggplant", "Imported Cherry", 
  "Flame Grape", "Chili Pepper", "Green pepper", "Cucumber", "Molokhia", 
  "Black Eggplant", "Carrot", "Tomato", "Zucchini", "Mint", "Dill", 
  "Parsley", "Coriander", "Arugula", "Local Eggplant", "Orange For Juice", 
  "Imported Cherry", "Flame Grape", "Barshomi Figs", "Cucumber", 
  "Golden Onion", "Tomato", "Dill", "Parsley", "Coriander", "Arugula", 
  "Orange For Juice", "Local Lemon", "Flame Grape", "Momtaza Owais Mango", 
  "Barshomi Figs", "Chili Pepper", "Cucumber", "Golden Onion", 
  "Tomato", "Arugula", "Classic Eggplant", "Fons Mango", "Beet", 
  "Cucumber", "Cooking Potato", "Tomato", "Dill", "Parsley", "Coriander", 
  "Red Globe Grape", "Baladi Cabbage", "Kathaa", "coconut", "Deluxe Dried Dates", 
  "Barhi Dates", "kiwi", "Golden Apple", "Imported Banana", "Classic Eggplant", 
  "frying Potato", "Flame Grape", "Cucumber", "Black Eggplant", 
  "Golden Onion", "Tomato", "Red Globe Grape", "frying Potato", 
  "Flame Grape", "Sokkary Mango", "Cucumber", "Cooking Potato", 
  "Tomato", "Red Onion", "Okra", "Zucchini", "Parsley", "Coriander", 
  "Mushroom (200G) old", "Watermelon ( per KG)", "Flame Grape", 
  "Cucumber", "Tomato", "Apricot", "Deluxe Dried Dates", "Crimson Grape", 
  "Pomegranate", "Local Pear", "Cucumber", "Carrot", "Arugula", 
  "Owais Mango", "Watermelon ( per KG)", "frying Potato", "Golden Onion", 
  "Cooking Potato", "Tomato", "Local Cucumber", "Zucchini", "Mint", 
  "Parsley", "Arugula", "Local Apple", "Local Lemon", "Zebdaya Mango", 
  "Sadeeka Mango", "Capsicum", "Green pepper", "Sugary Peach", 
  "Local Apple", "Local Lemon", "Flame Grape", "Momtaza Owais Mango", 
  "Sokkary Mango", "Capsicum", "Cucumber", "Golden Onion", "Carrot", 
  "Local Apple", "Classic Eggplant", "frying Potato", "Flame Grape", 
  "Superior Grape", "Sadeeka Mango", "Green pepper", "Cucumber", 
  "Tomato", "Local Apple", "Watermelon ( per KG)", "Local Pear", 
  "Sokkary Mango", "Sweet Potato", "Watermelon ( per KG)", "frying Potato", 
  "Green pepper", "Cucumber", "Golden Onion", "Tomato", "Red Onion", 
  "Baladi Garlic", "Arugula", "Watermelon ( per KG)", "frying Potato", 
  "Barbary Figs", "Barshomi Figs", "Beet", "Tomato", "Mint", "Arugula", 
  "Owais Mango", "Lebanese Apple", "Zebdaya Mango", "kiwi", "Sugary Peach", 
  "Zucchini", "Mushroom (200G)", "Iceberg Lettuce", "Crimson Grape", 
  "Local Lemon", "Sweet Potato", "Watermelon ( per KG)", "Cucumber", 
  "Golden Onion", "Zucchini", "Iceberg Lettuce", "Lebanese Apple", 
  "Barshomi Figs", "Hot Pepper", "Cucumber", "Carrot", "Sugary Peach", 
  " Green Beans", "Mushroom (200G)", "Local Celery ", "frying Potato", 
  "Superior Grape", "Sugary Peach", "Local Cucumber", "Local Pear", 
  "Golden Apple", "Tomato", "Imported Banana", "Dill", "Parsley", 
  "Arugula", "Red Globe Grape", "Owais Mango", "Imported Peach", 
  "Kaka", "Local Pear", "Banati Grape", "Barshomi Figs", "Capsicum", 
  "Cucumber", "Tomato", "Cantaloupe", "Imported Banana", "Dill", 
  "Parsley", "Owais Mango", "Kathaa", "Crimson Grape", "Spanish Plum", 
  "Red Spanish plum", "Imported Peach", "Imported Apricot", "Local Pear", 
  "Banati Grape", "Barbary Figs", "Capsicum", "Green pepper", "Cucumber", 
  "Carrot", "Mint", "Parsley", "Arugula", "Local Celery ", "Syrian plum", 
  "Crimson Grape", "Melon", "Local Pear", "Flame Grape", "Superior Grape", 
  "Sadeeka Mango", "Barshomi Figs", "kiwi", "Capsicum", "Cucumber", 
  "Golden Apple", "Red Onion", "Imported Banana", "Syrian plum", 
  "Ismalilia Fass Mango", "Zebdaya Mango", "Barshomi Figs", "Tomato", 
  "Red Onion", "Cantaloupe", "Imported Banana", "Dill", "Coriander", 
  "Arugula", "Owais Mango", "Crimson Grape", "Melon", "Capsicum", 
  "Cucumber", "Granny Apple", "Tomato", "Red Onion", "Imported Banana", 
  "Dill", "Parsley", "Coriander", "Arugula", "Owais Mango", "Orange For Juice", 
  "Morket Tangerine", "Capsicum", "Tomato", "Cantaloupe", "Florida Peach", 
  "Imported Banana", "Dried Dates", "Watermelon ( per KG)", "Melon", 
  "Tomato", "Sugary Peach", "Local Cucumber", "Watermelon ( per KG)", 
  "Melon", "Superior Grape", "Beet", "Cucumber", "Carrot", "Sugary Peach", 
  "Local Pear", "Barshomi Figs", "Golden Apple", "Cantaloupe")), .Names = c("WHWorkOrderHeaderId", 
  "OtherLangDescription"), class = "data.frame", row.names = c(NA, 
  -1000L))
  prodList &lt;- unique(New$OtherLangDescription) 
  prodListId &lt;- lapply(prodList, function(x) subset(New, OtherLangDescription == x)$WHWorkOrderHeaderId) 
  prodListProduct &lt;- lapply(prodListId, function(x) subset(New, WHWorkOrderHeaderId %in% x)$OtherLangDescription) 
  prodListTable &lt;- mapply(function(Product, ID) table(Product)/length(ID),
                          prodListProduct, prodListId) 
  colnames(prodListTable) &lt;- prodList
  </code></pre>