菜鸟笔记--Java通过Rserve调用R语言

本文介绍了如何在Windows环境下安装和启动Rserve服务,并详细展示了Java如何调用R语言函数及R脚本中的自定义函数,包括Rconnection的使用、数据交互以及错误处理。提供了一个基础的Java调用Rserve的示例,便于读者实践。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

1、Rserve安装和启动(windows环境)

前提:安装并配置了R语言。

步骤:a.打开R工具,在命令中执行install.packages("Rserve"),下载Rserve;

      下载完成后,R-x.x.x\library下会出现Rserve文件夹。

     

      b.输入library(Rserve)和Rserve()命令手动启动Rserve服务。

    

2、Java调用R

前置操作:导入Rengine.jar和Rserve.jar,如web项目,直接把这两个jar包复制黏贴到web项目的WEB-INF\lib目录下。

(这两个jar包在R-x.x.x\library\Rserve\java目录下可以找到,或者网上下载)

基本方法:

Rconnection

eval():执行R语句

assgin():声明变量

REXP

asInteger() ,  asIntegers() ,  asString() ,  asDouble()  , asDoubles()   ,  asList()等等:返回相应类型的数据

例子:  (前提:已经手动或者用代码启动了Rserve服务)

1. 调用R语言函数 

RConnection rc  = new Rconnection();          //建立连接

int[] a = {5141578,4955750,5395375,5583967,5763663,5981998,6447677,6668438};

rc.assign("data", a);       //声明变量,相当于在R命令行中输入data<-a命令

REXP x = rc.eval("max(data)");    //执行R语句,相当于在R命令行中输max(data)命令

System.out.println(x.asInteger());//REXP. asXxx()返回相应类型的数据,如果结果类型不符会出错

2、调用R脚本的函数

假设有一个自己写好test.R,里面有一个函数如下:

myFunc<-function(data){

    x<-data+2;

}

----------------------分割线------------------------------

调用如下:

RConnection rc  = new Rconnection();

String fileName="E:\\Rscript\\test.R";       // test.R的路径rc.assign("fileName", fileName);        //声明变量

rc.eval("source(fileName)");       //执行test.R脚本,执行这一步才能调用里面的自定义函数myFunc,如果不行,就在R工具上也执行一下test.R脚本

String num = "2";

rc.assign("param",num);

REXP  rexp = rc.eval("myFunc(param)");     //不行就用rc.eval("myFunc("+num+")");

System.out.println(rexp.asInteger());  //返回类型是一个整数类型,所以用asInteger

 

参考:

在R-x.x.x\library\Rserve\client\java\Rserve\test目录下有测试用例,可以参考。(StartRserve.java是用java启动Rserve服务,而不用打开R语言来手动启动。test.java里包含了基本方法的调试)

Ps:如果输入参数类型是数据框,矩阵,List等等特殊类型,可参照上面提及的test.java里面的方法,关于List取值里面也有。

如果需要代码启动Rserve服务,可以在RConnection rc  = new Rconnection();

前面加上System.out.println(StartRserve.checkLocalRserve());

如果成功启动,在console上会输出如下信息:

Rserve is running.

true

如果不成功,请确认安装了R语言,下载了Rserve并导入了jar包。

关闭Rserve服务用rc.close();


说明:此文章为个人心得,主要为了记录,方便自己看,如果出错或者有更好的方法,欢迎指出讨论。

评论 2
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值