{RR(echo="1" cacheby="pagename")}
require('devtools', quietly = TRUE )
if(!require(rCharts)){ install_github('rCharts', 'ramnathv') }
require(reshape2)
usp = reshape2::melt(USPersonalExpenditure)
p4 <- Rickshaw$new()
p4$layer(value ~ Var2, group = "Var1", data = usp, type = "area", width = 560)
p4$save("p4.html")
{RR}
- Testing rCharts from http://ramnathv.github.io/rCharts/
require('devtools', quietly = TRUE )
if(!require(rCharts)){ install_github('rCharts', 'ramnathv') }
- This example will use functions from package reshape2, so we install it if needed
require(reshape2)
usp = reshape2::melt(USPersonalExpenditure)
- get the decades into a date Rickshaw likes
p4 <- Rickshaw$new()
p4$layer(value ~ Var2, group = "Var1", data = usp, type = "area", width = 560)
- add a helpful slider this easily; other features TRUE as a default
- p4$print("chart6")
p4$save("p4.html")
{RR}
{iframe name="myChart" width="850" height="500" align="middle" frameborder="0" marginheight="0" marginwidth="0" scrolling="auto" src="temp/cache/{{domainslash_if_multitiki}}R_{{page}}/p4.html"}
Plugin execution pending approval
This plugin was recently added or modified. Until an editor of the site validates the parameters, execution will not be possible.