diff --git a/r/R/dplyr-collect.R b/r/R/dplyr-collect.R
index c3232c6ff72..08555cd9f3e 100644
--- a/r/R/dplyr-collect.R
+++ b/r/R/dplyr-collect.R
@@ -64,7 +64,7 @@ pull.Dataset <- function(.data,
   .data <- as_adq(.data)
   var <- vars_pull(names(.data), !!enquo(var))
   .data$selected_columns <- set_names(.data$selected_columns[var], var)
-  out <- dplyr::compute(.data)[[1]]
+  out <- dplyr::compute(.data)[[var]]
   handle_pull_as_vector(out, as_vector)
 }
 pull.RecordBatchReader <- pull.arrow_dplyr_query <- pull.Dataset
diff --git a/r/tests/testthat/test-dplyr-query.R b/r/tests/testthat/test-dplyr-query.R
index bab81a463e9..7c75a84234b 100644
--- a/r/tests/testthat/test-dplyr-query.R
+++ b/r/tests/testthat/test-dplyr-query.R
@@ -87,6 +87,7 @@ test_that("pull", {
     .input %>%
       filter(int > 4) %>%
       rename(strng = chr) %>%
+      group_by(dbl) %>%
       pull(strng) %>%
       as.vector(),
     tbl