碱R：

df[] <- lapply(df, sub, pattern = "%.*", replacement = "")
df
#   X1 X2 X3 X4 X5
# x  2 75 80 70 90
# y  1 50 25 30 40

df[] <-是必需的，因为默认情况下，lapply返回list（而不是data.frame）。通过在赋值的LHS上使用df[]，列的 * 内容 * 在帧的结构内被替换。在对列的子集进行操作时，这也能很好地工作，如

df[c(2,3,5)] <- lapply(df[c(2,3,5)], sub, pattern = "%.*", replacement = "")

这显然不是您在这里想要的，但是提供了一种自定义受影响的列的方法。
lapply(df, sub, ...)与匿名函数的用法相同：

lapply(df, function(z) sub("%.*", "", z))

因为参数的元素（这里是df）作为第一个参数传递给函数（它将是pattern=），我们显式地将常量值作为补充参数传递给lapply，其中前两个参数（X，我们的df;和FUN）作为不变的参数提供给函数。

最简单的方法可能是使用dplyr：

library(dplyr)

mutate(df, across(everything(), stringr::str_remove, "%.*"))

  X1 X2 X3 X4 X5
x  2 75 80 70 90
y  1 50 25 30 40

也许这可能是您正在寻找的输出？

for (i in colnames(df)){
  df[,i] <- sub("%.*", "", df[,i])
}
print(df)
  X1 X2 X3 X4 X5
x  2 75 80 70 90
y  1 50 25 30 40