Dispongo de un código que contiene una función que imprime un tipo particular de gráficos spineplot.
library("RColorBrewer")
print.perc <- function(k, tbl, ndigits=2, str.pct="%", min=0.1, cex=0.8) {
nx <- nrow(tbl)
off <- 0.02
xat <- c(0, cumsum(prop.table(margin.table(tbl, 1)) + off))
posx <- (xat[1L:nx] + xat[2L:(nx + 1L)] - off)/2
ptbl <- prop.table(tbl,1)
lbl <- ifelse(ptbl[k,] >= min,
paste(format(round(100*ptbl[k,], ndigits), nsmall=ndigits), str.pct, "\n",colnames(tbl), sep=""),
"")
text(posx[k], cumsum(ptbl[k,])-ptbl[k,]/2, lbl, cex=cex)
}
paleta <- brewer.pal(nlevels(y),"RdYlBu")
tbl <- spineplot(y ~ as.factor(x),
col=paleta,
xlab = "x",
ylab ="y",
yaxlabels = "",
main= "Round 1")
for (k in 1:nrow(tbl)) print.perc(k, tbl, ndigits=2)
Me gustaría aprender a asignar este tipo de código a una variable denominada, por ejemplo, "plot_1", de tal manera que ejecutando solo "plot_1" aparezca el gráfico. De esta manera podré utilizar grid.arrange para imprimir multigráficos.
Muchas gracias.