Loading...
 

Profile_r_test9_rcharts_xcharts

{RR(echo="1" cacheby="pagename")}
  1. Testing rCharts from http://ramnathv.github.io/rCharts/
if(!require(devtools)){ install.packages("devtools", repos="http://ftp.heanet.ie/mirrors/cran.r-project.org/") }
require('devtools', quietly = TRUE )
if(!require(rCharts)){ install_github('rCharts', 'ramnathv') }

  1. This example will use functions from package reshape2, so we install it if needed
if(!require(reshape2)){ install.packages("reshape2", repos="http://ftp.heanet.ie/mirrors/cran.r-project.org/") }
require(reshape2)
uspexp <- melt(USPersonalExpenditure)
names(uspexp)1:2 = c("category", "year")
x1 <- xPlot(value ~ year, group = "category", data = uspexp, type = "line-dotted")
  1. x1$print("chart4")

x1$LIB2 <- "http://{{domain}}/rcharts_libraries/xcharts"
x1$save("x1.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}}/x1.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.