如何在R中拆分字符串并保存为数据框？

Question

我正在尝试根据每个字符串包含的新行数来拆分字符串。如果字符串包含两个新行，我只想要字符串右侧的前两个字符串。如果没有，那么只需拆分字符串并将它们保存在数据框中。

我在下面有一个示例数据：

data<-data.frame(Info=NA,Variable=NA)

   strings<-c(" Fulton Allem \n Full Name"," 5 ft, 11 in\n 180 cm\n Height","215 lbs\n 97 kg\n Weight")

我想要以下结果：

Info               Variable
Fulton Allem       Full Name
180 cm             Height
97 kg              Weight

这是我的试验：

splitted<-stri_split_regex(string,"\n")

但这不适用于带有两个新行的字符串。体重和身高的单位是两个，但测量值相同。因此，我想用 kg 表示体重，用 cm 表示身高。

请注意，字符串可以是动态的。每个人的信息各不相同。此外，其中一些不包含此类信息。所以我不能使用正则表达式来提取这些字符串。

Answer 1

您可以使用来自stringr 的str_match 尝试以下操作：

stringr::str_match(strings, '(?:.*\n)?\\s(.*)\n\\s(.*)')[, -1]

#        [,1]            [,2]       
#[1,] "Fulton Allem " "Full Name"
#[2,] "180 cm"        "Height"   
#[3,] "97 kg"         "Weight"  

在这里，我们为每个string 捕获'\n' 之间的倒数第二个值。