在列中換行文本觀察

Question

我在我的數據框中有一列，此列包含由分隔的文本數據;

x1 =c ("Anal Exam Under ;", "Sigmoidoscopy;Colonoscopy; Esophagogastroduodenoscopy;" ,"Fistula     
Repair;Percutaneous Endo. G-Tube (PEG);" ,"Sigmoidoscopy;Anorectal Motility/Anorectal Manometry 
(ARMS);","Sigmoidoscopy;Colonoscopy;", "Procedure; Auditory Brain Stem ;", "Colonoscopy; EGD 
(Endoscopy Upper GI);", "Eye Exam; Lumbar Puncture; MRI Scan; 
EGD (Endoscopy Upper GI);", "EUS Upper GI (Endoscopic Ultrasound); Sigmoidoscopy;") 

x1 
[1] "Anal Exam Under ;"            
[2] "Sigmoidoscopy;Colonoscopy; Esophagogastroduodenoscopy;"   
[3] "Fistula Repair;Percutaneous Endo. G-Tube (PEG);"     
[4] "Sigmoidoscopy;Anorectal Motility/Anorectal Manometry (ARMS);" 
[5] "Sigmoidoscopy;Colonoscopy;"          
[6] "Procedure; Auditory Brain Stem ;"        
[7] "Colonoscopy; EGD (Endoscopy Upper GI);"       
[8] "Eye Exam; Lumbar Puncture; MRI Scan;\nEGD (Endoscopy Upper GI);" 
[9] "EUS Upper GI (Endoscopic Ultrasound); Sigmoidoscopy;" 

如何使文本換行到新行（不是新行），新的生產線，每當遇到該小區內;

例如第二和第三觀測

[2] "Sigmoidoscopy;Colonoscopy; Esophagogastroduodenoscopy;" 
    [3] "Fistula Repair;Percutaneous Endo. G-Tube (PEG);" 

，我希望它看起來像

[2] "Sigmoidoscopy;Colonoscopy; 
     Esophagogastroduodenoscopy;" 
    [3] "Fistula Repair; 
     Percutaneous Endo. G-Tube (PEG);" 

需要一些幫助，這樣做。

Answer 1

使用gsub()用前導和尾隨空白替換所有;的實例。

試試這個：

z <- gsub(" *; *\n* *", "\n", x1) 
cat(z) 

結果

Anal Exam Under 
Sigmoidoscopy 
Colonoscopy 
Esophagogastroduodenoscopy 
Fistula     
Repair 
Percutaneous Endo. G-Tube (PEG) 
Sigmoidoscopy 
Anorectal Motility/Anorectal Manometry 
(ARMS) 
Sigmoidoscopy 
Colonoscopy 
Procedure 
Auditory Brain Stem 
Colonoscopy 
EGD 
(Endoscopy Upper GI) 
Eye Exam 
Lumbar Puncture 
MRI Scan 
EGD (Endoscopy Upper GI) 
EUS Upper GI (Endoscopic Ultrasound) 
Sigmoidoscopy