如何在 R 中的数据框中向列值添加括号？

Question

我正在处理敏感数据，因此我创建了一个可以作为示例的假数据框。这就是我们正在合作的。

n    percent
4     36%
5     51%
6     61%
7     71%
8     84%
9     96%
10    100%

很简单。我想更改百分比列，以便这些值带有括号。所以本质上，我希望数据框看起来像这样：

n  Percent
4   (36%)
5   (51%)
6   (61%)

我意识到这将使它成为一个字符串，但这对于我的最终目的来说不是问题。我编写了一个函数，该函数将列返回为带括号的向量。

addparentheses <- function(x){paste("(", x, ")")}

addparentheses (sample_data$percent)

[1] "( 36% )" "( 51% )" "( 61% )" "( 71% )" "( 84% )" "( 96% )" "( 100% )"

我怎样才能写这样的东西，以便它实际上改变数据帧，而不仅仅是返回一个向量？

任何想法和见解都非常感谢。谢谢！！

Answer 1

library(dplyr)
x <- tibble(
  n = 4:10,
  pct = paste0(4:10, "%")
)

x <- x %>%
  mutate(pct = paste0("(", pct, ")"))

或者以 R 为基数

x$pct <- paste0("(", x$pct, ")")