dv$ICPSR <- as.numeric(as.character(dv$ICPSR))

将因子转换为字符向量，然后再将其转换为数字向量.

Transform your factor to a character vector before transforming it into a numeric vector.