dependendo do grafico, o tamanho sera' significativamente grande.
a dica e' usar compactPDF() no diretorio no qual foram gravados os
arquivos de imagem:
library(tools)
pdf('/directorioDePreferencia/arquivo.pdf')
plot(rnorm(1e6))
dev.off()
compactPDF('/directorioDePreferencia')
b