r语言构造一个函数，算出每一列的长度，并分别命名

可以使用以下代码来构造一个函数，该函数可以计算数据框中每一列的长度，并将其分别命名：

column_lengths <- function(data){
  col_lengths <- sapply(data, function(col) length(col))
  names(col_lengths) <- colnames(data)
  return(col_lengths)
}

这个函数使用`sapply()`函数来计算数据框中每一列的长度，并使用`colnames()`函数将每一列的名称与其长度对应起来。最后，函数返回一个命名好的向量，其中包含每一列的长度。