library(tree)
manzanas <- c(20)
aguacate <- c(15)
pera <- c(7)

2*manzanas + 2*aguacate + 2*pera
## [1] 84
comida <- c("manzanas", "aguacate", "pera")
cantidad <- c(20, 15, 7)
primeramatriz <- matrix(c(comida, cantidad), nrow = 3, ncol = 2)
primeramatriz
##      [,1]       [,2]
## [1,] "manzanas" "20"
## [2,] "aguacate" "15"
## [3,] "pera"     "7"
colnames(primeramatriz) <- c("COMIDA", "CANTIDAD")
primeramatriz
##      COMIDA     CANTIDAD
## [1,] "manzanas" "20"    
## [2,] "aguacate" "15"    
## [3,] "pera"     "7"