using sep argumnt to put double rounded parenthesis

Question

I would like to close in double parenthesis the second column I am trying to unite

library(tidyr)

mtcars %>% 
  summarise(mean = mean(mpg), 
            sd = sd(mpg)) %>% 
  tidyr::unite('A', 1:2, sep = ' (')

On this purpose I am using the sep argument but I do not know whether it is possible somehow or not using this method. If not could you please provide some other example?

This is the desired output

                           A
1 20.090625 (6.0269480520891)

Answer 1

I think paste, sprintf, and glue are all more natural choices than unite for this.

library(dplyr)
library(glue)
mtcars %>% 
  summarise(mean = mean(mpg), 
            sd = sd(mpg)) %>% 
  mutate(
    paste = paste0(mean, " (", sd, ")"),
    sprintf = sprintf("%s (%s)", mean, sd),
    glue = glue("{mean} ({sd})")
  )
#       mean       sd                      paste                     sprintf
# 1 20.09062 6.026948 20.090625(6.0269480520891) 20.090625 (6.0269480520891)
#                          glue
# 1 20.090625 (6.0269480520891)

Answer 2

just add the parentheses before unite

mtcars %>% 
  summarise(mean = mean(mpg), 
            sd = sd(mpg)) %>% 
  mutate(sd = paste0('(', sd, ')')) %>% 
  tidyr::unite('A', 1:2, sep = ' ')