1. 安装库rpy2
1. 下载与本地对应python版本模块,pip install rpy2是安装不上的
下载地址是:http://www.lfd.uci.edu/~gohlke/pythonlibs/#rpy2 这是python下包的专用地址
需要下载版本和平台都相对应的whl包,我下的是rpy2-2.9.4-cp36-cp36m-win32.whl
pip install rpy2-2.9.4-cp36-cp36m-win32.whl安装即可。
2. 安装broom --》R语言的一个库--》与R脚本有关,可以忽略
install.packages('broom')
3. 写R脚本
library(broom)
test<-function() {#x <- c(1:1200000)
#y <- c(1:1200000)
x <- c(151, 174, 138, 186, 128, 136, 179, 163, 152, 131)
y<- c(63, 81, 56, 91, 47, 57, 76, 72, 62, 48)
relation<- lm(y ~x)
data<-summary(relation)
data_dict<-c()
newData<-c(data)
data_dict["residuals"] <- newData["residuals"]
data_dict["coefficients"] = newData["coefficients"]
data_dict["aliased"] = newData["aliased"]
data_dict["sigma"] = newData["sigma"]
data_dict["df"] = newData["df"]
data_dict["r.squared"] = newData["r.squared"]
data_dict["adj.r.squared"] = newData["adj.r.squared"]
data_dict["fstatistic"] = newData["fstatistic"]
data_dict["cov.unscaled"] = newData["cov.unscaled"]
data_dict["p.value"] = c(broom::glance(data))["p.value"]return(data_dict)
}#result <- test()#print(result)
4. 写python脚本
报错: RuntimeError: R_USER not defined.
解决方案,各种搜索都是环境变量的问题,于是我各种加
还tm不行..........................................又懒得重启
stackflow找到答案
os模块的运用,直接看脚本
importos
os.environ['R_HOME'] = r'C:\Program Files\R\R-3.6.0'os.environ['R_USER'] = r'C:\python3.6.3\Lib\site-packages\rpy2' #path depe
importrpy2.robjects as robjects # ----------------------------------------------> 一定要注意这句,不能放到最上面,因为要先添加环境变量,才能找到这个rpy2。一定要注意
robjects.r.source(r'C:\code\r_test\test_one\test.R')
a= robjects.r('test()')print(type(a))#print(list(a))
from pandas importDataFrameprint(a[0])print(a[0][0])
5. python传值给R脚本,如何实现, 形参方法1
R脚本: 这个脚本的关键在于如何将list转换为c
library(broom)
test<-function(list_data) {#print(list_data)
#print(class(list_data))
#r语言list 转换成 vector: v = as.vector(unlist(你的list))
x = c(as.vector(unlist(list_data['x'])))
y= c(as.vector(unlist(list_data['y'])))
relation<- lm(y ~x)
data<-summary(relation)print(data)return(0)
}
python脚本
importos
os.environ['R_HOME'] = r'C:\Program Files\R\R-3.6.0'os.environ['R_USER'] = r'C:\python3.6.3\Lib\site-packages\rpy2' #path depe
from pandas importDataFrame as dfimportrpy2.robjects as robjectsimporttime
robjects.r.source(r'C:\code\r_test\test_one\test.R')
time1=time.time()y=robjects.ListVector({"x":[1, 2, 3],"y":[1, 2, 3], # 这里可以给float
})
a= robjects.r["test"](y)
6. python传值给R脚本,如何实现, 形参方法2:类似python的args
R语言脚本
library(broom)
test<-function(...) {
list_data<- list(...) #类似python的args,可以传递多个参数
print(list_data)print(class(list_data))
x= c(as.vector(unlist(list_data[1]))) #注意R是从1开始的
y = c(as.vector(unlist(list_data[2])))print(x)print(y)
relation<- lm(y ~x)
data<-summary(relation)print(data)return(0)
}
python语言
importos
os.environ['R_HOME'] = r'C:\Program Files\R\R-3.6.0'os.environ['R_USER'] = r'C:\python3.6.3\Lib\site-packages\rpy2' #path depe
from pandas importDataFrame as dfimportrpy2.robjects as robjectsimporttime
robjects.r.source(r'C:\code\r_test\test_one\test.R')
x = robjects.IntVector([151, 174, 138, 186, 128, 136, 179, 163, 152, 131])
y= robjects.IntVector([63, 81, 56, 91, 47, 57, 76, 72, 62, 48])
a= robjects.r["test"](x, y)