Ich habe vor kurzem begonnen, diegrid.table Funktion von dergridExtra Paket, um Tabellendaten in PNG-Bilddateien für die Verwendung im Web umzuwandeln. Ich habe mich insofern darüber gefreut, als es standardmäßig eine sehr gut aussehende Ausgabe erzeugt, ähnlich einerggplot2 für Tische. Wie die Person, diefragte Bei dieser Frage würde ich gerne die Möglichkeit sehen, die Rechtfertigung für einzelne Spalten anzugeben, aber das wäre das i-Tüpfelchen auf dem, was schon etwas mehr ist.

Meine Frage ist, ob es möglich ist, Text um a hinzuzufügengrid.table damit ich geplotteten Tabellen einen Titel und eine Fußnote geben kann. Es scheint mir, dass dies machbar sein sollte, aber ich weiß nicht genug über Gittergrafiken, um herauszufinden, wie man Grobs zum Tabellengrob hinzufügt. Zum Beispiel dieser Code:

require(gridExtra)

mydf <- data.frame(Item = c('Item 1','Item 2','Item 3'), 
　　　　　　　　　　　　　　　　　　　　Value = c(10,15,20), check.names = FALSE)
grid.table(mydf,
           gpar.coretext=gpar(fontsize = 16),
           gpar.coltext = gpar(fontsize = 16),
           gpar.rowtext = gpar(fontsize = 16),
           gpar.corefill = gpar(fill = "blue", alpha = 0.5, col = NA),
           h.even.alpha = 0.5,
           equal.width = FALSE,
           show.rownames = FALSE,
           show.vlines = TRUE,
           padding.h = unit(15, "mm"),
           padding.v = unit(8, "mm")
           )

generiert diesen Plot:

wenn ich wirklich in der Lage sein möchte, etwas wie das Folgende im Code zu tun, anstatt das Bild mit einer anderen Anwendung zu bearbeiten: