更改数据框的所有列名的最后一个值

Question

我有一个数据框，如下所示：

# Example data
data <- data.frame(x1.1 = rnorm(10),
                   x2.1 = rnorm(10),
                   x3.1 = rnorm(10))

我想将所有列名的最后一个值“.1”更改为“.2”。找到一个通用解决方案很重要，因为我必须为几个大数据帧执行此操作。

# Desired output:
colnames(data)
# "x1.2" "x2.2" "x3.2"

我可以用一个复杂的循环来做到这一点，但我确信必须有一种更简单的方法，我无法找到。非常感谢你的帮助！