使用dplyr包和ggplot2包，先按照facet变量和x变量进行分组，然后计算每组的x均值，并将此作为新的排序依据，最后使用ggplot2包绘图并按照新的排序显示数据。

示例代码如下：

library(dplyr)
library(ggplot2)

# 创建示例数据
df <- data.frame(x = rnorm(50),
                 y = rnorm(50),
                 facet = rep(c("A", "B"), each = 25))

# 按照facet和x进行分组，计算每组的均值
# 并将均值作为新的排序依据
df_new <- df %>% 
  group_by(facet) %>% 
  mutate(x_bar = mean(x)) %>% 
  arrange(facet, desc(x_bar))

# 绘制图形
ggplot(df_new, aes(x = x, y = y, color = facet)) +
  geom_point() +
  facet_wrap(~facet, scales = "free") +
  scale_x_continuous(breaks = seq(-2, 2, by = 0.5)) +
  labs(title = "按照x均值重新排序的图形")

运行代码后，就会生成按照x均值重新排序后的图形。