1

在 Renjin 中，返回的实际值是多少：

engine.eval("...")

例如：

df <- data.frame( 1 ) 
df[["X1"] <- df[["X1"]] * 10

返回具有单个 10 值的 DoubleArrayVector。我想这是最后一次计算。

df <- data.frame( 1 ) 
df[["X1"] <- df[["X1"]] * 10
print(df)

返回一个 data.frame (ListVector...)

有什么方法可以让 eval 返回上例中的 data.frame df 吗？

谢谢。

4

1 回答 1

1

Renjin 应用了 R 评估的所有常规规则，并且一系列表达式确实会评估最后一个表达式的值。

如果你想要 的值df，那么你可以用 Java 编写：

ListVector df = (ListVector)engine.eval("df");

或者：

ListVector df = (ListVector)engine.get("df");

在 R 中，data.frame 只是list“data.frame”类的列。您可以通过在 GNU R 或 Renjin 中运行以下命令来看到这一点：

> data(iris)
> str(iris)
'data.frame':   150 obs. of  5 variables:
$ Sepal.Length: num  5.1 4.9 4.7 4.6 5 5.4 4.6 5 4.4 4.9 ...
$ Sepal.Width : num  3.5 3 3.2 3.1 3.6 3.9 3.4 3.4 2.9 3.1 ...
$ Petal.Length: num  1.4 1.4 1.3 1.5 1.4 1.7 1.4 1.5 1.4 1.5 ...
$ Petal.Width : num  0.2 0.2 0.2 0.2 0.2 0.4 0.3 0.2 0.2 0.1 ...
$ Species     : Factor w/ 3 levels "setosa","versicolor",...

在 Java 中，您可以使用 ListVector 的方法访问这些列：

ListVector df = (ListVector)engine.get("df"); 
Vector sepalLength = df.getElementAsVector(0);
Vector sepalWidth = df.getElementAsVector(1);

// Find the sepalLength and sepalWidth of the fourth observation
double sepalLength4 = sepalLength.getElementAsDouble(3);
double sepalWidth4 = sepalWidth.getElementAsDouble(4);
于 2017-09-05T07:01:18.477 回答