Мы можем использовать parse_number
из readr
library(readr)
parse_number(x)
#[1] 29.55
или str_extract
из `stringr
as.numeric(str_extract(x, "[0-9.]+"))
#[1] 29.55
или gsub
от базы R
as.numeric(gsub("[^0-9.]+", "", x))
#[1] 29.55
или с использованием substring
от базы R
as.numeric(substring(x, nchar(x)-4))
#[1] 29.55
ПРИМЕЧАНИЕ. Последний подход основан на позиции, если она находится в концестрока и занимает последние 5 позиций