添加geom_point时遇到断面

Question

使用gapminder（已删除科威特数据）。我正在尝试按大陆对我的地块进行分面，并且这种方法一直有效……直到我尝试将geom_point添加到我的地块中。可与线几何一起使用，所以我不知道问题的根源是什么。

# Loading relevant libraries
library(gapminder)
library(ggplot2)

# Removing the Kuwait data, because that screws up the plots
gapminderPrime <- gapminder[gapminder$country != "Kuwait"]

# The actual plot
gapminderPrime %>%
  ggplot(aes(x = year, y = gdpPercap, group = country, color = continent)) +
  geom_line() +
  geom_point(aes(size = pop / 100000))
  facet_wrap(gapminderPrime$continent, nrow = 1)

我希望在一行中包含五个构面，只要注释掉geom_point行，它就可以工作。但是，当线条保留在其中时，会将所有内容拖到一组没有面的轴上。