Comportamento

Analise dos Dados sobre Comportamento

library(ggplot2)
ggplot(data = dados) + geom_bar(mapping = aes(x = Sexo.1))

library(ggplot2)
ggplot(data = dados) +
  geom_histogram(mapping = aes(x = Idade)) + xlab('Idade') +
  ylab('Quantidade') +
  ggtitle('Idade')

## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

library(ggplot2)
ggplot(data = dados) + geom_bar(mapping = aes(x = Juros))

library(ggplot2)
ggplot(dados, aes(x=K))+
  geom_histogram(color="darkblue", fill="lightblue") + xlab('K') +
  ylab('Quantidade') +
  ggtitle('')

## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

library(ggplot2)
ggplot(data = dados) +
  geom_histogram(mapping = aes(x = Tempo)) + xlab('') +
  ylab('Quantidade') +
  ggtitle('Tempo para 1K')

## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

library(ggplot2)
ggplot(dados, aes(x=Tempo, y=K)) + 
  geom_point(aes(col=K, size=Tempo))