我有很多名称很长的列，我希望通过用空格替换末尾部分来缩短它们。
我的数据被称为＆＃34; data_names＆＃34;
我可以用很多代码来实现这个目标：
site <- stri_replace_all_fixed(data_names, pattern = ".CO.1h.average..ppm.", "")
site <- stri_replace_all_fixed(site, pattern = ".HUMID.1h.average....", "")
site <- stri_replace_all_fixed(site, pattern = ".NEPH.1h.average..bsp.", "")
等...
但我希望能够在一两行中做到这一点......任何人都可以帮助我吗？ ：）
（尝试gsub，do.call等）