r - R，Rexcel，创建计算字数的宏和 Excel 工作表

Question

我有使用 Rexcel 的以下宏不起作用。我有一个 A1:A2 (mydf) 范围内的单词列表，我想计算一个特定单词 (hello) 的出现次数，但以下效果不佳。有人可以帮我理解吗？

Sub findwords()
Worksheets("Sheet1").Activate
rinterface.StartRServer
rinterface.PutDataframe "mydf", Range("Sheet1!A1:A200")
rinterface.RRun "a <- length(grep(hello, mydf))"
rinterface.PutArray "a", Range("Sheet1!B2:B50")

End Sub

Answer 1

以下代码是正确答案：

Sub findwords()
  MsgBox "finding the word hello"
  Rinterface.StartRServer
  Rinterface.PutArray "mydf", Range("Sheet1!A1:A200")
  Rinterface.RRun "a <- length(grep('hello', mydf))"
  Rinterface.GetArray "a", Range("Sheet1!B1")
End Sub