Решение, подобное этому, возможно, более всеобъемлющее:
parseBigNumbers <- function(vec) {
vec <- gsub("K", "e+3", vec)
vec <- gsub("M", "e+6", vec)
as.numeric(substr(vec, 2, nchar(vec)))
}
df$Wage <- parseBigNumbers(df$Wage)
df$Value <- parseBigNumbers(df$Value)