R ggplot2 facet_wrap没有根据因子级别更改数据

Question

我正在尝试使用facet_wrap将我的数据框分解为基于一列的各个图。但是，当我使用级别时，每个单独图上方的标题都会更改，但图表中显示的数据不会更改。

这是一个例子：

library(reshape2)

library(ggplot2)

levels(tips$sex) <- c("Male", "Female")
ggplot(tips, aes(x=total_bill, y=tip/total_bill))+
  facet_wrap(~sex)+
  geom_point(shape=1)

ggsave("prac.pdf")

这给了我一个情节，左边是男，右边是女。 y数据的最高点在女性图中。如果我更改级别并首先拥有“女性”，则女性标签将显示在左侧，但y数据的最高点现在在男性下方，而仍在右侧。

levels(tips$sex) <- c("Male", "Female")
ggplot(tips, aes(x=total_bill, y=tip/total_bill))+
  facet_wrap(~sex)+
  geom_point(shape=1)

ggsave("prac.pdf") 

有什么建议吗？我正在使用其他值的数据框架，但是上面的示例显示了我遇到的相同问题。