def render(self, dataframe, path):
R.library('ggplot2')
# add all indices as columns
dataframe.reset_index(inplace=True)
rframe = pandas.rpy.common.convert_to_r_dataframe(dataframe)
# for the issue below, see:
# http://stackoverflow.com/questions/12865218/getting-rid-of-asis-class-attribute
unAsIs = R('''function (x) {
if(typeof(x) %in% c("integer","double")) {
class(x) <- "numeric"
return (x)}
else if (typeof(x) == "character") {
class(x) <- "character"
return (x) }
else {
return(x) } }''')
rframe = R["as.data.frame"](R.lapply(rframe, unAsIs))
R.assign("rframe", rframe)
# start plot
R('''gp = ggplot(rframe)''')
# add aesthetics and geometries
try:
pp = R('''gp + %s ''' % self.statement)
except ValueError as msg:
raise ValueError(
"could not interprete R statement: "
"gp + %s; msg=%s" % (self.statement, msg))
figname = re.sub('/', '_', path2str(path))
r = ResultBlock('#$ggplot %s$#' % figname,
title=path2str(path))
r.rggplot = pp
r.figname = figname
return ResultBlocks(r)
def render(self, dataframe, path):
R.library('ggplot2')
# add all indices as columns
dataframe.reset_index(inplace=True)
rframe = rpy2.robjects.pandas2ri.py2ri(dataframe)
# for the issue below, see:
# http://stackoverflow.com/questions/12865218/getting-rid-of-asis-class-attribute
unAsIs = R('''function (x) {
if("AsIs" %in% class(x)) {
class(x) <- class(x)[-match("AsIs", class(x))]
}
return (x) } ''')
rframe = R["as.data.frame"](R.lapply(rframe, unAsIs))
R.assign("rframe", rframe)
# start plot
R('''gp = ggplot(rframe)''')
# add aesthetics and geometries
try:
pp = R('''gp + %s ''' % self.statement)
except ValueError as msg:
raise ValueError(
"could not interprete R statement: "
"gp + %s; msg=%s" % (self.statement, msg))
figname = re.sub('/', '_', path2str(path))
r = ResultBlock('#$ggplot %s$#' % figname,
title=path2str(path))
r.rggplot = pp
r.figname = figname
return ResultBlocks(r)
def render(self, dataframe, path ):
R.library( 'ggplot2' )
rframe = pandas.rpy.common.convert_to_r_dataframe(dataframe)
# sometimes the row/column mapping did not work
# rframe.colnames = dataframe.columns
unAsIs = R('''function (x) {
if(typeof(x) %in% c("integer","double")) {
class(x) <- "numeric"
return (x)}
else if (typeof(x) == "character") {
class(x) <- "character"
return (x) }
else {
return(x) } }''')
rframe = R["as.data.frame"](R.lapply(rframe,unAsIs))
R.assign( "rframe", rframe )
# start plot
R('''gp = ggplot( rframe )''')
# add aesthetics and geometries
try:
pp = R('''gp + %s ''' % self.statement )
except ValueError as msg:
raise ValueError( "could not interprete R statement: gp + %s; msg=%s" % (self.statement, msg ))
figname = re.sub( '/', '_', path2str(path) )
r = ResultBlock( '#$ggplot %s$#' % figname,
title = path2str(path) )
r.rggplot = pp
r.figname = figname
return ResultBlocks( r )
