基于列数的数据帧重塑

Question

我有一个2列100,000行数据框，如下所示：

Count               String
3                 "Hello World"
2                  "Hi John"
1                  "Dear Joe"

我想将此数据帧重新整形为1列数据帧，删除计数，然后添加重复项。如，

String 
"Hello World"
"Hello World"
"Hello World"
"Hi John"
"Hi John"
"Dear Joe"

Answer 1

尝试

one_col_df <- data.frame(String = rep(df$String, df$Count))

对于每个String，函数rep将重复Count次，尊重它们在向量中的顺序。

Answer 2

这是一种方法。

a <- c(3:1)
foo <- c("hello", "hi", "dear")

rep(foo, a)

[1] "hello" "hello" "hello" "hi"    "hi"    "dear"