如何在R中剪切具有最小值的数据框列?