我有一个数组,我想根据暗光名称融化它。问题是维度名称是大数值,因此将它们设置为字符会将它们转换为错误的 ID,请参阅以下示例:
test <- array(1:18, dim = c(3,3,2), dimnames = list(c(00901291282245454545454,329293929929292,2929992929922929),
c("a", "b", "c"),
c("d", "e")))
library(reshape2)
library(data.table)
test2 <- data.table(melt(test))
test2[, Var1 := as.character(Var1)]
> test2
Var1 Var2 Var3 value
1: 9.01291282245455e+20 a d 1
2: 329293929929292 a d 2
3: 2929992929922929 a d 3
4: 9.01291282245455e+20 b d 4
5: 329293929929292 b d 5
6: 2929992929922929 b d 6
7: 9.01291282245455e+20 c d 7
8: 329293929929292 c d 8
9: 2929992929922929 c d 9
10: 9.01291282245455e+20 a e 10
11: 329293929929292 a e 11
12: 2929992929922929 a e 12
13: 9.01291282245455e+20 b e 13
14: 329293929929292 b e 14
15: 2929992929922929 b e 15
16: 9.01291282245455e+20 c e 16
17: 329293929929292 c e 17
18: 2929992929922929 c e 18
如何使第一列具有大 ID 字符?我目前正在做的是将一个字符字母粘贴到暗名中然后融化,使其成为一个字符,然后取一个子字符串,这真的很低效。重要的是,它是一个有效的解决方案,因为数据集有数百万行。有两个问题,首先,如果 0 在 ID 前面,则删除 0,并将其转换为 e+20 字符。
将 dimname 定义为 character
,然后稍微修改melt.array
当您在array
上执行melt
时调用
test <- array(1:18, dim = c(3,3,2), dimnames = list(c("00901291282245454545454", "329293929929292", "2929992929922929"),
c("a", "b", "c"),
c("d", "e")))
自定义melt.array
以添加一个参数,该参数允许决定是否要进行转换:
melt.array2 <- function (data, varnames = names(dimnames(data)), conv=TRUE, ...)
{
values <- as.vector(data)
dn <- dimnames(data)
if (is.null(dn))
dn <- vector("list", length(dim(data)))
dn_missing <- sapply(dn, is.null)
dn[dn_missing] <- lapply(dim(data), function(x) 1:x)[dn_missing]
if(conv){ # conv is the new parameter to know if conversion needs to be done
char <- sapply(dn, is.character)
dn[char] <- lapply(dn[char], type.convert)
}
indices <- do.call(expand.grid, dn)
names(indices) <- varnames
data.frame(indices, value = values)
}
在您的示例中尝试新功能(使用 conv=FALSE
(:
head(melt.array2(test, conv=FALSE))
# X1 X2 X3 value
# 1 00901291282245454545454 a d 1
# 2 329293929929292 a d 2
# 3 2929992929922929 a d 3
# 4 00901291282245454545454 b d 4
# 5 329293929929292 b d 5
# 6 2929992929922929 b d 6
编辑
在 reshape2
( devtools::install_github("hadley/reshape")
的开发版本中,melt.array
的定义不同,您可以使用参数as.is
来避免转换:
melt(test, as.is=TRUE)
会给你与上面相同的结果(用Var1
等而不是X1
等(。