`grouped_summary` fails with `Error: Names must be unique`

Reported here: https://github.com/IndrajeetPatil/ggstatsplot/issues/396

This is because the dataframe contains a column called "variable".

Minimal reprex:

library(tidyverse)
library(ggstatsplot)
#> Registered S3 method overwritten by 'broom.mixed':
#>   method      from 
#>   tidy.gamlss broom
#> Registered S3 methods overwritten by 'car':
#>   method                          from
#>   influence.merMod                lme4
#>   cooks.distance.influence.merMod lme4
#>   dfbeta.influence.merMod         lme4
#>   dfbetas.influence.merMod        lme4

df <- read.table(
  header = TRUE,
  text = "  hubei self other province
1 HuBei    7    10        5
2 HuBei    2     0        0
3 HuBei    0     0      -22
4 HuBei    2     2        9
5 HuBei   11    -1       -4
6 HuBei    0     0        3
"
)

long_df <-
  tidyr::pivot_longer(df, 2:4, names_to = "variable", values_to = "Emotion_rating")

groupedstats::grouped_summary(long_df, variable, Emotion_rating)
#> Error: Names must be unique.

> rlang::last_trace()
<error/vctrs_error_names_must_be_unique>
Names must be unique.
Backtrace:
     x
  1. +-groupedstats::grouped_summary(long_df, variable, Emotion_rating)
  2. | \-`%>%`(...)
  3. |   +-base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  4. |   \-base::eval(quote(`_fseq`(`_lhs`)), env, env)
  5. |     \-base::eval(quote(`_fseq`(`_lhs`)), env, env)
  6. |       \-groupedstats:::`_fseq`(`_lhs`)
  7. |         \-magrittr::freduce(value, `_function_list`)
  8. |           +-base::withVisible(function_list[[k]](value))
  9. |           \-function_list[[k]](value)
 10. |             +-dplyr::rename(.data = ., variable = skim_variable)
 11. |             \-dplyr:::rename.data.frame(.data = ., variable = skim_variable)
 12. |               \-tidyselect::vars_rename(names(.data), !!!enquos(...))
 13. |                 \-tidyselect:::rename_impl(NULL, .vars, quo(c(...)), strict = .strict)
 14. |                   +-tidyselect:::with_subscript_errors(...)
 15. |                   | +-base::tryCatch(...)
 16. |                   | | \-base:::tryCatchList(expr, classes, parentenv, handlers)
 17. |                   | |   \-base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
 18. |                   | |     \-base:::doTryCatch(return(expr), name, parentenv, handler)
 19. |                   | \-tidyselect:::instrument_base_errors(expr)
 20. |                   |   \-base::withCallingHandlers(...)
 21. |                   \-vctrs::vec_as_names(names, repair = "check_unique")
 22. \-vctrs:::validate_unique(names = names)
 23.   \-vctrs:::stop_names_must_be_unique(which(duplicated(names)))
 24.     \-vctrs:::stop_names(...)
 25.       \-vctrs:::stop_vctrs(...)

^{Created on 2020-03-17 by the reprex package (v0.3.0)}

Session info

``` r devtools::session_info() #> - Session info --------------------------------------------------------------- #> setting value #> version R Under development (unstable) (2020-02-28 r77874) #> os Windows 10 x64 #> system x86_64, mingw32 #> ui RTerm #> language (EN) #> collate English_United States.1252 #> ctype English_United States.1252 #> tz Europe/Berlin #> date 2020-03-17 #> #> - Packages ------------------------------------------------------------------- #> ! package * version date lib #> abind 1.4-5 2016-07-21 [1] #> assertthat 0.2.1 2019-03-21 [1] #> backports 1.1.5 2019-10-02 [1] #> base64enc 0.1-3 2015-07-28 [1] #> BayesFactor 0.9.12-4.2 2018-05-19 [1] #> bayestestR 0.5.2.1 2020-03-16 [1] #> bbmle 1.0.23.1 2020-02-03 [1] #> bdsmatrix 1.3-4 2020-01-13 [1] #> boot 1.3-24 2019-12-20 [2] #> bridgesampling 1.0-0 2020-02-26 [1] #> Brobdingnag 1.2-6 2018-08-13 [1] #> broom 0.5.3.9000 2020-03-01 [1] #> broom.mixed 0.2.4.9000 2020-03-09 [1] #> broomExtra 2.0.0.9000 2020-03-11 [1] #> callr 3.4.2 2020-02-12 [1] #> car 3.0-7 2020-03-11 [1] #> carData 3.0-3 2019-11-16 [1] #> cellranger 1.1.0 2016-07-27 [1] #> cli 2.0.2 2020-02-28 [1] #> cluster 2.1.0 2019-06-19 [2] #> coda 0.19-3 2019-07-05 [1] #> codetools 0.2-16 2018-12-24 [2] #> coin 1.3-1 2019-08-28 [1] #> colorspace 1.4-1 2019-03-18 [1] #> cowplot 1.0.0 2019-07-11 [1] #> crayon 1.3.4 2017-09-16 [1] #> curl 4.3 2019-12-02 [1] #> data.table 1.12.8 2019-12-09 [1] #> DBI 1.1.0 2019-12-15 [1] #> dbplyr 1.4.2 2019-06-17 [1] #> desc 1.2.0 2018-05-01 [1] #> DescTools 0.99.34 2020-03-12 [1] #> devtools 2.2.2 2020-02-17 [1] #> dichromat 2.0-0 2013-01-24 [1] #> digest 0.6.25 2020-02-23 [1] #> dplyr * 0.8.5 2020-03-07 [1] #> effectsize 0.2.0.1 2020-03-06 [1] #> ellipsis 0.3.0 2019-09-20 [1] #> emmeans 1.4.5 2020-03-04 [1] #> EMT 1.1 2013-01-29 [1] #> estimability 1.3 2018-02-11 [1] #> evaluate 0.14 2019-05-28 [1] #> expm 0.999-4 2019-03-21 [1] #> ez 4.4-0 2016-11-02 [1] #> fansi 0.4.1 2020-01-08 [1] #> fastGHQuad 1.0 2018-09-30 [1] #> fastmap 1.0.1 2019-10-08 [1] #> forcats * 0.5.0 2020-03-01 [1] #> foreign 0.8-75 2020-01-20 [2] #> fs 1.3.2 2020-03-05 [1] #> generics 0.0.2 2018-11-29 [1] #> ggcorrplot 0.1.3 2019-05-19 [1] #> ggExtra 0.9 2019-08-27 [1] #> ggplot2 * 3.3.0 2020-03-05 [1] #> ggrepel 0.8.2 2020-03-08 [1] #> ggsignif 0.6.0 2019-08-08 [1] #> ggstatsplot * 0.3.1.9000 2020-03-11 [1] #> glue 1.3.2 2020-03-12 [1] #> gridExtra 2.3 2017-09-09 [1] #> groupedstats 0.2.0 2020-02-28 [1] #> gtable 0.3.0 2019-03-25 [1] #> gtools 3.8.1 2018-06-26 [1] #> haven 2.2.0 2019-11-08 [1] #> highr 0.8 2019-03-20 [1] #> hms 0.5.3 2020-01-08 [1] #> htmltools 0.4.0 2019-10-04 [1] #> httpuv 1.5.2 2019-09-11 [1] #> httr 1.4.1 2019-08-05 [1] #> inline 0.3.15 2018-05-18 [1] #> insight 0.8.2.1 2020-03-16 [1] #> ipmisc 1.2.0.9000 2020-03-05 [1] #> jcolors 0.0.4 2019-05-22 [1] #> jmv 1.2.5 2020-02-17 [1] #> jmvcore 1.2.5 2020-02-05 [1] #> jsonlite 1.6.1 2020-02-02 [1] #> knitr 1.28 2020-02-06 [1] #> LaplacesDemon 16.1.4 2020-02-06 [1] #> later 1.0.0 2019-10-04 [1] #> lattice 0.20-40 2020-02-19 [2] #> libcoin 1.0-5 2019-08-27 [1] #> lifecycle 0.2.0.9000 2020-03-16 [1] #> lme4 1.1-21 2019-03-05 [1] #> lmtest 0.9-37 2019-04-30 [1] #> logspline 2.1.15 2019-11-08 [1] #> loo 2.2.0 2019-12-19 [1] #> lubridate 1.7.4 2018-04-11 [1] #> magrittr 1.5 2014-11-22 [1] #> mapproj 1.2.7 2020-02-03 [1] #> maps 3.3.0 2018-04-03 [1] #> MASS 7.3-51.5 2019-12-20 [2] #> Matrix 1.2-18 2019-11-27 [2] #> MatrixModels 0.4-1 2015-08-22 [1] #> matrixStats 0.56.0 2020-03-13 [1] #> mc2d 0.1-18 2017-03-06 [1] #> memoise 1.1.0 2017-04-21 [1] #> metaBMA 0.6.2 2019-09-16 [1] #> metafor 2.1-0 2019-05-14 [1] #> metaplus 0.7-11 2018-04-01 [1] #> mgcv 1.8-31 2019-11-09 [2] #> mime 0.9 2020-02-04 [1] #> miniUI 0.1.1.1 2018-05-18 [1] #> minqa 1.2.4 2014-10-09 [1] #> mnormt 1.5-6 2020-02-03 [1] #> modelr 0.1.6 2020-02-22 [1] #> modeltools 0.2-23 2020-03-05 [1] #> multcomp 1.4-12 2020-01-10 [1] #> multcompView 0.1-8 2019-12-19 [1] #> munsell 0.5.0 2018-06-12 [1] #> mvtnorm 1.1-0 2020-02-24 [1] #> nlme 3.1-144 2020-02-06 [2] #> nloptr 1.2.2.1 2020-03-11 [1] #> nortest 1.0-4 2015-07-30 [1] #> numDeriv 2016.8-1.1 2019-06-06 [1] #> oompaBase 3.2.9 2019-08-24 [1] #> openxlsx 4.1.4 2019-12-06 [1] #> pairwiseComparisons 0.2.5 2020-02-11 [1] #> paletteer 1.1.0 2020-03-10 [1] #> palr 0.2.0 2020-01-30 [1] #> pals 1.6 2019-12-04 [1] #> parameters 0.6.0 2020-03-12 [1] #> pbapply 1.4-2 2019-08-31 [1] #> performance 0.4.4.1 2020-03-11 [1] #> pillar 1.4.3 2019-12-20 [1] #> pkgbuild 1.0.6 2019-10-09 [1] #> pkgconfig 2.0.3 2019-09-22 [1] #> pkgload 1.0.2 2018-10-29 [1] #> plyr 1.8.6 2020-03-03 [1] #> prettyunits 1.1.1 2020-01-24 [1] #> processx 3.4.2 2020-02-09 [1] #> promises 1.1.0 2019-10-04 [1] #> ps 1.3.2 2020-02-13 [1] #> psych 1.9.12.31 2020-01-08 [1] #> purrr * 0.3.3 2019-10-18 [1] #> R6 2.4.1 2019-11-12 [1] #> rcompanion 2.3.25 2020-02-09 [1] #> Rcpp 1.0.4 2020-03-17 [1] #> readr * 1.3.1 2018-12-21 [1] #> readxl 1.3.1 2019-03-13 [1] #> rematch2 2.1.0 2019-07-11 [1] #> remotes 2.1.1 2020-02-15 [1] #> repr 1.1.0 2020-01-28 [1] #> reprex 0.3.0 2019-05-16 [1] #> reshape 0.8.8 2018-10-23 [1] #> reshape2 1.4.3 2017-12-11 [1] #> rio 0.5.16 2018-11-26 [1] #> rjson 0.2.20 2018-06-08 [1] #> rlang 0.4.5 2020-03-01 [1] #> rmarkdown 2.1 2020-01-20 [1] #> rprojroot 1.3-2 2018-01-03 [1] #> rstan 2.19.3 2020-02-11 [1] #> rstantools 2.0.0 2019-09-15 [1] #> rstudioapi 0.11 2020-02-07 [1] #> rvest 0.3.5 2019-11-08 [1] #> sandwich 2.5-1 2019-04-06 [1] #> scales 1.1.0 2019-11-18 [1] #> scico 1.1.0 2018-11-20 [1] #> sessioninfo 1.1.1 2018-11-05 [1] #> shiny 1.4.0.2 2020-03-13 [1] #> sjlabelled 1.1.3 2020-01-28 [1] #> sjmisc 2.8.3 2020-01-10 [1] #> sjstats 0.17.9 2020-02-06 [1] #> skimr 2.1 2020-02-01 [1] #> StanHeaders 2.21.0-1 2020-01-19 [1] #> statsExpressions 0.3.1 2020-02-14 [1] #> stringi 1.4.6 2020-02-17 [1] #> stringr * 1.4.0 2019-02-10 [1] #> survival 3.1-8 2019-12-03 [2] #> testthat 2.3.2 2020-03-02 [1] #> TH.data 1.0-10 2019-01-21 [1] #> tibble * 2.1.3 2019-06-06 [1] #> tidyr * 1.0.2 2020-01-24 [1] #> tidyselect 1.0.0 2020-01-27 [1] #> tidyverse * 1.3.0 2019-11-21 [1] #> D TMB 1.7.16 2020-01-15 [1] #> usethis 1.5.1.9000 2020-03-16 [1] #> vctrs 0.2.4 2020-03-10 [1] #> viridisLite 0.3.0 2018-02-01 [1] #> withr 2.1.2 2018-03-15 [1] #> WRS2 1.0-0 2019-06-06 [1] #> xfun 0.12 2020-01-13 [1] #> xml2 1.2.5 2020-03-11 [1] #> xtable 1.8-4 2019-04-21 [1] #> yaml 2.2.1 2020-02-01 [1] #> zeallot 0.1.0 2018-01-28 [1] #> zip 2.0.4 2019-09-01 [1] #> zoo 1.8-7 2020-01-10 [1] #> source #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> Github (easystats/bayestestR@6ee7e37) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> Github (tidymodels/broom@3c922d5) #> Github (bbolker/broom.mixed@c2587ef) #> Github (IndrajeetPatil/broomExtra@d28ba11) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> Github (easystats/effectsize@64bfbc3) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> local #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> Github (easystats/insight@e0b229b) #> local #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> Github (r-lib/lifecycle@355dcba) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> Github (easystats/performance@913fee0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> Github (r-lib/usethis@3e7c8b2) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> CRAN (R 4.0.0) #> #> [1] C:/Users/inp099/Documents/R/win-library/4.0 #> [2] C:/Program Files/R/R-devel/library #> #> D -- DLL MD5 mismatch, broken installation. ```

IndrajeetPatil / groupedstats

`grouped_summary` fails with `Error: Names must be unique` #24