やりたいことは、文字列の結合

こういうデータフレームを、

こうしたい。行方向（横方向）に文字列を結合して、新しい列を作る。

または、こうしたい。列方向（縦方向）に文字列を結合。labelをグループとしてlabel2をまとめてます。

Rのコード

以下のコードで、上の変形ができます。

library(dplyr)
library(tidyr)
#サンプルデータを作る
sample <- data.frame(
  id=1:6
  ,label=c("aaa","aaa","bbb","bbb","ccc","ccc")
  ,label2=c("あああ","いいい","ううう","えええ","おおお","かかか")
)

#行方向（横方向）に文字列を結合。uniteを使用。mutateとpasteでもできるけどuniteのほうが簡単。
#結合に使った列を消すなら、remove=T。結合に使う文字はsepで指定。
sample_col <- sample %>% unite(new_label,label,label2,remove=F,sep="_")

# 列方向（縦方向）に文字列を結合。
# group_byしてからsummariseの中でpaste0を使う。結合に使う文字はcollapseで指定。
sample_row <- sample %>% group_by(label) %>% 
    summarise(new_label = paste0(label2,collapse="-"))

分解もしたい（1列→複数列に）

これを

このように列に分解するなら、

以下のコードでOK。

library(tidyr)
# サンプルデータを作成
sample <- data.frame(
  id=1:6
  ,label=c("aaa_あああ","aaa_いいい","bbb_ううう","bbb_えええ","ccc_おおお","ccc_かかか")
)
# separateを使用。分解の区切り文字はsepで指定。分解後の列名はintoで指定。intoの数が合わない分は消えちゃいます。
sample_col <- sample %>% separate(label,into=c("new_label1","new_label2"),sep="_")

分解もしたい（1列→複数「行」に）

これを

このように行に分解するなら、

以下のコードでOK。

library(tidyr)
# サンプルデータを作成
sample <- data.frame(
  id=1:6
  ,label=c("aaa_あああ","aaa_いいい","bbb_ううう","bbb_えええ","ccc_おおお","ccc_かかか")
)
# separate_rowsを使用。分解に使う区切り文字はsepで指定。
sample_row <- sample %>% separate_rows(label,sep="_")

おわり

おわりです。お疲れ様でした。