Question

现在字符串看起来像：

"Interest.USD,Vol=[Integrated,(0,0.101),(0.2,0.108),(1,0.110),(2,0.106),
(3,0.102),(4,0.09),(5,0.091),(6,0.09128272)],Drift=[Integrated,(0.002,0.09),
(0.24,0.0007),(0.4,0.007),(1,-0.033),(2,-0.005),(3,-0.0041),
(4,-0.3505),(5,-0.65),(7,-0.08346),(8,-0.049),(9,-0.0613),(10,-0.019)],
Risk_Neutral=YES,Lambda=0.09,FX_Volatility=0.01,FX_Correlation=0.9"

我想抓住＆＃34; Vol＆＃34;之后的数据。和＃34;漂移＆＃34;以矩阵格式表示：

Vol matrix：

0,0.101
0.2,0.108
1,0.110
2,0.106
3,0.102
4,0.09
5,0.091
6,0.09128272

以及Lambda的单个值，如0.09。我想我不会使用正则表达式，但我对此并不熟悉。有什么建议吗？：）

P.S。我尝试使用：

str_extract_all(text,'[ .+? ]')

尝试获取数据[和]，但它返回＆＃34;。＆＃34;

Answer 1

这是一种在R中提取这些值的方法。让我们假设您发布的字符串存储在名为a的变量中。为了简化操作，我将使用辅助函数：getcapturedmatches()。然后就可以了

expr <- "(Vol|Drift)=\\[Integrated,([^\\]]*)\\]"
mm <- regcapturedmatches(a,gregexpr(expr,a, perl=T))[[1]]
expr <- "\\(([^,]+),([^,]+)\\)"
vv <- regcapturedmatches(mm[,2],gregexpr(expr,mm[,2], perl=T))

首先我们做一个传递来提取mm中的Vol和Drift元素，然后我们将逗号分隔的列表拆分为vv。现在我们可以将数据合并为一个大型data.frame

tt <- Map(data.frame, col=mm[,1], val=lapply(vv, 
    function(x) {class(x)<-"numeric"; x}))
dd<-do.call(rbind, unname(tt))

最后dd看起来像

     col  val.1       val.2
1    Vol  0.000  0.10100000
2    Vol  0.200  0.10800000
3    Vol  1.000  0.11000000
4    Vol  2.000  0.10600000
5    Vol  3.000  0.10200000
6    Vol  4.000  0.09000000
7    Vol  5.000  0.09100000
8    Vol  6.000  0.09128272
9  Drift  0.002  0.09000000
10 Drift  0.240  0.00070000
11 Drift  0.400  0.00700000
12 Drift  1.000 -0.03300000
13 Drift  2.000 -0.00500000
14 Drift  3.000 -0.00410000
15 Drift  4.000 -0.35050000
16 Drift  5.000 -0.65000000
17 Drift  7.000 -0.08346000
18 Drift  8.000 -0.04900000
19 Drift  9.000 -0.06130000
20 Drift 10.000 -0.01900000

此方法允许在每个部分中包含任意数量的重复值。

如果你只是想要简单的矩阵那么

Map(function(a,b) {class(b)<-"numeric"; b}, mm[,1], 
    lapply(vv, function(x) {class(x)<-"numeric"; x}))

将为您提供一个命名的矩阵列表。

Answer 2

你可以试试这个正则表达式。括号内的值存储在单独的组中，并且通过反向引用再次引用存储的组。

Vol=.*\(([\d,.]+)\).*\(([\d,.]+)\).*\(([\d,.]+)\).*\(([\d,.]+)\).*\(([\d,.]+)\).*\(([\d,.]+)\).*\(([\d,.]+)\).*\(([\d,.]+)\).*(?=,Drift)

DEMO

请参阅右侧的存储组。

使用正则表达式从R中的字符串中获取数据

2 个答案: