Блог

Я хочу многострочные имена пользовательских моделей screenreg . Я пытался n

 lfit1 <- lm(Sepal.Length ~ Petal.Width, iris)
lfit2 <- lm(Sepal.Width ~ Petal.Width, iris)

library(texreg)
screenreg(mget(ls(pattern="lfit")),
          custom.model.names=c("Length of sepalnin cm", 
                               "Width of sepalnin cm"))
  

но это не удается:

 ========================================================
             Length of sepal
in cm  Width of sepal
in cm
--------------------------------------------------------
(Intercept)    4.78 ***               3.31 ***          
              (0.07)                 (0.06)             
Petal.Width    0.89 ***              -0.21 ***          
              (0.05)                 (0.04)             
--------------------------------------------------------
R^2            0.67                   0.13              
Adj. R^2       0.67                   0.13              
Num. obs.    150                    150                 
RMSE           0.48                   0.41              
========================================================
  *** p < 0.001, ** p < 0.01, * p < 0.05
  

Я хочу, чтобы заголовок вывода выглядел так:

 ========================================================
            Length of sepal         Width of sepal
            in cm                   in cm
--------------------------------------------------------
  

custom.model.names к сожалению, не принимает матрицы.

Соответственно, я хотел бы добиться того же, texreg где я пытался

 texreg(mget(ls(pattern="lfit")),
       custom.model.names=c("Length of sepal\\in cm", 
                            "Width of sepal\\in cm"), 
       dcolumn=TRUE)
  

но это не удается полностью, поскольку оно выдает

 amp; multicolumn{1}{c}{Length of sepalin cm} amp; multicolumn{1}{c}{Width of sepalin cm} 
  

вместо необходимого

  amp; multicolumn{1}{c}{Length of sepal} amp; multicolumn{1}{c}{Length of petal} 
 amp; multicolumn{1}{c}{in cm} amp; multicolumn{1}{c}{in cm} 
  

Желаемый texreg результат: