删除给定数量的值未达到阈值的列

I have a large data set where I would like to remove each column for which less than 10% of the of rows have values are greater than 1. Please assist, thank you!I have a large data set where I would like to r