最近在做一個項目，需要用到java調用Rserve執(zhí)行R語句，代碼如下：

 xp=c.eval("eperson(economic)");
    System.out.println("----eperson(economic).asList()-----");
    Object[] array= xp.asList().toArray();
    for(int i=0;i<=array.length-1;i++){
        System.out.println(array[i]);
    }
    System.out.println(xp.isVector());
    if(xp.isRecursive()){//xp是否為遞歸對象
         for(int i=0;i<xp.length();i++){
             System.out.println((xp.asList().get(i)));//values() 
             System.out.println("---------");
             System.out.println((xp.asList().values()));
             System.out.println("---------");
             System.out.println(xp.asList().toString());
            
         }
    }

代碼輸出結果如下：

----eperson(economic).asList()-----
org.rosuda.REngine.REXPString@3b96dc4e[1]
org.rosuda.REngine.REXPGenericVector@2d59a372+[9]named
org.rosuda.REngine.REXPString@57f9a8a0[1]
org.rosuda.REngine.REXPGenericVector@47adcd7f+[3]named
true
org.rosuda.REngine.REXPString@3b96dc4e[1]
---------
RList[org.rosuda.REngine.REXPString@3b96dc4e[1], org.rosuda.REngine.REXPGenericVector@2d59a372+[9]named, org.rosuda.REngine.REXPString@57f9a8a0[1], org.rosuda.REngine.REXPGenericVector@47adcd7f+[3]named]{4}
---------
RList[org.rosuda.REngine.REXPString@3b96dc4e[1], org.rosuda.REngine.REXPGenericVector@2d59a372+[9]named, org.rosuda.REngine.REXPString@57f9a8a0[1], org.rosuda.REngine.REXPGenericVector@47adcd7f+[3]named]{4}
org.rosuda.REngine.REXPGenericVector@2d59a372+[9]named
---------
RList[org.rosuda.REngine.REXPString@3b96dc4e[1], org.rosuda.REngine.REXPGenericVector@2d59a372+[9]named, org.rosuda.REngine.REXPString@57f9a8a0[1], org.rosuda.REngine.REXPGenericVector@47adcd7f+[3]named]{4}
---------
RList[org.rosuda.REngine.REXPString@3b96dc4e[1], org.rosuda.REngine.REXPGenericVector@2d59a372+[9]named, org.rosuda.REngine.REXPString@57f9a8a0[1], org.rosuda.REngine.REXPGenericVector@47adcd7f+[3]named]{4}
org.rosuda.REngine.REXPString@57f9a8a0[1]
---------
RList[org.rosuda.REngine.REXPString@3b96dc4e[1], org.rosuda.REngine.REXPGenericVector@2d59a372+[9]named, org.rosuda.REngine.REXPString@57f9a8a0[1], org.rosuda.REngine.REXPGenericVector@47adcd7f+[3]named]{4}
---------
RList[org.rosuda.REngine.REXPString@3b96dc4e[1], org.rosuda.REngine.REXPGenericVector@2d59a372+[9]named, org.rosuda.REngine.REXPString@57f9a8a0[1], org.rosuda.REngine.REXPGenericVector@47adcd7f+[3]named]{4}
org.rosuda.REngine.REXPGenericVector@47adcd7f+[3]named
---------
RList[org.rosuda.REngine.REXPString@3b96dc4e[1], org.rosuda.REngine.REXPGenericVector@2d59a372+[9]named, org.rosuda.REngine.REXPString@57f9a8a0[1], org.rosuda.REngine.REXPGenericVector@47adcd7f+[3]named]{4}
---------
RList[org.rosuda.REngine.REXPString@3b96dc4e[1], org.rosuda.REngine.REXPGenericVector@2d59a372+[9]named, org.rosuda.REngine.REXPString@57f9a8a0[1], org.rosuda.REngine.REXPGenericVector@47adcd7f+[3]named]{4}

結果并不是我想要的，我希望返回的結果是，能夠打印出結果的具體值，即將R語句在R編輯器里運行時后得到結果：

該怎么寫代碼呢？