r - tidyr::pop_quiz: anscombe データセットを再形成するためのより高速で透過的な方法はありますか?

Question

上手になろうとしていtidyrます。anscombeでプロットするためにデータセットを準備するより良い方法はありggplot2ますか? 具体的には、データを追加する必要がありません ( obs_num)。これをどのように行いますか？

library(tidyverse)
library(datasets)

anscombe %>%
  mutate(obs_num = 1:n()) %>%
  gather(variable, value, -obs_num) %>%
  separate(variable, c("variable", "set"), 1) %>%
  spread(variable, value) %>%
  ggplot(aes(x = x, y = y)) +
  geom_point() +
  stat_smooth(method = "lm", se = FALSE, fullrange = TRUE) +
  facet_wrap(~set)