Data.frame条件に基づいて値をコピーして貼り付けます

Question

以下の構造体/値を持つデータフレームがあり、データフレームを（行単位で）調べ、最初の列（ "One" ）他の列のセル、彼らはNAでない場合にのみへ：

マイデータ：

One   Two Three Four 
1 Bar_2_Foo NA NA  1 
2 Mur_4_Doo  1 NA  2 
3 Bur_3_Hoo NA  1 NA 

私が達成したいこと：

One   Two Three Four 
1 Bar_2_Foo NA NA  Bar_2_Foo_1 
2 Mur_4_Doo Mur_4_Doo_1 NA  Mur_4_Doo_2 
3 Bur_3_Hoo NA  Bur_3_Hoo_1 NA 

どのようにこれを達成するためのアイデアは素晴らしいだろう。ありがとう。

Answer 1

これはあなたが探しているものですか？

mutate_at(data, Two:Four, function(i){ 
    ifelse(!is.na(i), paste0(One, "_", i), i) })