R 带刻面的有序ggplot2点图

我正在从复制此点图的一个版本。代码如下

我想让情节和钥匙按照呈现的顺序相匹配。这可以通过重新排序变量Id来出现，如图中所示，即特雷西、勒布朗、科比、安东尼。反之亦然，并重新排列键。我尝试过用几种方法对因子重新排序，但键中的顺序总是与绘图中的顺序相反

如何重新排序，使演示文稿保持一致

Kobe=c(31.6, 28.3, 26.8, 27.0, 24.8)
LeBron=c(27.3, 30.0, 28.4, 29.7, 26.0)
Tracy=c(24.6, 21.6, 15.6, 8.6, 8.5)
Anthony=c(28.9, 25.7, 22.8, 28.2, 25.3)
year=c(2006, 2007, 2008, 2009, 2010)

data1=cbind(Kobe, LeBron, Tracy, Anthony)

data=data.frame(data1,row.names=year)

d=data.frame(Year=dimnames(data)[[1]],stack(data))

p=ggplot(d, aes(values, ind, color=ind))
p + geom_point()+ facet_wrap(~Year, ncol=1)

---

您可以使用

因子和指定级别顺序的字符向量对级别进行排序：

d$ind <- factor(d$ind, levels = unique(d$ind))

这将用作
y
轴的变量

library(ggplot2)
ggplot(d, aes(x = values, y = ind2, color = ind)) +
  geom_point() + facet_wrap(~ Year, ncol = 1)

这并不能回答这个问题。安东尼现在在y轴排名第一，而科比在右边的关键点排名第一。我的问题：如何重新排序，使Anthony在y轴上第一个，在键中第一个？
library(ggplot2)
ggplot(d, aes(x = values, y = ind2, color = ind)) +
  geom_point() + facet_wrap(~ Year, ncol = 1)