如何在R数据帧的每个类别中提取最接近某个值的值?