以下是一个示例代码，展示了如何按照R程序中的分组然后筛选，在每一行上添加值。

# 创建一个包含分组和筛选条件的数据集
df <- data.frame(
  group = c("A", "A", "B", "B", "C", "C"),
  value = c(10, 15, 20, 25, 30, 35)
)

# 定义一个函数，在每一行上添加值
add_value <- function(group, value, condition) {
  # 按照分组和筛选条件进行操作，并返回结果
  if (condition) {
    return(value + 5)
  } else {
    return(value - 5)
  }
}

# 使用dplyr库进行分组和筛选操作
library(dplyr)
df <- df %>%
  group_by(group) %>%
  mutate(new_value = add_value(group, value, value > 20))

# 打印结果
print(df)

在上述代码中，我们首先创建了一个包含分组和值的数据集。然后，我们定义了一个名为add_value的函数，该函数根据给定的分组，值和条件，在每一行上添加一个新的值。接下来，我们使用dplyr库中的group_by和mutate函数对数据集进行分组和筛选操作。最后，我们打印结果。

请注意，您可能需要在使用示例代码之前安装和加载dplyr库。您可以在R中使用以下命令来安装dplyr库：

install.packages("dplyr")

然后，您可以使用以下命令来加载dplyr库：

library(dplyr)