对带R的数字字符串的操作

我想对由数字字符串组成的向量做一些基本的运算

string<-c("1_3_4","3_5_5_1","4_2")

---

string我将定义一个小函数，完成所有4个函数的工作。它将字符向量和您选择的任何函数作为其参数。它从每个条目中提取数字以生成数字向量列表，然后将您选择的任何函数应用于列表中的每个向量

string_do[1]8 14 6
字符串（字符串，平均值）
#> [1] 2.666667 3.500000 3.000000
字符串_do（字符串，最小值）
#> [1] 1 1 2
字符串_do（字符串，最大值）
#> [1] 4 5 4

stringsum<-function (string)===> 8  14  6
stringmean<-function (string)===> 2.666667  3.5  3
stringSup<-fuction (srtring)===> 4  5  4
stringInf<-function (string)===> 1  1  2