require(UsingR) x=rnorm(999) y=x+rnorm(999) simple.scatterplot(x,y) André Oliveira Souza Em Domingo, 15 de Dezembro de 2013 15:50, Andre Oliveira <andreolsouza@yahoo.com.br> escreveu:   André Oliveira Souza Em Domingo, 15 de Dezembro de 2013 11:35, Rodrigo Coster <rcoster@gmail.com> escreveu: Acho que tu nao entrou no link que eu falei... Enfim, segue o texto do link (http://www.r-bloggers.com/example-10-3-enhanced-scatterplot-with-marginal-hi...) scatterhist <- function(x, y, xlab = "", ylab = "", plottitle="",                          xsize=1, cleanup=TRUE,...){   # save the old graphics settings-- they may be needed   def.par <- par(no.readonly = TRUE)      zones <- matrix(c(1,1,1, 0,5,0, 2,6,4, 0,3,0), ncol = 3, byrow = TRUE)   layout(zones, widths=c(0.3,4,1), heights = c(1,3,10,.75))      # tuning to plot histograms nicely   xhist <- hist(x, plot = FALSE)   yhist <- hist(y, plot = FALSE)   top <- max(c(xhist$counts, yhist$counts))      # for all three titles:    #   drop the axis titles and omit boxes, set up margins   par(xaxt="n", yaxt="n",bty="n",  mar = c(.3,2,.3,0) +.05)   # fig 1 from the layout   plot(x=1,y=1,type="n",ylim=c(-1,1), xlim=c(-1,1))   text(0,0,paste(plottitle), cex=2)   # fig 2   plot(x=1,y=1,type="n",ylim=c(-1,1), xlim=c(-1,1))   text(0,0,paste(ylab), cex=1.5, srt=90)   # fig 3   plot(x=1,y=1,type="n",ylim=c(-1,1), xlim=c(-1,1))   text(0,0,paste(xlab), cex=1.5)      # fig 4, the first histogram, needs different margins   # no margin on the left   par(mar = c(2,0,1,1))   barplot(yhist$counts, axes = FALSE, xlim = c(0, top),           space = 0, horiz = TRUE)   # fig 5, other histogram needs no margin on the bottom   par(mar = c(0,2,1,1))   barplot(xhist$counts, axes = FALSE, ylim = c(0, top), space = 0)   # fig 6, finally, the scatterplot-- needs regular axes, different margins   par(mar = c(2,2,.5,.5), xaxt="s", yaxt="s", bty="n")   # this color allows traparency & overplotting-- useful if a lot of points   plot(x, y , pch=19, col="#00000022", cex=xsize, ...)      # reset the graphics, if desired    if(cleanup) {par(def.par)} } scatterhist(rnorm(1000), rchisq(1000, 7)) 2013/12/15 Andre Oliveira <andreolsouza@yahoo.com.br> Já havia buscado em meus arquivos pessoais e na internet com construir este gráfico com uma rodada só de camandos. Algo deste tipo:

library("Simple") data(emissions) attach(emissions) simple.scatterplot(perCapita,CO2) title("GDP/capita vs. CO2 emissions 1999")

Só que não deu certo aqui, parece que esta biblioteca saiu dos repositórios.

Em Domingo, 15 de Dezembro de 2013 11:08, Rodrigo Coster <rcoster@gmail.com> escreveu:

Uma simples busca no google resulta em diversas soluções:

https://www.google.com/search?q=scatter+plot+with+histogram+r

O 2o link é mais amigável para quem não tem 'intimidade' com o ggplot2...

2013/12/15 Andre Oliveira <andreolsouza@yahoo.com.br>

Bom dia,

...

alguem da lsta sabe qual função do R faz este gráfico. https://www.dropbox.com/s/iyfef9sy4tfv4r4/teste.png

 obrigado

_______________________________________________ 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.