r - 使用列名称为列内容添加前缀/后缀

Question

我想改变数据框的列内容，以便单元格内容以列名作为前缀:

> x <- data.frame(VarX = rep(c("A","B"),2), VarY = rep(c("C","D"),2))
> x
  VarX VarY
1    A    C
2    B    D
3    A    C
4    B    D
> x$VarX <- paste0("VarX", x$VarX)
> x$VarY <- paste0("VarY", x$VarY)
> x
   VarX  VarY
1 VarXA VarYC
2 VarXB VarYD
3 VarXA VarYC
4 VarXB VarYD

但一般来说。我得到的最远关闭时间是:

x <- data.frame(VarX = rep(c("A","B"),2), VarY = rep(c("C","D"),2))
columns = c("VarX", "VarY")

for(col in columns)
{
  x <- x %>% mutate_at( .vars = col, ~paste0(col, .) )
}
x

但我不喜欢 for 循环。谁能改进代码？

另请注意处理 x 列选择的代码。

x <- data.frame(VarX = rep(c("A","B"),2), VarY = rep(c("C","D"),2),
  num = 1:4)

我只想修改 VarX 和 VarY 列。

Answer 1

我们可以使用imap，如果我们需要提取，它还会包含每一列的列名。在这里，我们将列名 (.y) 与列值 (.x)粘贴

library(tidyverse)
imap(x, ~ paste0(.y, .x)) %>%
    bind_cols
# A tibble: 4 x 2
#  VarX  VarY 
#   <chr> <chr>
#1 VarXA VarYC
#2 VarXB VarYD
#3 VarXA VarYC
#4 VarXB VarYD

编辑:基于@Moody_Mudskipper 的评论

imap_dfc(x, ~ paste0(.y, .x))

---

或者使用 base R，我们将“x”的复制列名粘贴到“x”的矩阵，并将其分配给初始数据框

x[] <- paste0(rep(colnames(x), each = nrow(x)), as.matrix(x))
x
#   VarX  VarY
#1 VarXA VarYC
#2 VarXB VarYD
#3 VarXA VarYC
#4 VarXB VarYD