将文本观察结果包装在列中

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