Cézar é possível fazer isso usando a library(rimage) img <- read.jpeg('figura.JPG') Felipe E. Barletta Mendes (41)9189-5198 (41)3025-2150 (41)3328-7216 http://www.leg.ufpr.br/doku.php/pessoais:felipe

Hello, Rolou na lista r-help algo bem similar a respeito de inclusão de imagens em gráfico. Procure a thread por: -------------------------------------------------------------------- Re: [R] Add png image outside plot borders -------------------------------------------------------------------- no final de tudo, o camarada chamado Joshua Wiley colocou uma função para fazer isso você pode adaptar à sua necessidade. Em todo caso, procure na net pela discussão! segue *** CÓPIA *** da funçao: ############################## require(png) require(grid) ## select the PNG file z<- readPNG(file.choose()) ## Function to draw your statement copyright.draw<- function(label, image, x, y, size, ...) { lab<- textGrob(label = label, x = unit(x, "npc"), y = unit(y, "npc"), just = c("left", "centre"), gp = gpar(...)) logo<- rasterGrob(image = image, x = unit(x, "npc") + unit(1, "grobwidth", lab), y = unit(y, "npc"), width = unit(size, "cm"), height = unit(size, "cm"), just = c("left", "centre"), gp = gpar(...)) grid.draw(lab) grid.draw(logo) } plot(1:10, 1:10) copyright.draw("Copyright statement ", z, .02, .04, .5, fontsize = 8) Em 20/09/2011 15:14, Cézar Freitas escreveu:

Olá. Antes de já ir perguntando sem ter pesquisado, é possível buscar nas mensagens anteriores dessa lista sobre minha dúvida? A mesma herdou os tópicos da antiga lista?

Não achei no Google, provavelmente porque estou usando as palavars chave erradas.

Tento introduzir um logotipo (em jpg ou png, por exemplo) no canto de um gráfico (plot usual) para depois exportá-lo para pdf. Sei que já fiz isso em xls, mas não lembro de já ter feito num plot ativo para posterior exportação.

Obrigado, Cézar Freitas

_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.