I’ve been slowly prodding the [metricsgraphics package](https:\/\/github.com\/hrbrmstr\/metricsgraphics\/) towards a 1.0.0 release, but there are some rough edges that still need sorting out. One of them is the ability to handle passing in variables for the `x` & `y` accessor values (you _can_ pass in bare and quoted strings). This can now be achieved (in the `dev01` branch) via `mjs_plot_` and in `mjs_plot` proper in the github main branch thanks to a [PR](https:\/\/github.com\/hrbrmstr\/metricsgraphics\/pull\/31) by [Jonathan Owen](https:\/\/github.com\/jrowen). If everything stays stable with the PR, I’ll just fold the code into `mjs_plot` for the `0.9.0` CRAN release.<\/p>\n
One other pending feature is the ability to turn _basic_ (single `geom_`) `ggplot` objects into `metricsgraphics` plots. Sometimes it’s just easier\/nicer to “think” in `ggplot` and it may be the case that one might have coded a quick histogram\/scatter\/line plot in `ggplot` and want an equally quick interactive version. This can also now be achieved (again, in beta) via `as_mjsplot`. While the previous addition is fairly self-explanatory, this new one needs a few examples. Please note that the package installation is coming from the `dev01` branch:<\/p>\n
devtools::install_github(\"hrbrmstr\/metricsgraphics\", ref=\"dev01\") \r\n\r\nlibrary(metricsgraphics)\r\nlibrary(ggplot2)\r\n\r\ndat <- data.frame(year=seq(1790, 1970, 10),\r\n uspop=as.numeric(uspop))\r\n\r\nset.seed(5689)\r\nmovies <- movies[sample(nrow(movies), 1000), ]\r\n\r\ngg1 <- ggplot(dat, aes(x=year, y=uspop)) + geom_line()\r\ngg2 <- ggplot(dat, aes(x=year, y=uspop)) + geom_point()\r\ngg3 <- ggplot(movies, aes(rating)) + geom_histogram()\r\ngg4 <- ggplot(movies, aes(rating)) + geom_histogram(binwidth = 0.1)\r\n\r\ngg1\r\nas_mjsplot(gg1)\r\n\r\ngg2\r\nas_mjsplot(gg2)\r\n\r\ngg3\r\nas_mjsplot(gg3)\r\n\r\ngg4\r\nas_mjsplot(gg4)\r\n<\/pre>\nWhich you can see below:<\/p>\n