R 如何使用lApply重命名列表中的单列

# df = dataframe
# old.var.name = The name you don't like anymore
# new.var.name = The name you want to get
names(df)[names(df) == 'old.var.name'] <- 'new.var.name'

names(df)[names(df) == 'old.var.name'] <- 'new.var.name'

irisData <- list(iris1 = iris, iris2 = iris, iris3 = iris)
colnames(irisData$iris1)
#[1] "Sepal.Length" "Sepal.Width" 
#[3] "Petal.Length" "Petal.Width" 
#[5] "Species"

> irisData <- lapply(irisData, \(x) {names(x)[names(x) == 'Species'] <- 'newSpecies'; x})
> lapply(irisData, head, 2)
$iris1
  Sepal.Length Sepal.Width Petal.Length Petal.Width newSpecies
1          5.1         3.5          1.4         0.2     setosa
2          4.9         3.0          1.4         0.2     setosa

$iris2
  Sepal.Length Sepal.Width Petal.Length Petal.Width newSpecies
1          5.1         3.5          1.4         0.2     setosa
2          4.9         3.0          1.4         0.2     setosa

$iris3
  Sepal.Length Sepal.Width Petal.Length Petal.Width newSpecies
1          5.1         3.5          1.4         0.2     setosa
2          4.9         3.0          1.4         0.2     setosa

irisData <- list(iris1=iris, iris2=iris, iris3=iris)

R相关问答推荐

是否可以通过另一个DF的内容过滤数据帧列表？

创建计数(带重置)变量

如何将y轴上的线定位得彼此更近

将一个载体的值相加，直到达到另一个载体的值

在ggplot的注释表格中突出显示最大值

R Highcharts与两个位置关联的注释

如何根据R中其他列的值有条件地从列中提取数据？

提取具有连续零值的行，如果它们前面有R中的有效值

为什么我的基准测试会随着样本量的增加而出现一些波动？

2个Rscript.exe可执行文件有什么区别？

SHINY：使用JS函数应用的CSS样式显示HTML表格

R中有约束的优化问题：如何用复数和对数效益函数解决问题？

'使用`purrr：：pwalk`从嵌套的嵌套框架中的列表列保存ggplots时出现未使用的参数错误

按组内中位数分类

如何计算每12行的平均数？

`-`是否也用于数据帧，有时使用引用调用？

如何阻止围堵地理密度图？

数据集上的R循环和存储模型系数

在ggploy中创建GeV分布时出错

如何合并不同列表中的数据文件，包括基于名称的部分匹配，而不是一对一等价