我正在尝试应用一个函数，该函数搜索数据框（基于特定列-在这种情况下为日期字段），以找到包含指定日期或尽可能接近日期的行。该函数有效，但是当我尝试在group_by上下文中应用该函数时，该函数将应用于整个数据帧，而不是每个子组。用我的代码 theData是一个包含9列的数据框：第一个是'component'，第二个是'date'，其余是数据元素。 ClosestDataValue是一个函数，它需要一个数据框，一个列标识符和一个日期。
这是无效的代码段。当它被调用时，我得到一个基于'component'的6个分组集的数据框，但是其余的列都是相同的-似乎在完整的theData数据帧而不是每个分组集上调用了ClosestDataValue。
df <- theData %>%
group_by(component) %>%
dplyr::group_map( ~ ClosestDateValue(theData, "date", date("2018-06-01"))[,2:8])
我期望df为六行，每行都应用了该函数的结果。
对不起，我无法提供代码，因为该代码托管在无法从此PC访问的计算机上。