将R dataframe中的两行替换为包含其平均值的一行

row1 <- 1  # 第一行的索引
row2 <- 2  # 第二行的索引
col1 <- 1  # 第一列的索引
coln <- ncol(df)  # 最后一列的索引

mean_values <- apply(df[row(row1, row2), col(col1, coln)], 2, mean)

df <- rbind(df[-c(row1, row2), ], mean_values)

# 计算平均值
row1 <- 1  # 第一行的索引
row2 <- 2  # 第二行的索引
col1 <- 1  # 第一列的索引
coln <- ncol(df)  # 最后一列的索引

mean_values <- apply(df[row(row1, row2), col(col1, coln)], 2, mean)

# 替换两行为平均值
df <- rbind(df[-c(row1, row2), ], mean_values)