要按组重新排序ggplot的facet_wrap作为列，可以使用facet_grid函数，并在其中使用reorder函数对分组变量进行重新排序。

以下是一个示例代码：

library(ggplot2)

# 创建一个数据框
df <- data.frame(
  x = rep(LETTERS[1:3], 4),
  y = rnorm(12),
  group = rep(c("Group 1", "Group 2"), each = 6)
)

# 使用reorder函数对group变量重新排序
df$group <- reorder(df$group, df$x)

# 使用facet_grid函数，并将group作为列
ggplot(df, aes(x, y)) +
  geom_point() +
  facet_grid(. ~ group, scales = "free_x", space = "free_x")

在这个示例中，我们首先创建了一个包含分组变量的数据框。然后使用reorder函数对分组变量进行重新排序，使其按照x变量的顺序排列。最后，使用facet_grid函数，并将group作为列，生成了一个包含按组重新排序的facet_wrap的图形。