R:折叠特定格式的数据行

Question

我有以下数据

df1
             Col1              Col2       Col3  Col4    Col5
26287849 "N Engl J Med"    "2015 Aug 20" "373"  "8"    "726-36"   
25979833 "Eur J Cancer"    "2015 Jul"    "51"   "11"   "1405-14"  
25667274 "J Clin Oncol"    "2015 Mar 20" "33"   "9"    "1000-7"   
25430497 "J Clin Pathol"   "2015 Feb"    "68"   "2"    "111-8" 

我正在尝试折叠数据文件中的每一行，以便输出格式如下所示。有2列，PMID和参考。一种特定的参考格式。任何输入都是有帮助的。谢谢。

 PMID       Reference
 26287849 N Engl J Med. 2015 Aug 20;373(8):726-36
 25979833 Eur J Cancer. 2015 Jul;    51(11): 1405-14  
 25667274 J Clin Oncol. 2015 Mar 20; 33(9): 1000-7   
 25430497 J Clin Pathol.2015 Feb;    68(2): 111-8  

Answer 1

我们可以使用base R (假设'Reference‘列中的不均匀空间是错误的)来完成这个任务。我们创建一个包含两个列的新“data.frame”，即一个基于'df1‘的行名，第二个通过使用sprintf粘贴列。

df2 <- data.frame(PMID= row.names(df1),
                  Reference = sprintf('%s. %s;%s(%s):%s',
                    df1$Col1, df1$Col2, df1$Col3, df1$Col4, df1$Col5),
                     stringsAsFactors=FALSE)