#Francisco M. Ulloa 8090851

#9.2 Exercício Análise exploratória simultânea de duas variáveis

#Crie uma função para saída gráfica de análises exploratórias de duas variáveis. Essa saída pode ter por exemplo boxplot, histograma, qq norm e y por x. A função deve permitir a entrada de dois objetos vetores de mesmo tamanho (x e y). Caso os valores de x e y forem desenhados em um mesmo gráfico, defina cores diferentes. As legendas devem ser em português e a saída (return) deve apresentar o sumário 
#das duas variáveis e o coeficiente de correlação.

setwd("C:\\Users\\Francisco\\Documents\\Doctorado\\Disciplina R - BIE5782")

#install.packages("plotrix") 

library()
library(plotrix)
?multhist

grafico.f <- function(var.1, var.2)
  {
  if(class(var.1) != "numeric" | class(var.2) != "numeric")
    {
    stop("'variável.1' e 'variável.2' devem ser vetores numéricos.")
  }
  if(length(var.1) != length(var.2))
    {
    stop("'variável.1' e 'variável.2' devem ter o mesmo número de elementos.")
  }
  
  x11()
  
  par(mfrow=c(2,2))
  require(plotrix)
  multhist(list( var.1,var.2), main="Histograma das variáveis",
           legend.text=TRUE, ylab = "Frequências", 
           xlab = c("Variavel 1","Variavel 2") , col = c(139,53))
 
  boxplot(var.1,var.2,main="Boxplot das variáveis", col = c(139, 53))
              
  axis(side=1,at=1:2,labels=c("Variável 1", "Variável 2")) 
  
  mod <- lm(var.2~var.1)
  
  qqplot(var.1,var.2, main="Gráfico quantil-quantil das variáveis", xlab="Variável 1",ylab="Variável 2",col = c(139,53))
    
  plot(var.2~var.1, main="Variável 2 em função da Variável 1",xlab="Variável 1",ylab="Variável 2", col = c(139,53))
  abline(mod, col="red", lty=6)
  coef.mod <- coef(mod)	
  
  res <- list(summary(var.1),summary(var.2),cor(var.2,var.1))
  names(res) <- c("Variável.1", "Variável.2", "Correlação")
 
  return(res)
}