您可以在rename_with(.cols = your_columns)中提供多个列，并使用函数应用于选定列。在这里，问题编号（点之前的数字）被捕获（(\\d+)），整个列名被替换为该数字（regex捕获组1 \\1）。
如果省略.cols参数，则默认情况下将选择所有列。

library(dplyr)

# dummy df
df <- tibble("1. What team most describes your work?" = "1",
             "2. Are you a manager?" = "2",
             "3. How long have you been with x?" = "3")

df %>% rename_with(~sub("(\\d+)\\..*$", "\\1", .x))

# A tibble: 1 × 3
  `1`   `2`   `3`  
  <chr> <chr> <chr>
1 1     2     3

还有更简洁的解决方案，其中之一是str_extract：

library(stringr)
df %>% rename_with(~str_extract(., "\\d+"))

这里我们提取名称字符串中的第一个数字。
另一种是str_remove：

df %>% rename_with(~str_remove(., "\\..*"))

在这里我们去掉这一时期以后的任何东西。
数据（感谢@benson）：

df <- tibble("1. What team most describes your work?" = "1",
             "2. Are you a manager?" = "2",
             "3. How long have you been with x?" = "3")