Please see the reprex FAQ--the point is to provide a complete script with enough data to illustrate the problem in a form that can be cut and pasted by the reader so a solution can be proposed and illustrated.
Here's an example
# library(dplyr) # not needed here, but use for any that are
my_matrix <- structure(c(
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA
), .Dim = c(6L, 14L), .Dimnames = list(
c("P18", "P19", "P20", "P21", "P22", "P23"), c(
"P35_cor",
"P35_p", "P36_cor", "P36_p", "P37_cor", "P37_p", "P38_cor",
"P38_p", "P39_cor", "P39_p", "P40_cor", "P40_p", "P41_cor",
"P41_p"
)
))
# odd and even columns
# get indices of columns
get_index <- function(x,y) seq(from = y, to = dim(x)[2],by = 2)
my_matrix[,get_index(my_matrix,1)]
#> P35_cor P36_cor P37_cor P38_cor P39_cor P40_cor P41_cor
#> P18 NA NA NA NA NA NA NA
#> P19 NA NA NA NA NA NA NA
#> P20 NA NA NA NA NA NA NA
#> P21 NA NA NA NA NA NA NA
#> P22 NA NA NA NA NA NA NA
#> P23 NA NA NA NA NA NA NA
my_matrix[,get_index(my_matrix,2)]
#> P35_p P36_p P37_p P38_p P39_p P40_p P41_p
#> P18 NA NA NA NA NA NA NA
#> P19 NA NA NA NA NA NA NA
#> P20 NA NA NA NA NA NA NA
#> P21 NA NA NA NA NA NA NA
#> P22 NA NA NA NA NA NA NA
#> P23 NA NA NA NA NA NA NA