使用 sep 参数放置双圆括号

Question

我想用双括号结束我试图合并的第二列

library(tidyr)

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

为此目的，我使用

sep argument

但我不知道是否可以使用此方法。如果没有，您能提供一些其他例子吗？

这是所需的输出

                           A
1 20.090625 (6.0269480520891)

Answer 1

我认为

paste

、

sprintf

和

glue

都是比

unite

更自然的选择。

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)