'names' 属性 [4000] 必须与向量 [5] 的长度相同

Question

每当我尝试更改列表中数据框的名称时，都会遇到错误。我认为这是由于我尝试更改的名称与数据框中的长度之间的长度不同。如果这看起来是重复的帖子，我深表歉意。如果是这种情况，我会删除，但如果有人能指出我正确的方向，我将不胜感激。

library(lubridate)
library(tidyverse)

date <- rep_len(seq(dmy("01-01-2010"), dmy("31-12-2013"), by = "days"),1000)
ID <- rep(c("A","B","C", "D", "E"), 100)

df <- data.frame(date = date,
                 x = runif(length(date), min = 60000, max = 80000),
                 y = runif(length(date), min = 800000, max = 900000),
                 ID)

df1 <- df %>% group_split(ID)

l <- list(1,2,3,4,5)

我已经能够使用它来尝试更改它，但在尝试后出现错误：

for(i in 1: length(df1)){
  names(l) <- unlist(df1[[i]]$ID)
}

我正在尝试将这些值更改为 ID 值：

Error in names(l) <- unlist(df1[[i]]$ID) : 
  'names' attribute [200] must be the same length as the vector [5]

Answer 1

setNames 正是您所需要的：

setNames(l, unique(df$ID))

输出：

$A
[1] 1

$B
[1] 2

$C
[1] 3

$D
[1] 4

$E
[1] 5