在R语言中，可以使用dplyr包来按组别过滤并用平均值替换NA值。以下是一个示例代码：

library(dplyr)

# 创建示例数据框
df <- data.frame(
  group = c("A", "A", "B", "B", "B", "C"),
  value = c(1, 2, NA, 4, 5, 6)
)

# 按组别过滤并用平均值替换NA值
df_filtered <- df %>%
  group_by(group) %>%
  mutate(value = ifelse(is.na(value), mean(value, na.rm = TRUE), value))

# 打印结果
print(df_filtered)

在上面的代码中，我们首先加载dplyr包。然后，我们创建了一个示例数据框df，其中包含一个组别列和一个数值列。接下来，我们使用dplyr的group_by函数按组别分组。然后，我们使用mutate函数来替换NA值。在mutate函数中，我们使用ifelse函数来检查是否为NA值，如果是，则用mean函数计算组别内的平均值并替换NA值，否则保持原值不变。最后，我们将结果保存在df_filtered中并打印出来。

注意：在这个示例中，我们假设每个组别至少有一个非NA值。如果某个组别全部都是NA值，那么mean函数将返回NA值，且无法替换。