R: funzione per ridimensionare graficamente ggplot2, retice o R grafico

Question

In R Trovo sempre fastidioso che i grafici di base R, lattice e ggplot2 funzionino tutti con dimensioni dei punti assolute per la dimensione dei simboli di testo e di trama.

Questo significa che se si aumenta dire che la dimensione della finestra del complotto per ottenere un grafico pagina di riempimento da

windows(width=5,height=5);qplot(Sepal.Length, Petal.Length, data = iris, color = Species, size = Petal.Width, alpha = I(0.7)) 

a

windows(width=10,height=10);qplot(Sepal.Length, Petal.Length, data = iris, color = Species, size = Petal.Width, alpha = I(0.7)) 

che la relativa scala dei simboli di testo e trama cambia relativo il resto. Lo stesso vale per i grafici di base R e lattice.

Nel contesto di alcune funzioni di esportazione di grafici che sto scrivendo mi chiedevo se sarebbe stato possibile scrivere una funzione che avrebbe preso l'output del dispositivo grafico corrente (a cui è possibile accedere usando recordPlot()) e ridimensionare tutto il grafico simboli e testo e larghezza delle righe di una percentuale arbitraria, consentendo così di esportare il grafico a qualsiasi dimensione, mantenendo sempre lo stesso aspetto? Cioè una funzione per ridimensionare proporzionalmente l'intero grafico ad una dimensione più grande o più piccola mantenendo l'aspetto lo stesso?

PS the same would be required to be able to scale the RStudio plot window on high DPI 4K screens and still make it legible (right now RStudio uses pixel doubling but this makes the plot window look really fuzzy, and also causes problems in combination with Cleartype on Windows, causing colour fringing).

Answer 1

per qualche ragione la dimensione del punto è codificato come fontsize, quindi non sembra facile per convertirlo in unità che scala automaticamente. Se si sa che cosa il ridimensionamento che ci si vuole applicare, allora quanto segue potrebbe aiutare

library(ggplot2) 
p <- qplot(Sepal.Length, Petal.Length, data = iris, 
      geom=c("point","line"), 
      color = Species, size = Petal.Width, alpha = I(0.7)) 

library(gtable) 
library(grid) 

g <- ggplotGrob(p) 
pts <- g$grobs[[4]][["children"]][[2]] # geom_point layer 
lns <- g$grobs[[4]][["children"]][[3]] # geom_line layer 
g$grobs[[4]][["children"]][[2]] <- editGrob(pts, size=1.2*pts$size) 
gp <- modifyList(lns$gp, list(lwd=1.2*lns$gp$lwd)) 
g$grobs[[4]][["children"]][[3]] <- editGrob(lns, gp=gp) 

grid.newpage() 
grid.draw(g) 

Answer 2

Questo sembra essere più vicino al tuo obiettivo finale

library(ggplot2) 
p <- qplot(Sepal.Length, Petal.Length, data = iris, 
      geom=c("point","line"), 
      color = Species, size = Petal.Width, alpha = I(0.7)) 
library(grid) 
print(p, vp=viewport(gp=gpar(cex=2, lex=2)))