如何使用ggplot在同一轴上绘制2个相关变量？

Question

我试图在“摩门教之书”（一本与圣经类似的宗教书籍）中编写每章和每节经文的字数。我已经将每章的字数设置为y变量。对于X轴，我已经创建了标签，并按照摩门教之书中各自的章节订购了书籍（例如，1 Nephi实际上是摩门教之书的第一部分，Moroni实际上是最后一部分。摩门教之书）。

问题是我想分开章节。例如，1 Nephi有27章，我希望根据章节编号进行一些排序。这似乎是一个棘手的问题，因为每本书都有不同的章节。

我很好奇别人怎么想我可以接近这个。这是我迄今为止所拥有的代码。

要清楚，我正试图通过章节编号和书号来分析x轴上的数据。

BookOrdering <- c("1 Nephi", "2 Nephi", "Jacob", "Enos", "Jarom", "Omni", "Words of Mormon", "Mosiah", "Alma","Helaman","3 Nephi","4 Nephi", "Mormon", "Ether", "Moroni")

BoM %>%
  mutate(book_title = factor(book_title, levels = BookOrdering)) %>%
  ggplot(aes(y = lengths(gregexpr("\\W+", scripture_text)) + 1, x = book_title)) +
  labs(x="Book (ordered by position in the Book of Mormon)", y="Words in Chapter") + 
  geom_point()