R - Análise Gráfica com Plots

plots.R

#Parábola Quadrática
x = -10:10
plot( x = x, y = x**2, main = "Parábola")

plot( x = x, y = x**2, main = "Parábola", type='l')
plot( x = x, y = x**2, main = "Parábola", type='p')
plot( x = x, y = x**2, main = "Parábola", type='b')
plot( x = x, y = x**2, main = "Parábola", type='o')
plot( x = x, y = x**2, main = "Parábola", type='h') #histograma
plot( x = x, y = x**2, main = "Parábola", type='s')
plot( x = x, y = x**2, main = "Parábola", type='S')

#Análise de Tendências
head(cars)
summary(cars)
plot(x= cars$speed, y = cars$dist)

#----------------------------------------------------------

#Regressao Linear
install.packages("dplyr")
library(dplyr)
lm(cars, formula = cars$dist~cars$speed) %>% View()

y.tend = lm(data = cars, formula = cars$dist~cars$speed)$coefficients
x = cars$speed

#Criar linha diagonal
lines(x=x,y=cbind(1,x) %*% y.tend, type='l',col='blue')

#----------------------------------------------------------

#Histograma (Frequencia, distribuicao)
xablau = -10:10
hist(xablau^2)

#----------------------------------------------------------

#Plot Medicao Ozonio

medicaoOzonioMaio = 
  airquality %>% 
  filter(Month == 5) %>% 
  select(Ozone) %>%
  arrange(Ozone)

summary(medicaoOzonioMaio)

plot(x= medicaoOzonioMaio$Ozone)

#Mediana
lines(x=c(0,31), y= c(18,18), col = 'red')
#c(0,31) - quantidade de dias no mes
#c(18,18) - mediana

#Min
lines(x=c(0,31), y= c(1,1), col = 'blue')

#Boxplot
f = airquality$Ozone ~ airquality$Month
boxplot(f,data=airquality)

#Multiplos Graficos
par(mfrow=c(1,2))
plot(airquality$Wind, airquality$Ozone)
plot(airquality$Solar.R, airquality$Ozone)