{"cells":[{"metadata":{"_uuid":"051d70d956493feee0c6d64651c6a088724dca2a","_execution_state":"idle","trusted":true},"cell_type":"code","source":"#limpio la memoria\nrm(list=ls())\ngc()\noptions(scipen=999)","execution_count":null,"outputs":[]},{"metadata":{"trusted":true},"cell_type":"code","source":"install.packages(\"data.table\")\ninstall.packages(\"factoextra\")\ninstall.packages(\"plyr\")\ninstall.packages(\"tidyverse\")\ninstall.packages(\"na.tools\")\n\nlibrary(\"data.table\")\nlibrary(\"factoextra\")\nlibrary(\"plyr\")\nlibrary(\"tidyverse\")\nlibrary(\"na.tools\")","execution_count":null,"outputs":[]},{"metadata":{"trusted":true},"cell_type":"code","source":"censo_test <- fread(\"../input/interbank20/censo_test.csv\")\nse_test <- fread(\"../input/interbank20/se_test.csv\")","execution_count":null,"outputs":[]},{"metadata":{"trusted":true},"cell_type":"code","source":"secenso <- join(censo_test, se_test, by = \"key_value\", type = \"left\", match = \"all\")\n\nsecenso <- subset(secenso, select = c(\"key_value\",\"pob_a\",\"pob_b\",\"pob_c\",\"pob_d\",\"pob_e\",\"dto\"))","execution_count":null,"outputs":[]},{"metadata":{"trusted":true},"cell_type":"code","source":"poba <- secenso %>% \n  group_by(dto) %>% \n  summarise(average = mean(pob_a))\n\npobb <- secenso %>% \n  group_by(dto) %>% \n  summarise(average = mean(pob_b))\n\npobc <- secenso %>% \n  group_by(dto) %>% \n  summarise(average = mean(pob_c))\n\npobd <- secenso %>% \n  group_by(dto) %>% \n  summarise(average = mean(pob_d))\n\npobe <- secenso %>% \n  group_by(dto) %>% \n  summarise(average = mean(pob_e))\n\nclusterdata <- as.data.frame(cbind(poba$dto, poba$average, pobb$average, pobc$average, pobd$average, pobe$average ))\n\ncolnames(clusterdata) <- c(\"dto\",\"pob_a\",\"pob_b\",\"pob_c\",\"pob_d\",\"pob_e\")\n\nclusterdata <- na.omit(clusterdata)","execution_count":null,"outputs":[]},{"metadata":{"trusted":true},"cell_type":"code","source":"print(clusterdata)","execution_count":null,"outputs":[]},{"metadata":{"trusted":true},"cell_type":"code","source":"k2 <- kmeans(clusterdata, centers = 4, nstart = 25)\n\nstr(k2)","execution_count":null,"outputs":[]},{"metadata":{"trusted":true},"cell_type":"code","source":"fviz_cluster(k2, data = clusterdata)","execution_count":null,"outputs":[]},{"metadata":{"trusted":true},"cell_type":"code","source":"print(k2$cluster)","execution_count":null,"outputs":[]}],"metadata":{"kernelspec":{"name":"ir","display_name":"R","language":"R"},"language_info":{"name":"R","codemirror_mode":"r","pygments_lexer":"r","mimetype":"text/x-r-source","file_extension":".r","version":"3.6.3"}},"nbformat":4,"nbformat_minor":4}