добавление логотипа в файл формата grid.table в формате R - PullRequest
Новая
       43

добавление логотипа в файл формата grid.table в формате R

0 голосов
/ 13 ноября 2018

У меня есть вывод таблицы в формате pdf, и я хочу настроить ее так, чтобы она соответствовала корпоративной теме.Тем не менее, я новичок в этой области в R и до сих пор испытываю трудности с добавлением логотипов.

Мой исходный набор данных состоит из более 600 строк данных и является чувствительным, поэтому я использовалобразец набора данных для демонстрации.Пока что у меня есть следующий код, использующий пакеты grid и gridExtra: 

library(grid)
library(gridExtra)

Data <- data.frame(Staff = c("Rod","Barry","Cheiny"),
               M1 = c(50,40,55),
               M2 = c(60,50,55),
               M3 = c(55,50,45))


maxrow <- c(35);
npages <- ceiling(nrow(Data)/maxrow);
pdf("Data.pdf", height = 11, width = 10)
idx <- seq(1, maxrow)
grid.table(Data, rows = NULL, theme = ttheme_minimal())
grid.text("data",gp = gpar(fontsize = 12,fontface = "bold",alpha = 0.5), 
           vjust = -40,
           hjust = -0.5)
for (i in 2:npages){
  grid.newpage();
  if(i*maxrow <= nrow(Data)) {
    idx <- seq(1+((i-1)*maxrow), i*maxrow)
  }else{
    idx <- seq(1+((i-1)*maxrow), nrow(Data))
  }
  grid.table(Data, rows =NULL, theme = ttheme_minimal())
}
dev.off()

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

Кто-нибудь знает, как добавить логотип, который будет повторяться на всех страницах?

1 Ответ

0 голосов
/ 14 ноября 2018

С помощью grid.draw () легко добавлять элементы, но дизайн остается за вами 

library(grid)
library(gridExtra)

Data <- data.frame(Staff = c("Rod","Barry","Cheiny"),
                   M1 = c(50,40,55),
                   M2 = c(60,50,55),
                   M3 = c(55,50,45))

library(png)
img <- readPNG(system.file("img", "Rlogo.png", package="png"))

footer <- grobTree(rectGrob(y=0,vjust=0,gp=gpar(fill="grey97",col=NA), height=unit(1,"in")),
                   textGrob(y=unit(0.5,"in"), expression(Corporate^TM~line~(c))),
                   rasterGrob(img, x=1, hjust=1,y=unit(0.5,"in"),height=unit(1,"in")-unit(2,"mm")))

maxrow <- c(35);
npages <- ceiling(nrow(Data)/maxrow);
pdf("Data.pdf", height = 11, width = 10)
idx <- seq(1, maxrow)
grid.table(Data, rows = NULL, theme = ttheme_minimal())
grid.draw(footer)
grid.text("data",gp = gpar(fontsize = 12,fontface = "bold",alpha = 0.5), 
          vjust = -40,
          hjust = -0.5)
for (i in 2:npages){
  grid.newpage();
  if(i*maxrow <= nrow(Data)) {
    idx <- seq(1+((i-1)*maxrow), i*maxrow)
  }else{
    idx <- seq(1+((i-1)*maxrow), nrow(Data))
  }
  grid.table(Data, rows =NULL, theme = ttheme_minimal())
  grid.draw(footer)
}
dev.off()
...