grid.table e tableGrob in gridExtra package

Question

Sto provando a formattare la tabella utilizzando il pacchetto gridExtra. Il pacchetto gridExtra che ho è 2.0 e la versione R è 3.2.1

Stavo passando qui le risposte su StackOverflow sulla formattazione e le opzioni suggerite sembrano funzionare solo con la versione precedente del pacchetto. Ad esempio,

grid.table(data, h.even.alpha = 1, h.odd.alpha = 0, 
      v.even.alpha = 1, v.odd.alpha = 1, 
      gpar.corefill, gpar.coretext) 

Tutte queste opzioni sono indicate come "argomenti non utilizzati" nell'ultima versione.

Cercando ulteriormente, ho scoperto che nel nuovo pacchetto gridExtra, la formattazione è definito probabilmente tema all'interno, ad esempio -

tt <- ttheme_default(core=list(fg_params=list(hjust=1, x=0.95)), 
        colhead=list(fg_params=list(col="brown")) 

e poi facendo

grid.table(data, theme=tt). 

Quello che non ho potuto trovare è stato come queste opzioni viene definito il tema interno e ora è possibile eseguire tutte le formattazioni possibili nella versione precedente.

In particolare, sto cercando di fare -

1. giustificazione a sinistra di colonne
2. virgole per big.marks (10000 come 10.000)
3. diversi colori delle righe per i numeri di riga pari e dispari
4. colonna colore intestazione
5. non mostrare nomi di riga (qualcosa di simile a row.names = FALSE)

Answer 1

This la risposta recente mostra come modificare i parametri e Baptiste fornisce un collegamento ad ulteriori esempi. Come si nota nella domanda, per modificare la formattazione si utilizza l'argomento theme; è possibile vedere quali parametri di alterare, cercando in uscita ttheme_default()

# New theme paramters 
myt <- ttheme_default(
     # Use hjust and x to left justify the text 
     # Alternate the row fill colours 
       core = list(fg_params=list(hjust = 1, x=1), 
          bg_params=list(fill=c("yellow", "pink"))), 

     # Change column header to white text and red background 
       colhead = list(fg_params=list(col="white"), 
           bg_params=list(fill="red")) 
) 

# Example data - create some large numbers 
dat <- mtcars[1:5,1:5] 
dat$mpg <- dat$mpg*1000 

grid.newpage() 
grid.draw(tableGrob(format(dat, big.mark=","), theme=myt, rows=NULL)) 

La big.mark argomento del format viene utilizzata per aggiungere la virgola come separatore, e rownames state rimosse utilizzando l'argomento rows=NULL.