如何在DataFrame中对第3、6行应用(x*0.5)函数并覆盖原数据？

嘿，我明白你为啥用rollapply()会头疼了——那玩意儿本来就是给滑动窗口计算设计的，专门处理连续的窗口数据，根本不是用来精准定位某几行操作的😅。其实要实现你要的功能超简单，直接精准选中第3行和第6行，然后应用你的函数覆盖原数据就行，给你几种不同的实现方式：

基础R原生写法 #

假设你的DataFrame名叫df，用行索引直接定位目标行，然后赋值即可：

# 直接对第3、6行的所有列乘以0.5并覆盖原数据
df[c(3, 6), ] <- df[c(3, 6), ] * 0.5

如果你的逻辑需要封装成可复用的函数（比如以后要修改计算规则更方便），可以先定义函数再应用：

# 定义你的计算函数
multiply_by_half <- function(x) x * 0.5

# 对指定行的每一列应用函数
df[c(3, 6), ] <- lapply(df[c(3, 6), ], multiply_by_half)

tidyverse风格写法（dplyr） #

如果你平时习惯用tidyverse的语法，用row_number()判断行号，结合mutate和across就能优雅实现：

library(dplyr)

df <- df %>%
  mutate(across(everything(), ~ifelse(row_number() %in% c(3, 6), .x * 0.5, .x)))

这些方法都是直接针对你指定的行进行操作，完全不需要用到rollapply()——毕竟它的适用场景是类似“计算每一行与前两行的平均值”这种滑动窗口计算，和你现在精准修改特定行的需求完全不匹配~

内容的提问来源于stack exchange，提问作者Natasha R.