Дайте имена каждому из двух столбцов в R

Question

Это моя матрица

Я хочу включить имена для каждых двух столбцов. Таким образом, первые два столбца получат имя «First Model» без стирания имен ниже: Estimate и Pr(>|t|). Третий и четвертый столбцы получат имя Second Model, а пятый и шестой столбцы получат имена Third Model.

Имена Estimate и Pr(>|t|) не будут удалены.

structure(c(0.905134206768795, -1.04453988920406, 0.00745423330005316, 
0.0307781586311053, 3.78116832100487, -6.7629360140366, 4.54368682196926e-07, 
1.01567317751984e-10, -0.330723513150022, 0.906394341970339, 
0.38670651617051, 0.141882775043945), .Dim = c(2L, 6L), .Dimnames = list(
    c("(Intercept)", "complete.ini$idiff_3m.grb[-c(502:504)]"
    ), c("Estimate", "Pr(>|t|)", "Estimate", "Pr(>|t|)", "Estimate", 
    "Pr(>|t|)")))

Как я могу это сделать?

Answer 1

Может быть, это:

 d <- structure(c(0.905134206768795, -1.04453988920406, 0.00745423330005316, 
                     0.0307781586311053, 3.78116832100487, -6.7629360140366, 4.54368682196926e-07, 
                     1.01567317751984e-10, -0.330723513150022, 0.906394341970339, 
                     0.38670651617051, 0.141882775043945), .Dim = c(2L, 6L), .Dimnames = list(
                       c("(Intercept)", "complete.ini$idiff_3m.grb[-c(502:504)]"
                       ), c("Estimate", "Pr(>|t|)", "Estimate", "Pr(>|t|)", "Estimate", 
                            "Pr(>|t|)")))
 names(dimnames(d)) <- c("","  First Model           Second Model          Third Model")
 d

Результат:

                                           First Model           Second Model           Third Model
                                           Estimate    Pr(>|t|)  Estimate     Pr(>|t|)   Estimate  Pr(>|t|)
  (Intercept)                             0.9051342 0.007454233  3.781168 4.543687e-07 -0.3307235 0.3867065
  complete.ini$idiff_3m.grb[-c(502:504)] -1.0445399 0.030778159 -6.762936 1.015673e-10  0.9063943 0.1418828

Вам нужно только добавить пробелы, чтобы метки помещались в names(....

Answer 2

как это?

k<-structure(c(0.905134206768795, -1.04453988920406, 0.00745423330005316, 
0.0307781586311053, 3.78116832100487, -6.7629360140366, 4.54368682196926e-07, 
1.01567317751984e-10, -0.330723513150022, 0.906394341970339, 
0.38670651617051, 0.141882775043945), .Dim = c(2L, 6L), .Dimnames = list(
c("(Intercept)", "complete.ini$idiff_3m.grb[-c(502:504)]"
), c("Estimate", "Pr(>|t|)", "Estimate", "Pr(>|t|)", "Estimate", 
"Pr(>|t|)")))

colnames(k)<-c(   
paste0("Model1.",colnames(k)[1]),paste0("Model1.",colnames(k)[2]), 
paste0("Model2.",colnames(k)[1]),paste0("Model2.",colnames(k)[2]),
paste0("Model3.",colnames(k)[1]),paste0("Model3.",colnames(k)[2])
)

k
                                           Model1.Estimate Model1.Pr(>|t|) Model2.Estimate Model2.Pr(>|t|) Model3.Estimate Model3.Pr(>|t|)
(Intercept)                                  0.9051342     0.007454233        3.781168    4.543687e-07      -0.3307235       0.3867065
complete.ini$idiff_3m.grb[-c(502:504)]      -1.0445399     0.030778159       -6.762936    1.015673e-10       0.9063943       0.1418828