Warning: file_get_contents(/data/phpspider/zhask/data//catemap/7/kubernetes/5.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 数据排序与合并_R_Dataset_Mergesort_Data Analysis - Fatal编程技术网

R 数据排序与合并

R 数据排序与合并,r,dataset,mergesort,data-analysis,R,Dataset,Mergesort,Data Analysis,但结果是显示1。我希望排序方式能够显示结果3,因为第二行有3个元素-E1、B1、C1。我们可以将其放在向量的列表中,按“emp\u id”分组 dt1 <- dt[, .(work = list(work)), emp_id] temp<-as.vector(dt1$work[3]) length(temp) 但是dt$功不是向量吗vv@sid它是向量的列表。您需要is.vector(dt1$work[[2]]) dt1 <- dt[, .(work = list(work)

但结果是显示1。我希望排序方式能够显示结果3,因为第二行有3个元素-E1、B1、C1。

我们可以将其放在
向量的
列表中,按“emp\u id”分组

dt1 <- dt[, .(work = list(work)), emp_id]
temp<-as.vector(dt1$work[3])
length(temp)

但是dt$功不是向量吗<代码>vv@sid它是
向量的
列表
。您需要
is.vector(dt1$work[[2]])
dt1 <- dt[, .(work = list(work)), emp_id]
temp<-as.vector(dt1$work[3])
length(temp)
dt1 <- dt[, .(work = list(work)), emp_id]
dt1
#   emp_id               work
#1:      1     A1,E1,F1,B1,A1
#2:      2           E1,B1,C1
#3:      3 B1,D1,E1,A1,B1,C1,

dt1$work
[[1]]
#[1] "A1" "E1" "F1" "B1" "A1"

#[[2]]
#[1] "E1" "B1" "C1"

#[[3]]
#[1] "B1" "D1" "E1" "A1" "B1" "C1" "F1"
split(dt$work, dt$emp_id)