{"action":"created","issue":{"url":"https://api.github.com/repos/kassambara/factoextra/issues/9","repository_url":"https://api.github.com/repos/kassambara/factoextra","labels_url":"https://api.github.com/repos/kassambara/factoextra/issues/9/labels{/name}","comments_url":"https://api.github.com/repos/kassambara/factoextra/issues/9/comments","events_url":"https://api.github.com/repos/kassambara/factoextra/issues/9/events","html_url":"https://github.com/kassambara/factoextra/issues/9","id":147148328,"number":9,"title":"Issue with ellipses in MFA","user":{"login":"kassambara","id":3313355,"avatar_url":"https://avatars.githubusercontent.com/u/3313355?v=3","gravatar_id":"","url":"https://api.github.com/users/kassambara","html_url":"https://github.com/kassambara","followers_url":"https://api.github.com/users/kassambara/followers","following_url":"https://api.github.com/users/kassambara/following{/other_user}","gists_url":"https://api.github.com/users/kassambara/gists{/gist_id}","starred_url":"https://api.github.com/users/kassambara/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/kassambara/subscriptions","organizations_url":"https://api.github.com/users/kassambara/orgs","repos_url":"https://api.github.com/users/kassambara/repos","events_url":"https://api.github.com/users/kassambara/events{/privacy}","received_events_url":"https://api.github.com/users/kassambara/received_events","type":"User","site_admin":false},"labels":[],"state":"open","locked":false,"assignee":null,"milestone":null,"comments":8,"created_at":"2016-04-09T17:59:40Z","updated_at":"2016-04-10T11:00:26Z","closed_at":null,"body":"Hi @inventionate,\r\n\r\nI received by e-mail the following message:  \r\n ```\r\nDear Alboukadel,\r\nI am currently using factoextra to plot results I have obtained with factominer (using MFA).\r\nThe ellipses drawn by factoextra using the function fviz_mfa_ind() are drawn around the individuals, and not the barycenter/centroid as in factominer.\r\nIs it possible to draw ellipses around barycenter/centroids in factoextra?\r\nThank you in advance,\r\nAnne-Marie\r\n```\r\nDo you have any solution?\r\n\r\nBest,\r\nAK\r\n"},"comment":{"url":"https://api.github.com/repos/kassambara/factoextra/issues/comments/207960839","html_url":"https://github.com/kassambara/factoextra/issues/9#issuecomment-207960839","issue_url":"https://api.github.com/repos/kassambara/factoextra/issues/9","id":207960839,"user":{"login":"inventionate","id":872787,"avatar_url":"https://avatars.githubusercontent.com/u/872787?v=3","gravatar_id":"","url":"https://api.github.com/users/inventionate","html_url":"https://github.com/inventionate","followers_url":"https://api.github.com/users/inventionate/followers","following_url":"https://api.github.com/users/inventionate/following{/other_user}","gists_url":"https://api.github.com/users/inventionate/gists{/gist_id}","starred_url":"https://api.github.com/users/inventionate/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/inventionate/subscriptions","organizations_url":"https://api.github.com/users/inventionate/orgs","repos_url":"https://api.github.com/users/inventionate/repos","events_url":"https://api.github.com/users/inventionate/events{/privacy}","received_events_url":"https://api.github.com/users/inventionate/received_events","type":"User","site_admin":false},"created_at":"2016-04-10T11:00:26Z","updated_at":"2016-04-10T11:00:26Z","body":"Great! Thank you for your MFA solution.\n\nBest,\nFabian\n\n\n> Am 10.04.2016 um 12:24 schrieb Alboukadel KASSAMBARA <notifications@github.com>:\n> \n> It works!!\n> \n> As Anne-Marie asked about MFA, I derived the following simplified script from the file you sent to me:\n> \n> # Compute mfa with FactoMineR\n> library(\"FactoMineR\")\n> data(poison)\n> res.mfa <- MFA(poison, group=c(2,2,5,6), type=c(\"s\",\"n\",\"n\",\"n\"),\n>                name.group=c(\"desc\",\"desc2\",\"symptom\",\"eat\"),\n>                num.group.sup=1:2, graph=FALSE)\n> \n> # 1. Confidence ellipse with Factominer\n> FactoMineR::plotellipses(res.mfa, keepvar = \"Vomiting\")\n> \n> # 2. Concentration ellipse with factoextra\n> library(\"factoextra\")\n> grp <- as.factor(poison[, \"Vomiting\"])\n> fviz_mfa_ind(res.mfa, label=\"none\", habillage=grp,\n>               addEllipses=TRUE)\n> \n> # 3. Confidence ellipse with factoextra\n> grp <- as.factor(poison[, \"Vomiting\"])\n> axes <- c(1, 2)\n> ind_coord <- cbind.data.frame(grp, res.mfa$ind$coord[, axes])\n> ellipse_coord <- FactoMineR::coord.ellipse(ind_coord, bary = TRUE, axes = axes )$res\n> ellipse_center <- stats::aggregate(ind_coord[, 2:3], by = list(grp = grp), mean)\n> \n> fviz_mfa_ind(res.mfa, label = \"none\", habillage = grp)+\n>   geom_path(data = ellipse_coord, aes(Dim.1, Dim.2, colour = grp), \n>             show.legend = FALSE) # add confidence ellipse\n> The output is as follow:\n> \n> Confidence ellipse with Factominer\n> \n> \n> Concentration ellipse with factoextra\n> \n> \n> Confidence ellipse with factoextra\n> \n> \n> I'll share this link with her so that she can check if it answers to her question.\n> \n> Best Regards,\n> Albou\n> \n> —\n> You are receiving this because you were mentioned.\n> Reply to this email directly or view it on GitHub\n> \n"}}