r - 在R中动态复制带后缀的数据框列

Question

我正在寻找一种方法来复制列“col1”x 次，并将这些副本中的每一个附加到字符向量中的 x 个字符串中。例子：

df <- data.frame(col1 = c(1,2,3,4,5))
suffix <- c("a", "b", "c")

导致：

df_suffix <- data.frame(col1 = c(1,2,3,4,5), col1_a = c(1,2,3,4,5), col1_b = c(1,2,3,4,5), col1_c = c(1,2,3,4,5))

  col1 col1_a col1_b col1_c
1    1      1      1      1
2    2      2      2      2
3    3      3      3      3
4    4      4      4      4
5    5      5      5      5

Answer 1

您可以使用paste()在 内部创建新列df，并为它们分配第一列的值：

df[,paste(names(df), suffix, sep = "_")] <- df[,1]
#  col1 col1_a col1_b col1_c
#1    1      1      1      1
#2    2      2      2      2
#3    3      3      3      3
#4    4      4      4      4
#5    5      5      5      5