rbind 不保留 header 名称

Question

我是 R 的新手，我觉得这是一个基本问题，但我无法解决它。

我有以下代码，其中 events_b 是一个空的 dataframe，具有与事件相同的标头，而 cuts 是 POSIXct 值的向量。

events_b <- events[0,]
events_b <- rbind(events_b,
                     c(event$id[1],  event$start[1], cut[1]),
                     c(eventos$id[1], cut[1], as.POSIXct(event$start[1]))

但是，当我这样做时，来自 events_b 的标题（最初来自事件）被替换为看起来像列向量的内容（例如，而不是“id”，我得到“c..001....002”作为列标题）

有没有办法保留列标题？ 我要把这段代码放在一个循环中，这样 rbind 就会不断地向 events_b 添加行，但重要的是它一开始是空的。

Answer 1

问题源于rbind.data.frame的来源。 该代码将反复尝试查找所有零长度 arguments 并静默删除它们。 这是在没有保留第一个参数的名称的情况下完成的，并记录在help(rbind)的“数据框方法”部分。 从帮助页面：

rbind 数据框方法首先丢弃所有零列和零行 arguments

要保留名称，请确保第一行的长度不为零或在代码末尾添加names(event_b) <- names(event) 。

此行为的源代码如下所示：

> rbind.data.frame
function (..., deparse.level = 1, make.row.names = TRUE, stringsAsFactors = FALSE, 
    factor.exclude = TRUE) 
{
... # more code
    allargs <- list(...)
    allargs <- allargs[lengths(allargs) > 0L] # drop everything of column length zero
    if (length(allargs)) {
        nr <- vapply(allargs, function(x) if (is.data.frame(x)) 
            .row_names_info(x, 2L)
        else if (is.list(x)) 
            length(x[[1L]])
        else length(x), 1L)
        if (any(n0 <- nr == 0L)) {
            if (all(n0)) 
                return(allargs[[1L]])
            allargs <- allargs[!n0] # drop everything of row-length 0
        }
    }
... # more code
}

查看rbind.data.frame源代码的前几行