R语言java调用

怼烎@ 2022-02-12 18:15 312阅读 0赞

## 下载 ##

[Download R 3.6.0 for Windows][]

[https://cran.r-project.org/bin/windows/base/][https_cran.r-project.org_bin_windows_base]

## 安装打开Rgui.exe ##

D:\\Program Files\\R\\R-3.6.0\\bin\\x64

## 命令提示符输出 ##

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3N0ZXZlX2ZyYW5r_size_16_color_FFFFFF_t_70][]

## 脚本文件test.R ##

# My first program in R Programming
    myString <- "Hello, World!"
    
    print ( myString)

## 启动Rserver ##

> library(Rserve)

> Rserve()

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3N0ZXZlX2ZyYW5r_size_16_color_FFFFFF_t_70 1][]

## pom.xml ##

<dependency>
                <groupId>org.rosuda.REngine</groupId>
                <artifactId>Rserve</artifactId>
                <version>1.8.1</version>
            </dependency>

## Test.java ##

import org.rosuda.REngine.REXP;
    import org.rosuda.REngine.Rserve.RConnection;
    
    public class Test {
        public static void main(String[] args) {
            try {
                RConnection c = new RConnection();
                REXP x = c.eval("R.version.string");
                System.out.println(x.asString());
            } catch (Exception e) {
                e.printStackTrace();
            }
        }

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3N0ZXZlX2ZyYW5r_size_16_color_FFFFFF_t_70 2][]

## 新建程序脚本myAdd.R ##

myAdd<-function(x,y){ sum=x+y; return(sum)}

## java调用myAdd ##

/**
     * @author Moses
     * @Date 2019/4/29
     */
    
    import org.rosuda.REngine.REXP;
    import org.rosuda.REngine.Rserve.RConnection;
    
    public class Test {
        public static void main(String[] args) {
            try {
                RConnection c = new RConnection();
                REXP x = c.eval("R.version.string");
                System.out.println(x.asString());
                c.eval("source('D:/temp/myAdd.R')");
                int num1 = 20;
                int num2 = 10;
                int sum = c.eval("myAdd(" + num1 + "," + num2 + ")").asInteger();
                System.out.println("the sum=" + sum);
            } catch (Exception e) {
                e.printStackTrace();
            }
        }
    }

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3N0ZXZlX2ZyYW5r_size_16_color_FFFFFF_t_70 3][]

[Download R 3.6.0 for Windows]: https://cran.r-project.org/bin/windows/base/R-3.6.0-win.exe
[https_cran.r-project.org_bin_windows_base]: https://cran.r-project.org/bin/windows/base/
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3N0ZXZlX2ZyYW5r_size_16_color_FFFFFF_t_70]: /images/20220212/6e55ee77de254c2c9d2c0cda5e692a9a.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3N0ZXZlX2ZyYW5r_size_16_color_FFFFFF_t_70 1]: /images/20220212/366e526ba1614dea947fc59ac4b039e4.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3N0ZXZlX2ZyYW5r_size_16_color_FFFFFF_t_70 2]: /images/20220212/f06eb099063b498fabde2cbf4dbae1d9.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3N0ZXZlX2ZyYW5r_size_16_color_FFFFFF_t_70 3]: /images/20220212/12d7da0a40c24704a671f9d8e6aad041.png