Skip to content

Instantly share code, notes, and snippets.

@kohske

kohske/nihongobiplot.r

Created April 5, 2017 09:09
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save kohske/774dc499a4ab24d4b79cba44e8987e06 to your computer and use it in GitHub Desktop.
Save kohske/774dc499a4ab24d4b79cba44e8987e06 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
nihongobiplot.r
head(housetasks)
rownames(housetasks) = paste("日本語", 1:nrow(housetasks))
res.ca <- CA(housetasks, graph=FALSE)
r = fviz_ca_biplot(res.ca)
for (i in seq_along(r$layers)) {
if (inherits(r$layers[[i]]$geom, "GeomText")) {
r$layers[[i]]$aes_params = c(r$layers[[i]]$aes_params, list(family = "Meiryo"))
}
}
r
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment