Wie passe ich bestimmte Spalten für einen TableGrob in R an?

Question

Ich bin auf der Suche nach bestimmten Spalten in meinem TableGrob, für dieses reproduzierbare Beispiel habe ich gewählt, um die Anpassung der Anpassung zu sehen.

Sagen Sie bitte die folgenden Datenrahmen haben:

df <- data.frame(Order = c(1:3), Name = c("Adam", "Ben", "Charlie"), Score = c(4, 8, 9)) 

Und Sie wollen gridExtra das Paket verwenden, um die Tabelle zu präsentieren:

dfGrob <- tableGrob(df, rows = NULL) 
grid.arrange(dfGrob) 

Sie die Ausrichtung der Spalten durch Einstellen des Thema einstellen verwendet, um den Grob zu bauen, zum Beispiel:

tt1 <- ttheme_default(core=list(fg_params=list(hjust= 0, x=0.05)), 
        colhead=list(fg_params=list(hjust=0, x=0.1))) 


dfGrob <- tableGrob(df, rows = NULL, theme = tt1) 
grid.arrange(dfGrob) 

Dies passt die Ausrichtung für alle Spalten an. Sagen wir, ich möchte einfach nur die Ordnungskolonne rechtfertigen und die anderen in ihrer zentralen Begründungsposition belassen, wie würde ich das tun?

Ich habe experimentiert mit:

tt1 <- ttheme_default(core=list(fg_params=list(hjust= c(0, 0.5, 0.5), x=c(0.15, 0.5, 0.5))), 
        colhead=list(fg_params=list(hjust=1, x=0.95))) 

dfGrob <- tableGrob(df, rows = NULL, theme = tt1) 
grid.arrange(dfGrob) 

Dies scheint aber nur für Zeile anpassen. Wie passe ich diesen Code an, um ihn stattdessen nach Spalte anzupassen?

Answer 1

es ist ein bisschen fummelig, aber die Parameter für alle Elemente angeben können,

library(grid) 
library(gridExtra) 

df <- data.frame(Order = c(1:3), 
       Name = c("Adam", "Ben", "Charlie"), 
       Score = c(4, 8, 9)) 

hj <- matrix(c(0, 0.5, 1), ncol=3, nrow=nrow(df), byrow=TRUE) 
x <- matrix(c(0, 0.5, 1), ncol=3, nrow=nrow(df), byrow=TRUE) 

tt1 <- ttheme_default(core=list(fg_params=list(hjust = as.vector(hj), 
               x = as.vector(x))), 
         colhead=list(fg_params=list(hjust=1, x=0.95))) 


dfGrob <- tableGrob(df, rows = NULL, theme = tt1) 
grid.newpage() 
grid.draw(dfGrob) 

Die recycling logic Standardwerte spaltenweise, weil die meisten oft eine Tabellenzeilen von abwechselnden Farben hat. Es sollte möglich sein, die horizontalen Ausrichtungsparameter speziell zu machen, um dies ein bisschen benutzerfreundlicher zu machen. Fühlen Sie sich frei, eine PR einzureichen.