要按年份排序并改变facet wrap中各个分面的位置，可以使用ggplot2包来实现。

下面是一个示例代码，演示了如何按年份排序并改变facet wrap中各个分面的位置：

library(ggplot2)

# 创建一个示例数据集
data <- data.frame(
  year = c(2010, 2010, 2011, 2011, 2012, 2012),
  value = c(10, 15, 12, 17, 11, 16),
  group = c("A", "B", "A", "B", "A", "B")
)

# 按年份排序
data$year <- factor(data$year, levels = unique(data$year))

# 创建绘图对象
p <- ggplot(data, aes(x = group, y = value)) +
  geom_bar(stat = "identity") +
  facet_wrap(~ year, ncol = 3) +
  labs(x = "Group", y = "Value", title = "按年份排序的分面图")

# 改变分面位置
p <- p + theme(strip.placement = "outside")

# 打印绘图对象
print(p)

在这个示例中，首先将年份列转换为因子变量，并指定按照唯一值的顺序进行排序。然后，使用ggplot函数创建绘图对象，并指定x轴为group，y轴为value。接下来，使用geom_bar函数创建柱状图，并使用facet_wrap函数将数据按照year进行分面处理，同时指定每行显示3个分面。最后，使用labs函数设置x轴、y轴和标题的标签。

为了改变分面位置，使用theme函数将strip.placement参数设置为"outside"，这样分面标签就会显示在图形的外部。

最后，使用print函数打印绘图对象，即可生成按年份排序并改变facet wrap中各个分面位置的分面图。