从文本和序列编号中创建一个带有Rownames paste0的新数据框

Question

hej，

这可能以前已经对此进行了审查，加上我的R技能正在变得生锈，但我正在尝试生成一个新的数据框架，其中将从两个列数据框架中从字符串和效果 /序列编号中生成Rownames。

为了更有意义，我的数据框看起来像：

IND Effect
A 3
B 2
C 4

read.table(text = "IND Effect
A 3
B 2
C 4", h = T)

我想要

IND
A_1
A_2
A_3
B_1
B_2
C_1
C_2
C_3
C_4

在新的数据框架上类似的东西。我尝试了：

new = mapply(function(x, y) paste0(rep(x, y), collapse = "_"), IND , Effect)

但是不按照我的意愿工作。

Answer 1

您可以在seq_len（）函数的帮助下：

df <- data.frame(ind = c("A", "B", "C"), 
                 effect = c(3, 2, 4))

paste(rep(df$ind, df$effect),
      unlist(sapply(df$effect, seq_len)), 
      sep = "_")
[1] "A_1" "A_2" "A_3" "B_1" "B_2" "C_1" "C_2" "C_3" "C_4"

Answer 2

使用mapply：

m <- mapply(paste, df$ind, sapply(df$effect, seq), sep = "_")

输出

unlist(m)
#   A1    A2    A3    B1    B2    C1    C2    C3    C4 
#"A_1" "A_2" "A_3" "B_1" "B_2" "C_1" "C_2" "C_3" "C_4"

#or, as a data.frame object:
data.frame(new = unname(unlist(m)))
#  new
#1 A_1
#2 A_2
#3 A_3
#4 B_1
#5 B_2
#6 C_1
#7 C_2
#8 C_3
#9 C_4

数据

df <- data.frame(ind = c("A", "B", "C"), 
                 effect = c(3, 2, 4))