我使用的财务数据和我的主要数据框的行名字是日期。
> assets[1:3,1:5]
ALD SFN TCO KIM CTX
2003-01-03 48.1 23.98 23.5 23 22.34
2003-01-06 48.1 23.98 23.5 23 22.34
2003-01-07 48.1 23.98 23.5 23 22.34
我想增加一列（在这里我想补充FOC $接近资产）从数据帧是同一类型，但一些日期丢失：
> FOC[1:3,1:2]
Close Adj.Close
2003-01-03 510 510
2003-01-07 518 518
在遗漏值应该仅仅是NA的，所以它看起来像：
> assets[1:3,1:6]
ALD SFN TCO KIM CTX FOC
2003-01-03 48.1 23.98 23.5 23 22.34 510
2003-01-06 48.1 23.98 23.5 23 22.34 NA
2003-01-07 48.1 23.98 23.5 23 22.34 518
有没有一个很好的办法做到这一点？ 我设法做这样做行类似的东西
> rowtoadd <- list(ALD=18.1,...)
> dataframe[nrow(dataframe) + 1, names(rowtoadd)] <- rowtoadd
但我不能为列做到这一点。
您可以使用合并方法。
我认为你正在使用XTS时间序列对象。 这些自动处理行的名称。 从help(merge.xts)有一个关键字参数加入 ，你可以用它来控制合并如何发生的。 它默认为“外”。 例：
dat = merge(assets[1:3,], FOC[,1:2], join='left')
> dat
ALD SFN TCO KIM CTX Close Adj.Close
2003-01-03 48.1 23.98 23.5 23 22.34 510 510
2003-01-06 48.1 23.98 23.5 23 22.34 NA NA
2003-01-07 48.1 23.98 23.5 23 22.34 518 518
你可以填补他们在第一，然后cbind：
# Example data
df <- data.frame(list(split(rep(c(48.1, 23.98, 23.5, 23, 22.34), each = 3), rep(1:5, each = 3))))
colnames(df) <- c('ALD', 'SFN', 'TCO', 'KIM', 'CTX')
row.names(df) <- paste0('2003-01-0', c(3, 6, 7))
df <- df[order(as.POSIXct(row.names(df))), ] # This is important for cbind to work right
FOC <- data.frame(Close = c(510, 518), Adj.Close = c(510, 518))
row.names(FOC) <- paste0('2003-01-0', c(3, 7))
# Fill in NAs
FOC[setdiff(row.names(df), row.names(FOC)), ] <- NA
df <- cbind(df, FOC[order(as.POSIXct(row.names(FOC))), 1])
colnames(df)[length(df)] <- 'FOC'
结果：
ALD SFN TCO KIM CTX FOC
2003-01-03 48.1 23.98 23.5 23 22.34 510
2003-01-06 48.1 23.98 23.5 23 22.34 NA
2003-01-07 48.1 23.98 23.5 23 22.34 518
排序方式as.POSIXct(row.names(..))因为重要的是cbind不检查。 没有它，我们会得到
ALD SFN TCO KIM CTX FOC
2003-01-03 48.1 23.98 23.5 23 22.34 510
2003-01-06 48.1 23.98 23.5 23 22.34 518
2003-01-07 48.1 23.98 23.5 23 22.34 NA
