要在facet_wrap中显示按组别分组的均值和观察值，可以使用ggplot2包和dplyr包。下面是一个示例代码：

library(ggplot2)
library(dplyr)

# 创建一个示例数据集
df <- data.frame(
  group = rep(c("A", "B", "C"), each = 10),
  value = rnorm(30)
)

# 使用dplyr计算每个组的均值
df_mean <- df %>%
  group_by(group) %>%
  summarise(mean_value = mean(value))

# 使用ggplot2绘制图形
ggplot(df, aes(x = group, y = value)) +
  geom_point() +
  geom_line(data = df_mean, aes(y = mean_value), color = "red") +
  facet_wrap(~ group, nrow = 1)

这段代码首先创建了一个示例数据集df，其中包含了一个组别变量group和一个观察值变量value。然后使用dplyr包的group_by和summarise函数计算了每个组的均值，并将结果存储在df_mean中。

接下来使用ggplot2包绘制图形。通过aes函数指定x轴为group，y轴为value。然后使用geom_point函数绘制观察值的散点图，使用geom_line函数绘制均值的折线图，颜色为红色。最后使用facet_wrap函数将图形分组显示，按照group变量的不同值进行分组。

运行这段代码后，你将得到一个包含按组别分组的均值和观察值的facet_wrap图形。