R - 清理不同位置的重复列的数据

#Edited 以使我的数据更类似于我正在使用的数据以及我尝试过的示例

我正在使用 Qualtrics 调查，其中使用调查构建中称为“循环和合并”的功能根据以前的问题重复问题块。我正在尝试提取类似的问题，然后使用 rbind 以便每个问题仅在列中显示一次。我在下面有一个基本示例，但是在我的实际数据中，重复发生了 36 次。

示例数据框：

dat <- data.frame("1_q1" = 1:4,
                  "1_q2" = c("a", "b", "c", "d"),
                  "2_q1" = 22:25,
                  "2_q2" = c("i", "j", "k", "l"),
                  "3_q1" = 90:93,
                  "3_q2" = c("p", "q", "r", "s"), check.names = FALSE)

请注意；1\uquot；在开始时；1\u q1“；是县的参考号

我能做的是效率低下，尤其是因为我的实际数据重复了36次这些问题：

dat_1 <- dat %>%
  select(1:2) %>%
  rename(q = 1:2) %>%
  mutate("county" = 1)
                  
dat_2 <- dat %>%
  select(3:4) %>%
  rename(q = 1:2) %>%
  mutate("county" = 2)

dat_3 <- dat %>%
  select(5:6) %>%
  rename(q = 1:2)%>%
  mutate("county" = 3)

dat_final <- rbind(dat_1, dat_2, dat_3)

“the”；dat\U最终版；数据框是我希望数据的外观，但也在此处重新格式化：

dat_clean <- data.frame("q1" = c(1:4, 22:25, 90:93),
                        "q2" = c("a", "b", "c", "d", 
                                 "i", "j", "k", "l", 
                                 "p", "q", "r", "s"),
                        "county" = c(1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 3))

我很讨厌循环，但厌倦了代码效率低下。