R Pregunta de Control Visual

Tengo un visual R que muestra este

aquí está el guión R que estoy usando

#dataset <- data.frame(TheDate)
#dataset <- unique(dataset)
require(RODBC)

z <- nrow(dataset)
x <- dataset[z,1]
y <- dataset[1,1]

require(RODBC)
library(gridExtra)
library(dplyr)
library(ggplot2)

ch <- odbcDriverConnect(".....)

resultset = sqlQuery(ch, paste0("SELECT * FROM [dbo].[fnCUSTCLUBPLAN] ('",y,"','",x,"')"))
colnames(resultset)
colnames(resultset) <- sapply(colnames(resultset) , function(x) paste(strwrap(x, width = 15), collapse="\n"))
qplot(x=1:5, y=1:5, geom = "blank") + theme(line = element_blank(), text = element_blank()) + 
annotation_custom(grob=tableGrob(resultset, rows=NULL))

close(ch)

Mis preguntas son:

1. ¿Puedo controlar el tamaño del objeto visual y cambiar el tamaño de toda el área sin cambiar el tamaño de la mesa?

2. ¿Puedo hacer un mejor formato (como fondos de encabezado, etc.)?