Ignore specific levels when performing lapply in R

Question

I have a data frame (500 obs of 40000 variables) in R where all columns consist of one or two letters interspersed with \'1\' and \'3\'. E.g., mydata[45:50,20:25]