jupyter/ipython 笔记本中的 ggvis

Question

可以使用rmagic 来使用 R 在 ipython 笔记本中绘图。

示例用法

%%R 
ggplot() + geom_point(data=ChickWeight, aes(Time, weight))

ggplot2 的下一个演变是ggvis，它支持交互式图形。所以我天真地尝试在笔记本中运行 ggvis 代码。

代码

%%R 
library(ggvis) 
library(dplyr) 
ChickWeight %>% ggvis(~Time, ~weight) %>% layer_points() 

错误

---------------------------------------------------------------------------
RRuntimeError                             Traceback (most recent call last)
<ipython-input-34-d92c06ea4af8> in <module>()
----> 1 get_ipython().run_cell_magic(u'R', u'', u'# ChickWeight %>% head\nChickWeight %>% ggvis(~Time, ~weight) %>% layer_points()')

/opt/virtualenvs/test/lib/python2.7/site-packages/IPython/core/interactiveshell.pyc in run_cell_magic(self, magic_name, line, cell)
   2259             magic_arg_s = self.var_expand(line, stack_depth)
   2260             with self.builtin_trap:
-> 2261                 result = fn(magic_arg_s, cell)
   2262             return result
   2263 

/opt/virtualenvs/test/lib/python2.7/site-packages/rpy2/ipython/rmagic.pyc in R(self, line, cell, local_ns)

/opt/virtualenvs/test/lib/python2.7/site-packages/IPython/core/magic.pyc in <lambda>(f, *a, **k)
    191     # but it's overkill for just that one bit of state.
    192     def magic_deco(arg):
--> 193         call = lambda f, *a, **k: f(*a, **k)
    194 
    195         if callable(arg):

/opt/virtualenvs/test/lib/python2.7/site-packages/rpy2/ipython/rmagic.pyc in R(self, line, cell, local_ns)
    640                     old_writeconsole = ri.get_writeconsole()
    641                     ri.set_writeconsole(self.write_console)
--> 642                     ro.r.show(result)
    643                     text_output += self.flush()
    644                     ri.set_writeconsole(old_writeconsole)

/opt/virtualenvs/test/lib/python2.7/site-packages/rpy2/robjects/functions.pyc in __call__(self, *args, **kwargs)
    168                 v = kwargs.pop(k)
    169                 kwargs[r_k] = v
--> 170         return super(SignatureTranslatedFunction, self).__call__(*args, **kwargs)
    171 
    172 pattern_link = re.compile(r'\\link\{(.+?)\}')

/opt/virtualenvs/test/lib/python2.7/site-packages/rpy2/robjects/functions.pyc in __call__(self, *args, **kwargs)
     98         for k, v in kwargs.items():
     99             new_kwargs[k] = conversion.py2ri(v)
--> 100         res = super(Function, self).__call__(*new_args, **new_kwargs)
    101         res = conversion.ri2ro(res)
    102         return res

RRuntimeError: Error in view_static(x, ...) : unused argument (useS4 = FALSE)

此代码在 Rstudio 中运行良好。

是否可以在 ipython 笔记本中运行 ggvis （或任何闪亮的东西，我认为这就是问题所在）？

Answer 1

长话短说，您要么显式调用 R 的 print 方法，要么为 ipython 自定义 rpy2 的转换规则（此处未显示）。

%%R 
library(ggvis) 
library(dplyr) 
p <- ChickWeight %>% ggvis(~Time, ~weight) %>% layer_points() 
print(p)

请注意，获得的图与您的 ipython 笔记本在一个不同页面中，这有点打破了笔记本是独立的想法。