在R中删除列中最后一个下划线后的所有内容

ChatGPT的回答仅作参考：

可以使用正则表达式和gsub函数来实现。

假设要删除的列名为"column_name"，则可以使用以下代码：

```
new_column_name <- gsub("_[^_]*$", "", column_name)
```

其中，正则表达式"_[^_]*$"表示匹配最后一个下划线及其后面的所有字符，而gsub函数则将其替换为空字符串，从而实现删除操作。

例如，如果原始列名为"my_column_name_1"，则上述代码将返回"my_column_name"。