Как убрать пустые поля из окна grid.table?

Question

Если я использую grid.table для небольшой таблицы, окно по умолчанию слишком велико, что приводит к большим пустым полям сверху, снизу, слева и справа.Вот пример:

grid.table(data.frame(a=c(1,2),b=c(3,4))

Когда я сохраняю вышеупомянутое окно как png, а затем копирую его в Word, я получаюпотратить время на обрезку.Я бы предпочел, чтобы в начальном окне было только 1/4-дюймовое заполнение вокруг стола, поэтому мне не нужно ничего обрезать и я могу просто скопировать и вставить.Однако я не могу найти какой-либо способ определения размеров таблицы, который позволил бы мне превентивно определять размер окна (и я не хочу «играть» с размерами окна, потому что это неэффективно, как обрезка, и я получаюнесколько небольших столиков разных размеров).Я также пытался использовать grid.arrange, но единственным параметром, который я мог установить, был «высота», и все, что он делал, это сдвигал таблицу вверх (сжимая верхнее поле), сохраняя окно того же размера.Я возьму любое решение на этом - это не обязательно должен быть png.

Answer 1

Лучшее решение, которое у меня сейчас есть, - это открыть устройство png, вручную установить / оценить высоту и ширину, выполнить сетку и выключить устройство.

png(filename=myFilename, 
    height = (22/myRes)*(nrow(myTable)+1),
    width = (22/myRes)*(ncol(myTable))*4,
    units = "in", res = 72)
grid.table(myTable)
dev.off()

# "22" font height determined by trial and error, worked for 2 to 8 rows but drifting is observed
# "+1" accounts for an additional row for the column labels
# "*4" each column estimated to be four times its height
# "72" dpi

Поскольку высота строк одинакова, мой png был довольно узким на верхнем и нижнем полях. Тем не менее, левые и правые поля варьировались в пределах от 1/4 до 1/2 дюйма, и поскольку число столбцов, с которыми я имел дело, было постоянным, я не знаю, насколько плохо это могло быть с большим / меньшим количеством столбцов.