lhs1=c("A","D","C","B")
lhs2=c("B","A","C","I")
lhs3=c("I","B","A","D")
lhs4=c("A","C","B","D")

df <- data.frame(lhs1,lhs2,lhs3,lhs4)



   lhs1 lhs2 lhs3 lhs4
1    A    B    I    A
2    D    A    B    C
3    C    C    A    B
4    B    I    D    D

category <- c("A","B","C","D","E","I")
sale <- c(12,23,34,35,38,42)
look <- data.frame(category,sale)

category sale
      A   12
      B   23
      C   34
      D   35
      E   38
      I   42

lhs1    lhs2    lhs3    lhs4    lhs1.sale   lhs2.sale   lhs3.sale   lhs4.sale
   A       B       I       A       12         23            42         12
   D       A       B       C       35         12            23         34
   C       C       A       B       34         34            12         23
   B       I       D       D       23         42            35         35