根据R中表B的等级对表A进行排序
|
这里是一个很新的问题，但是一段时间以来我一直无法找到解决方案：
我有一个XTS对象的交易指标（指示），用于股票数据，看起来像
A XOM MSFT
2000-11-30 -0.59 0.22 0.10
2000-12-29 0.55 -0.23 0.05
2001-01-30 -0.52 0.09 -0.10
A XOM MSFT
2000-11-30 -0.15 0.10 0.03
2000-12-29 0.03 -0.05 0.02
2001-01-30 -0.04 0.02 -0.05
indicate.label <- colnames(indicate)
indicate.rank <- t(apply(indicate, 1, function(x) indicate.label[order(-x)]))
indicate.rank <- xts(indicate.rank, order.by = index(returns))
1 2 3
2000-11-30 XOM MSFT A
2000-12-29 A MSFT XOM
2001-01-30 XOM A MSFT
2000-11-30 0.10 0.03 -0.15
2000-12-29 0.03 0.02 -0.05
2001-01-30 0.02 -0.04 -0.05
没有找到相关结果
已邀请:
1 个回复
瞥同忙接
row.rank <- t(apply(indicate, 1, order, decreasing=TRUE)) indicate.rank <- return.rank <- indicate # pre-allocate for(i in 1:NROW(indicate.rank)) { indicate.rank[i,] <- colnames(indicate)[row.rank[i,]] return.rank[i,] <- return[i,row.rank[i,]] }