从R中的字符串中提取数字

发布于04月14日

我在R数据框中有一个字符串变量，其中包含用|分隔的不同数字.此变量的典型值具有不同的长度，如下所示:

st <– c("7.4|7.4|8|8|8|8|7.4|7.4|7.4|","0|-32|0|0|-32|-3|-3|-3|-3|-3|-3|-3|")

我想数一下每个数字的出现情况.不同的数字实际上对应于我的数据框中的变量:

 v1 <- c(8,-32) 
 v2 <- c(0,0)   
 v3 <– c(7.4,-3)

因此，理想情况下，我只需计算与每个变量相等的实例数量，结果如下所示:

count_v1 = c(4,2)
count_v2 = c(0,3)
count_v3 = c(5,7)

你知道我该怎么做吗？

下面是一个最小的例子:

st <- c("7.4|7.4|8|8|8|8|7.4|7.4|7.4|","0|-32|0|0|-32|-3|-3|-3|-3|-3|-3|-3|")
v1 <- c(8,-32) 
v2 <- c(0,0)   
v3 <- c(7.4,-3)

dat <- as.data.frame(cbind(v1,v2,v3,st))

再一次，我希望有新的变量与计数添加到相同的数据帧.

EDIT:

st <- c("7.4|7.4|8|8|8|8|7.4|7.4|7.4|","0|-32|0|0|-32|-3|-3|-3|-3|-3|-3|-3|")

tab <- table(stack(setNames(strsplit(st, "|", fixed = TRUE), seq_along(st))))

v1 <- c(8,-32) 
v2 <- c(0,0)   
v3 <- c(7.4,-3)


v <- data.frame(v1, v2, v3)
ind <- cbind(as.character(c(t(v))), as.character(t(row(v))))

cbind(v, count = matrix(tab[ind], nrow(v), byrow = T))



   v1 v2   v3 count.1 count.2 count.3
1   8  0  7.4       4       0       5
2 -32  0 -3.0       2       3       7