組 1 的結果類型``在 dplyr mutate 中使用因子時出錯

Question

以下代碼向我拋出了一個錯誤：

dfTest <- structure(list(Year = c(2018, 2018, 2018, 2018, 2018, 2018, 2018, 
                        2018, 2018, 2018, 2018, 2019, 2019, 2019, 2019, 2019, 2019, 2019, 
                        2019, 2019, 2019, 2019, 2020, 2020, 2020, 2020, 2020, 2020, 2020, 
                        2020, 2020, 2020, 2020, 2021, 2021, 2021, 2021, 2021, 2021, 2021, 
                        2021, 2021, 2021, 2021)),
          class = c("grouped_df", "tbl_df", "tbl", "data.frame"),
          row.names = c(NA, -44L),
          groups = structure(list(
            Year = c(2018, 2019, 2020, 2021), 
            .rows = structure(list( 1:11, 12:22, 23:33, 34:44),
                              ptype = integer(0), class = c("vctrs_list_of", "vctrs_vctr", "list"))),
            class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, -4L), .drop = TRUE))

dfTest %>% mutate(Year = factor(Year, ordered = T))

錯誤是

Error in `mutate()`:
! Problem while computing `Year = factor(Year, ordered = T)`.
Caused by error:
! `Year` must return compatible vectors across groups.
ℹ Result type for group 1 (Year = 2018): <ordered<a0764>>.
ℹ Result type for group 2 (Year = 2019): <ordered<4e60d>>.
Run `rlang::last_error()` to see where the error occurred.

我沒有立即在網上找到答案，所以我認為這可能會引起社區的興趣。

Answer 1

這里的問題似乎是嘗試對grouped變量使用factor函數會導致錯誤。 只需添加一個ungroup步驟即可解決問題：

dfTest <- structure(list(Year = c(2018, 2018, 2018, 2018, 2018, 2018, 2018, 
                        2018, 2018, 2018, 2018, 2019, 2019, 2019, 2019, 2019, 2019, 2019, 
                        2019, 2019, 2019, 2019, 2020, 2020, 2020, 2020, 2020, 2020, 2020, 
                        2020, 2020, 2020, 2020, 2021, 2021, 2021, 2021, 2021, 2021, 2021, 
                        2021, 2021, 2021, 2021)),
          class = c("grouped_df", "tbl_df", "tbl", "data.frame"),
          row.names = c(NA, -44L),
          groups = structure(list(
            Year = c(2018, 2019, 2020, 2021), 
            .rows = structure(list( 1:11, 12:22, 23:33, 34:44),
                              ptype = integer(0), class = c("vctrs_list_of", "vctrs_vctr", "list"))),
            class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, -4L), .drop = TRUE))

dfTest %>%
ungroup %>%
mutate(Year = factor(Year, ordered = T))