Rserve 是一個基于 TCP/IP 的服務器程序，它允許其他語言調用 R 語言。由于 Rserve 采用 C/S (客戶端/服務器)的調用方式，因此客戶端并不需要鏈接 R 語言庫，客戶端程序與 R 程序可以實現低耦合的目的。

為調用 R 語言，需要實現一個與 Rserve 通信的客戶端程序，幸運的是目前常用的語言包括 C/C++，PHP，Java 等都實現提供與 Rserve 通信的客戶端程序。

本文講述 Java 語言如何利用 Rserve 實現與 R 語言的通信。

安裝 Rserve

假設 R 的運行環境是 CentOS(CentOS 使用yum install R來安裝 R)，在 CentOS 我們已經安裝好 R。

在 Linux 命令行中輸入

R

進入 R 的交互環境，然后輸入

> install.packages("Rserve")

接下來就可以安裝 Rserve。

啟動 Rserve

啟動 Rserve 有兩種方式，一種是在 R 程序中啟動，另一種是在命令行中啟動。

1. R 程序啟動 Rserve

打開 R 的交互環境，輸入以下命令：

library(Rserve)

Rserve()

執行后，Rserve 便啟動起來。

2. 命令行啟動 Rserve

也可以直接在命令行中輸入：

R CMD Rserve

啟動 Rserve。

為讓 Rserve 支持遠程連接，可以加入--RS-enable-remote參數：

R CMD Rserve --RS-enable-remote

Java 調用 R

使用 IntelliJ IDEA 創建一個 Maven quickstart 項目，然后在 pom.xml 中添加 Java 版本的 Rserve 客戶端的依賴：

org.rosuda.REngine

Rserve

1.8.1

然后編寫調用 R 的代碼。

import org.rosuda.REngine.REXP;

import org.rosuda.REngine.Rserve.RConnection;

import org.rosuda.REngine.Rserve.RserveException;

import org.rosuda.REngine.REXPMismatchException;

public class RserveDemo {

public static void main ( String[] args ) throws RserveException, REXPMismatchException

{

RserveDemo rserveDemo = new RserveDemo();

rserveDemo.callRserve();

}

private void callRserve() throws RserveException, REXPMismatchException {

// 連接 Rserve

RConnection c = new RConnection("120.78.80.23");

// 輸出 R 的版本

REXP x = c.eval("R.version.string");

System.out.println(x.asString());

// 獲取10個隨機數字

double[] arr = c.eval("rnorm(10)").asDoubles();

for (double a : arr) {

System.out.print(a + ",");

}

System.out.println();

// 調用 R 源文件

c.eval("source('/home/R/add.R')");

int sum = c.eval("myAdd(1, 2)").asInteger();

System.out.println(sum);

}

}

在上述代碼中，我們首先創建了與 Rserve 的連接。由于 Java 代碼與 Rserve 不在同一臺機器，所以我們指定了 Rserve 的機器 IP 地址。

接下來，我們調用了 R 語言的一些方法，包括輸出 R 語言的版本，獲取10個隨機數字。

最后，我們演示了如何調用 R 語言源代碼。在 Linux 平臺我們先創建一個 add.R 的文件，然后編寫 R 代碼：

myAdd

sum

return (sum)

}

add.R 源代碼放置在目錄 /home/R 下。R 語言中使用source('/home/R/add.R')可以執行源代碼，在 Java 代碼中，我們先執行 add.R 源代碼，接下來調用了myAdd()函數。

執行以上代碼，輸出：

R version 3.5.0 (2018-04-23)

-2.533623370009491,0.7961512738732901,0.7122860585280386,-0.16063583146722446,-0.598315148752494,0.09854836382399271,-1.0914493041810422,-1.5425930835313806,0.584390936738569,0.35687345246533786,

3

參考資料