通过R的网格化用python编写一个lambda函数

Question

我正在尝试编写一个简单的python函数，比如将一列中的每一项都加5，但是我无法在R环境中定义一个python函数。可以在这里定义一个Python函数吗？

library(magrittr)
library(dplyr)
library(reticulate)

os <- import('os')
pd <- import('pandas', convert = F)
np <- import('numpy', convert = F)

a <- pd$Series(data = c(1, 2, 3))

b <- pd$DataFrame(list(a = c(10,20,30),
                       b = c(20, 30, 10)))

c <- pd$DataFrame(list(a = c(10,20,30),
                       c = c(40, 50, 60)))$merge(b)

c$cumsum()

plus_5 <- function(x) x + 5

c$apply(func = plus_5(b$a))

Answer 1

您可以在R中定义Python函数，并按如下方式调用它：

library(reticulate)
util <- py_run_string("
def f1(a, b=3):
  return a + b
")
util$f1(1)

然后你可以在你的c$apply()中使用它。希望这能有所帮助。