使用R在效果图上调整x值

Question

我正在完成任务，我必须使用2008年11月以来所有航空公司的数据子集创建效果图。这就是我所拥有的：

library(lattice)

airline <- airline_cleaned

attach(airline)

airline$ArrDelay=log(ArrDelay+25.1)

selectAirlines <- subset(airline, UniqueCarrier=="AA" | UniqueCarrier=="UA" | UniqueCarrier=="NW")

attach(selectAirlines)


trace <- rep(1,length(selectAirlines$UniqueCarrier))

interaction.plot(selectAirlines$UniqueCarrier, trace, selectAirlines$ArrDelay, fun=mean, legend=F)

这是输出：

但我的子集只有AA，UA和NW作为UniqueCarrier类型。所以，我不明白为什么它包括所有其他类型。

这应该是这样的：

有人可以帮助我理解这一点，以及如何更改它以便它只显示AA，UA和NW？

非常感谢！