代码之家 › 专栏 › 技术社区 › LeGeniusII

r长表到多维数组

transform data.table r

LeGeniusII · 技术社区 · 6 年前

我有一张长格式的桌子:

require(data.table)
sampleDT <- data.table(Old = c("A","B","A","B","A","B","A","B")
                       , New = c("A","A","B","B","A","A","B","B")
                       , Time = c(1,1,1,1,2,2,2,2)
                       , value1 = c(1,1,1,1,1,1,1,1)
                       , value2 = c(0,0,0,0,0,0,0,0))
print(sampleDT)

   Old New Time value1 value2
1:   A   A    1      1      0
2:   B   A    1      1      0
3:   A   B    1      1      0
4:   B   B    1      1      0
5:   A   A    2      1      0
6:   B   A    2      1      0
7:   A   B    2      1      0
8:   B   B    2      1      0

我想转换为三维数组。类似:

基本上,我们有“新的,旧的,时间”列作为我们的三维空间。每个单元格的值是某种函数的输出,这些函数的输入是“value1,value2”。

在这种情况下,当 Time = 1 ,结果是:

matrix(data = c(1, 1+0, 0, -0), nrow = 2, ncol = 2, byrow = FALSE)
     [,1] [,2]
[1,]    1    0
[2,]    1    0

如何实现?

内存使用和计算时间是重要的考虑因素,因为我们正在处理相对较大的数据集。

1 回复 | 直到 6 年前

Santiago Capobianco 6 年前

尝试XTABSH():

sampleDT <- data.frame(Old = c("A","B","A","B","A","B","A","B"), 
                       New = c("A","A","B","B","A","A","B","B"),
                       Time = c(1,1,1,1,2,2,2,2),
                       value1 = c(1,1,1,1,1,1,1,1),
                       value2 = c(0,0,0,0,0,0,0,0))

Value1 <- xtabs(value1 ~ Old + New + Time, sampleDT, drop = FALSE)
Value2 <- xtabs(value2 ~ Old + New + Time, sampleDT, drop = FALSE)

is.array(Value1)
is.array(Value2)

Value1[, 2,] <- 0 # Sets all second columns to zero for Value1
Value2[1,,] <- 0 # Idem with first row for Value2
Value2[2,2,] <- Value2[2,2,] * (-1)

Result <- Value1 + Value2

Result

, , Time = 1

   New
Old A B
  A 1 0
  B 1 0

, , Time = 2

   New
Old A B
  A 1 0
  B 1 0

希望它有帮助。

推荐文章

Marco_CH · 根据动态相关的两个条件进行筛选

2 年前

Shubham · 如何在R中查找数据表的两个多类别列之间的差异/setdiff()

2 年前

mt1022 · 分组数据时的不同结果。以不同方式使用数字索引的表列

6 年前

shy zhan · 如何改变数据。有很多列的表?

6 年前

Brent Pease · 查找条件语句的最小值,其中条件也适用于之后的所有值

6 年前

Serhii · 标记数据中按组随机选择的N行。桌子

6 年前

T.Beil · 在数据表中选取均匀分布的样本

6 年前

89_Simple · 为每个组运行函数

6 年前

IceCreamToucan · 选择要保留/放入数据的组。桌子

6 年前

Valeria Lobos Ossandón · 使用R查找数据帧中其他数据帧的元素位置

6 年前