Skip to content

Instantly share code, notes, and snippets.

@pbiecek

pbiecek/marki1.R

Created April 15, 2015 10:27
Show Gist options
  • Save pbiecek/026b4e2d06338a482da5 to your computer and use it in GitHub Desktop.
Save pbiecek/026b4e2d06338a482da5 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
marki1.R
library(PogromcyDanych)
library(ca)
contingency <- table(auta2012$Kolor, auta2012$Marka)
# tylko kolory i marki, dla których jest przynajmenij 500 ofert sprzedaży
tab <- contingency[rowSums(contingency) > 500, colSums(contingency) > 500]
plot(ca(tab), arrows = c(TRUE, FALSE))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment