dataset <- structure(list(Event = structure(2:5, .Label = c("Event", "Labour Costs YoY", 
    "Unemployment Change (000's)", "Unemployment Rate", "Jobseekers Net Change"), 
   .Names = c("", "", "", ""), class = "factor"), var1 = c("13.34m", "$16.91b", "-£1125.91m", "¥1012.74b"), var2 = c(0.026, -0.449, "0.89k", "9.56m")), row.names = c(NA, 
   -4L), class = c("tbl_df", "tbl", "data.frame"))
gsub("[^-0-9.,]", "", dataset$var1)
##  => [1] "13.34"    "16.91"    "-1125.91" "1012.74" 

ZGF0YXNldCA8LSBzdHJ1Y3R1cmUobGlzdChFdmVudCA9IHN0cnVjdHVyZSgyOjUsIC5MYWJlbCA9IGMoIkV2ZW50IiwgIkxhYm91ciBDb3N0cyBZb1kiLCAKICAgICJVbmVtcGxveW1lbnQgQ2hhbmdlICgwMDAncykiLCAiVW5lbXBsb3ltZW50IFJhdGUiLCAiSm9ic2Vla2VycyBOZXQgQ2hhbmdlIiksIAogICAuTmFtZXMgPSBjKCIiLCAiIiwgIiIsICIiKSwgY2xhc3MgPSAiZmFjdG9yIiksIHZhcjEgPSBjKCIxMy4zNG0iLCAiJDE2LjkxYiIsICItwqMxMTI1LjkxbSIsICLCpTEwMTIuNzRiIiksIHZhcjIgPSBjKDAuMDI2LCAtMC40NDksICIwLjg5ayIsICI5LjU2bSIpKSwgcm93Lm5hbWVzID0gYyhOQSwgCiAgIC00TCksIGNsYXNzID0gYygidGJsX2RmIiwgInRibCIsICJkYXRhLmZyYW1lIikpCmdzdWIoIlteLTAtOS4sXSIsICIiLCBkYXRhc2V0JHZhcjEpCiMjICA9PiBbMV0gIjEzLjM0IiAgICAiMTYuOTEiICAgICItMTEyNS45MSIgIjEwMTIuNzQiIA==