Run »
thismatrix <- matrix(c("apple", "banana", "cherry", "orange","grape", "pineapple", "pear", "melon", "fig"), nrow = 3, ncol = 3) thismatrix[, c(1,2)]
[,1] [,2] [1,] "apple" "orange" [2,] "banana" "grape" [3,] "cherry" "pineapple"