trim data_frame.R