Skip to content

Instantly share code, notes, and snippets.

@douglasabnovato
Last active December 23, 2020 22:04
Show Gist options
  • Select an option

  • Save douglasabnovato/65c117599783a36a393e60c6abb25bf8 to your computer and use it in GitHub Desktop.

Select an option

Save douglasabnovato/65c117599783a36a393e60c6abb25bf8 to your computer and use it in GitHub Desktop.
construir estatísticas em R
# criar uma nova tabela
tabela_combustível <- table(CARROS$Tipodecombustivel_2)
# exibir a tabela com número absoluto
tabela_combustível
# exibir a tabela com número relativo
prop.table(tabela_combustível)
# exibir a tabela com número relativo em percentual
prop.table(tabela_combustível) * 100
# desenhar um gráfico de pizza com o número relativo em percentual
pie(tabela_combustível)
#Inserir as cores do gráfico de pizza e título
pie(tabela_combustível, col = c("red", "blue"), main = "Meu primeiro gráfico no R !")
#um gráfico de pizza para a base de dados Fifa
tabela_fifa <- table(Fifa$Nationality)
pie(tabela_fifa)
#gráfico de barras da tabela_combustível
barplot(tabela_combustível, col = c("#2e6163", "#eddb98"), main = "Meu segundo gráfico no R !")
#gráfico de barras da tabela_combustível com ajustes nos eixos
barplot(tabela_combustível, col = c("#2e6163", "#eddb98"), main = "Meu segundo gráfico no R !", ylim = c(0,20))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment