rpy2:在python中调用R函数的一个实例

python与R是当前数据科学计算的两大支柱,就我个人的使用经验而言,R更直观、简单和上手一些。很多专业的统计分析Python并没有提供R中的对应体,而你想要使用Python做数据分析,这时候就需要使用rpy2包来构建这个桥梁了。

比如我最近遇到一个分析问题,Python无法计算非参数统计检验wilcoxon test的置信区间,如果你仔细查看Python提供的非参数检验,你会发现它使用的是正态逼近,这在样本量大的时候(根据中心极限定理服从正态分布)当然可以使用Python计算,当如果你是小样本,比如大多数生物医学数据处理与分析中普遍样本少的可怜。在Stack overflow上有人讨论过并检查统计检验的p值,结论是算检验,R更靠谱些,优先采用。

言归正传,在银行统计工作室rpy2使用示例一文中对rpy2包各方面的使用都有介绍,加rpy2官方文档基本上可以掌握rpy2的使用,这里我提供这两天实现的一个实例——从python中调用R的wilcox.test函数进行非参数检验,如果大家有这方面需求可以作为一个参考。

代码已经封装为一个函数,略写了一下文档。

# 推荐使用conda管理环境
# conda create --name test python=3.6
# source activate test
# conda install rpy2  # should add conda-forge channel
# reference link: <http://www.cnblogs.com/cloudtj/articles/6372200.html>, <https://rpy2.readthedocs.io/en/version_2.8.x/index.html>

def pyWilcox(x, y=None, alternative='two.sided', mu=0, paired=False, exact=None, correct=True, conf_interval=True, conf_level=0.95):
    ''' 
    Run wilcoxon test using wilcox.test in R stats package, default is 'two sided' test.
        return p value, statistical value and confidence interval in a dictory. 

    Arguments:
        
        x   
            numeric vector of data values. Non-finite (e.g., infinite or missing) values will be omitted.
        y   
            an optional numeric vector of data values: as with x non-finite values will be omitted.
        alternative 
            a character string specifying the alternative hypothesis, must be one of "two.sided" (default), "greater" or "less". You can specify just the initial letter.
        mu  
            a number specifying an optional parameter used to form the null hypothesis. See ‘Details’.
        paired  
            a logical indicating whether you want a paired test.
        exact   
            a logical indicating whether an exact p-value should be computed.
        correct 
            a logical indicating whether to apply continuity correction in the normal approximation for the p-value.
        conf_interval   
            a logical indicating whether a confidence interval should be computed.
        conf_level  
            confidence level of the interval.

    Example:
        
        x = [i for i in range(0, 10)]
        y = [i for i in range(10, 20)]
        # two sample test
        pyWilcox(x, y)
        # one sample test
        pyWilcox(x)

        # output:
        #
        # {'p_value': [1.082508822446903e-05], 'statistic': [0.0], 'conf_interval': [-13.0, -7.0]}
        # {'p_value': [0.009151688852650072], 'statistic': [45.0], 'conf_interval': [2.500027475911944, 7.499972524088056]}
        

    Note:
        
        More information please run help('wilcox.test.default') in R console
    '''

    # 载入r对象
    from rpy2 import robjects
    # 载入导入包函数
    from rpy2.robjects.packages import importr
    # 将stats包导入为模块
    stats = importr('stats')
# When one wants to create a vector from Python, either the class Vector or the convenience classes IntVector, FloatVector, BoolVector, StrVector can be used.

    # 将列表x转换为r可识别数据对象
    x = robjects.FloatVector(x)
    
    # 将参数中的.替换为_,解决不兼容问题, 来自rpy2文档函数部分
    def iamfeelinglucky(func):
        def f(*args, **kwargs):
            d = {}
            for k, v in kwargs.items():
                d[k.replace('_', '.')] = v
            return func(**d)
        return f

    # 矫正参数名
    wilcox = iamfeelinglucky(stats.wilcox_test_default)

    # None类型似乎没有相应的函数,只能用条件语句进行判断
    if y != None:
        y = robjects.FloatVector(y)
        if exact != None:
            pr = wilcox(x = x, y = y, alternative = alternative, mu = mu, paired = paired, exact = exact, correct = correct, conf_int = conf_interval, conf_level = conf_level)
        else:
            pr = wilcox(x = x, y = y, alternative = alternative, mu = mu, paired = paired, conf_int = conf_interval, conf_level = conf_level)       
    else:
        if exact != None:
            pr = wilcox(x = x,  alternative = alternative, mu = mu, exact = exact, correct = correct, conf_int = conf_interval, conf_level = conf_level)
        else:
            pr = wilcox(x = x,  alternative = alternative, mu = mu, correct = correct, conf_int = conf_interval, conf_level = conf_level) 
           
    print(pr)
    res = list(pr)
    # 返回结果中需要的值构建字典
    res = {"p_value":list(res[2]), "statistic":list(res[0]), "conf_interval":list(res[7])}   
    return(res)

最后编辑于
©著作权归作者所有,转载或内容合作请联系作者
  • 序言:七十年代末,一起剥皮案震惊了整个滨河市,随后出现的几起案子,更是在滨河造成了极大的恐慌,老刑警刘岩,带你破解...
    沈念sama阅读 157,012评论 4 359
  • 序言:滨河连续发生了三起死亡事件,死亡现场离奇诡异,居然都是意外死亡,警方通过查阅死者的电脑和手机,发现死者居然都...
    沈念sama阅读 66,589评论 1 290
  • 文/潘晓璐 我一进店门,熙熙楼的掌柜王于贵愁眉苦脸地迎上来,“玉大人,你说我怎么就摊上这事。” “怎么了?”我有些...
    开封第一讲书人阅读 106,819评论 0 237
  • 文/不坏的土叔 我叫张陵,是天一观的道长。 经常有香客问我,道长,这世上最难降的妖魔是什么? 我笑而不...
    开封第一讲书人阅读 43,652评论 0 202
  • 正文 为了忘掉前任,我火速办了婚礼,结果婚礼上,老公的妹妹穿的比我还像新娘。我一直安慰自己,他们只是感情好,可当我...
    茶点故事阅读 51,954评论 3 285
  • 文/花漫 我一把揭开白布。 她就那样静静地躺着,像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上,一...
    开封第一讲书人阅读 40,381评论 1 210
  • 那天,我揣着相机与录音,去河边找鬼。 笑死,一个胖子当着我的面吹牛,可吹牛的内容都是我干的。 我是一名探鬼主播,决...
    沈念sama阅读 31,687评论 2 310
  • 文/苍兰香墨 我猛地睁开眼,长吁一口气:“原来是场噩梦啊……” “哼!你这毒妇竟也来了?” 一声冷哼从身侧响起,我...
    开封第一讲书人阅读 30,404评论 0 194
  • 序言:老挝万荣一对情侣失踪,失踪者是张志新(化名)和其女友刘颖,没想到半个月后,有当地人在树林里发现了一具尸体,经...
    沈念sama阅读 34,082评论 1 238
  • 正文 独居荒郊野岭守林人离奇死亡,尸身上长有42处带血的脓包…… 初始之章·张勋 以下内容为张勋视角 年9月15日...
    茶点故事阅读 30,355评论 2 241
  • 正文 我和宋清朗相恋三年,在试婚纱的时候发现自己被绿了。 大学时的朋友给我发了我未婚夫和他白月光在一起吃饭的照片。...
    茶点故事阅读 31,880评论 1 255
  • 序言:一个原本活蹦乱跳的男人离奇死亡,死状恐怖,灵堂内的尸体忽然破棺而出,到底是诈尸还是另有隐情,我是刑警宁泽,带...
    沈念sama阅读 28,249评论 2 250
  • 正文 年R本政府宣布,位于F岛的核电站,受9级特大地震影响,放射性物质发生泄漏。R本人自食恶果不足惜,却给世界环境...
    茶点故事阅读 32,864评论 3 232
  • 文/蒙蒙 一、第九天 我趴在偏房一处隐蔽的房顶上张望。 院中可真热闹,春花似锦、人声如沸。这庄子的主人今日做“春日...
    开封第一讲书人阅读 26,007评论 0 8
  • 文/苍兰香墨 我抬头看了看天上的太阳。三九已至,却和暖如春,着一层夹袄步出监牢的瞬间,已是汗流浃背。 一阵脚步声响...
    开封第一讲书人阅读 26,760评论 0 192
  • 我被黑心中介骗来泰国打工, 没想到刚下飞机就差点儿被人妖公主榨干…… 1. 我叫王不留,地道东北人。 一个月前我还...
    沈念sama阅读 35,394评论 2 269
  • 正文 我出身青楼,却偏偏与公主长得像,于是被迫代替她去往敌国和亲。 传闻我的和亲对象是个残疾皇子,可洞房花烛夜当晚...
    茶点故事阅读 35,281评论 2 259

推荐阅读更多精彩内容

  • 她知道自己是有些洁癖的。二十来岁的时候,她的洁癖比现在还严重。那时她不能容忍男朋友用她的杯子喝水,在床上说的最多的...
    冬惊阅读 1,976评论 5 16
  • 喜欢每天早上骑车去公司的路上,天空晴朗☀️,微风的温度随着季节在变换。 不确定自己会在一个地方待多久,但喜欢这时的...
    simpleour阅读 178评论 0 0
  • 不曾想自己有一种爱好,那就是手机摄影。说不上来专业,但却时常充满感动。好的照片不单是为了取悦众人,更是能感动自己。...
    Jack叔叔阅读 727评论 0 5
  • javascript观察者模式学习笔记 原文地址 首先是观察者模式代码 在观察着模式的运用当中。react组件间的...
    strong9527阅读 356评论 0 0