如何将值从 VBA 变量传递到 RExcel 宏中的 R答案

【问题标题】：How to pass value from VBA variable to R in RExcel macro如何将值从 VBA 变量传递到 RExcel 宏中的 R
【发布时间】：2015-03-20 21:57:27
【问题描述】：

我是编写 RExcel 宏的新手，我有一个问题。我正在通过InputBox() 从宏中获取用户输入。输入是一个整数。然后我想把这个整数值传递给R。

这是我的尝试：

Option Explicit
Sub KMeansClustering()
Dim k As Integer
RInterface.PutDataframe "mydata", Selection
RInterface.RRun "testdata <- na.omit(mydata)"
RInterface.RRun "testdata <- scale(testdata)"
k = InputBox("Enter k")    
' Supply data from VBA k variable to k R variable
RInterface.RRun "fit <- kmeans(testdata, k)"
RInterface.RRun "aggregate(testdata,by=list(fit$cluster),FUN=mean)"
RInterface.RRun "result <- data.frame(testdata, fit$cluster)"
End Sub

【问题讨论】：

标签： excel vba rexcel

【解决方案1】：

在 R 中使用“k”之前，您必须先将值传输到 R 变量（数组）：

Rinterface.PutArrayFromVBA("k_value", k) Rinterface.RRun "fit

【讨论】：