私は異なる種類の文字列を持つデータフレームを持っています。私はそれ自体の中で文字列を複製し、NAの値を保持し、2桁の文字列はそれぞれNAと2桁のままにします。Rデータフレームに文字列を追加
DF:
Milk Cola Juice Coffee Tea Wine
1 A NA A BD C A
2 AB NA C D CD AD
3 A BC AC D D D
4 AB B NA D CD AD
5 B C AC BD CD NA
6 AB BC C NA NA A
7 NA BC A B NA A
Desired output:
Milk Cola Juice Coffee Tea Wine
1 AA NA AA BD CC AA
2 AB NA CC DD CD AD
3 AA BC AC DD DD DD
4 AB BB NA DD CD AD
5 BB CC AC BD CD NA
6 AB BC CC NA NA AA
7 NA BC AA BB NA AA
ありがとうございます。その後、
dat[] <- lapply(dat, function(x) sub("^(.)$", "\\1\\1", x))
それとも、本当にスカッシュコードするつもりなら:ここ