如何只保留R中单列的数字

how to keep only numbers from a single column in R

我使用以下代码从 lapply 函数 (S.list) 的输出重建我的原始数据帧(对于列表中的第一个数据集),它为每个数据列表提供了一个数字.

 data1$S <- S.list[1]

S.list 是从 lapply 函数中提取的,我使用该函数将函数应用于 6 个数据集的列表,并为列表中的每个数据集获得一个数字。 然后我想为列表中的所有 6 个数据集重建原始数据框。这是我为列表的第一个数据集重建的示例,我将结果保存在 S 列中。但是S栏returns变成了这样

       S 
c(`Julia` = 0.245133133918501)
c(`Julia` = 0.245133133918501)
c(`Julia` = 0.245133133918501)
c(`Julia` = 0.245133133918501)
...

那么我怎样才能删除除号码(0.245133)之外的其他人。我只需要号码。

这是一种方法

data1=read.table(text="
      S
      'c(`Julia` = 0.245133133918501)'
      'c(`Julia` = 0.245133133918501)'
      'c(`Julia` = 0.245133133918501)'
      'c(`Julia` = 0.245133133918501)'
", header=T, stringsAsFactors=F)

data1$S = as.numeric(sub("(.+= )([0-9\.]+)(.+)", "\2", data1$S, perl = T))

data1$S
# [1] 0.2451331 0.2451331 0.2451331 0.2451331