Можно использовать sub
для удаления "B | M" с помощью sub
и вычисления mean
столбца
mean(as.numeric(sub("B|M", "", B_l$revenue)), na.rm = TRUE)
Или используя parse_number
, чтобы извлечь числовую часть и затем получить mean
library(readr)
mean(parse_number(B_l$revenue), na.rm = TRUE)
Не ясно о разделении. Если элементы 'B' должны быть разделены на 1000
i1 <- grepl("B", B_l$revenue)
v1 <- parse_number(B_l$revenue)
v1[i1] <- v1[i1]/1000
mean(v1)