lista2.R

# lista 2
attach(Bank)

#1
barplot(prop.table(table(Bank$sex)) * 100, col=c('pink', 'blue'))
barplot(prop.table(table(Bank$jobcat)) * 100)
barplot(prop.table(table(Bank$sexrace)) * 100, col=c('pink', 'blue', 'green', 'yellow'))

table(Bank$sex)
table(Bank$jobcat)
table(Bank$sexrace)

#2
boxplot(
  Bank$salnow ~Bank$sex, 
  main='boxplot por sex e salnow', 
  xlab = 'sex', ylab='salnow',
  col=c('blue', 'red')
)

#3
library(gmodels)

CrossTable(
  Bank$sex, 
  Bank$minority, 
  digits=3, 
  expected = FALSE, 
  prop.r = TRUE,
  prop.c = TRUE,
  prop.t = TRUE,
  asresid = FALSE
)

#4
selecao <- Bank [Bank$sex == 'Males' & Bank$jobcat == 'Clerical',]
selecao