William Costa Rodrigues - Site Developer

Palavras-chaves: R, Estatística, Gráficos |
Cadastro: 28/09/2025 20:53:20 | Atualização: 28/09/2025 20:56:19

#Para usar o pacote plot não há necessidade de carregar a biblioteca (Library), pois esta já é padrão do R, mas para usar ggplot2 há a necessidade de carrega-la atavés do comando library(ggthemes). Caso não tenha ela instalada processa da seguinte forma: insira o comando install.packages("ggthemes").
#Biblioteca ou pacotes
#Serão utilizados o seguintes pacotes plot, ggplot2 e o ggthemes. No script será careegados os pacotes individualmente, por exemplo, library("ggplot2"), library("ggthemes"),library("vegan").
## Cria os conjuntos de dados x e y
##Conjunto de dados X
cx=c(12,15,45,32,36,32,21,21,14,52)
##Conjunto de dados Y
cy=c(5400,2500,3600,900,1500,1100,1400,1800,1800,1100)
##Converte o conjunto de dados cx e xy em uma data frame (matriz)
Data=data.frame(cx,cy)
##Plota o gráfico. Detalhe apara a função sort(), que
plot(sort(cx),sort(cy), xlab="Idade", ylab="Renda", type="o", main="Idade vs renda",sub="Ano de 2016")


##Carrega o pacote ggplot2 e ggthemes
library(ggplot2)
library(ggthemes)

ggplot(Data, aes(x=cx,y=cy)) + geom_point() + 
  stat_smooth(method = 'lm', aes(colour = 'Linear'), se = FALSE) +
  stat_smooth(method = 'lm', formula = y ~ poly(x,2), aes(colour = 'Polynomial'), se= FALSE) +  
  stat_smooth(method = 'nls', formula = y ~ a * log(x) +b, aes(colour = 'Logarithmic'), se = FALSE, start = list(a=1,b=1)) +
  stat_smooth(method = 'nls', formula = y ~ a*exp(b *x), aes(colour = 'Exponential'), se = FALSE,start = list(a=1,b=1)) +
  theme_base() +  scale_colour_brewer(name = 'Trendline', palette = 'Set2') +  
  stat_smooth(method="loess",se=FALSE)