将列名称分配给数据帧列表

Question

我有一个数据框列表,其列有名称.

如果我想更改列表中数据框的名称(而不是父列表的名称),我不能通过names()或colnames()直接访问它们,而是必须使用lapply()来获取名称.

但是,如果我使用lapply返回列名,那么它们只存在于lapply调用中,并且我无法在父环境中为列表分配新名称.

这是下面的MWE:

1 /创建对象

require(xts)
data(sample_matrix)
x <- as.xts(sample_matrix)
y <- lapply(split(x, "months"), data.frame)

2 /无法直接访问数据框的列名称

names(y)

空值

colnames(y)

空值

3 /我们可以尝试使用lapply

lapply(y, function(z) names(z) <- c('Op', 'Hi', 'Lo', 'Clo'))

[[1]]

[1]"Op""Hi""Lo""Clo"......

但它实际上没有为对象分配名称.

Answer 1

你可以用setNames......

lapply( y , setNames , nm = c('Op', 'Hi', 'Lo', 'Clo') )
#[[1]]
#                 Op       Hi       Lo      Clo
#2007-01-02 50.03978 50.11778 49.95041 50.11778
#2007-01-03 50.23050 50.42188 50.23050 50.39767
#2007-01-04 50.42096 50.42096 50.26414 50.33236
#       ...      ...      ...      ...      ...

直接从帮助页面引用:

这是一个便捷函数,用于设置对象上的名称并返回该对象.它在函数定义的最后是最有用的,其中一个是创建要返回的对象,并且不希望将它存储在名称下,因此可以分配名称.