# Zadanie 4
library(factoextra)

#tabela kontyngnencji???
model.ca <- ca::ca(housetasks)
model.ca$rowcoord %>%
  as_tibble() %>%
  ggplot(aes(x = Dim1, y = Dim2, label = rownames(housetasks))) +
  geom_text(col = 'red') +
  geom_text(data = as_tibble(model.ca$colcoord), aes(label = colnames(housetasks)), col = 'blue')