经济性={P,Q,R,S}也可以出现在经济性中,但对于给定的P和S,我们将只有一条路径而不是多条路径。我得到一个错误,[.data.frame(x,((SN=first(SN),hops=toString(NN),Service_tier=first(Se
经济性={P,Q,R,S}也可以出现在经济性中,但对于给定的P和S,我们将只有一条路径而不是多条路径。我得到一个错误,[.data.frame(x,((SN=first(SN),hops=toString(NN),Service_tier=first(Se,r,dplyr,reshape,R,Dplyr,Reshape,经济性={P,Q,R,S}也可以出现在经济性中,但对于给定的P和S,我们将只有一条路径而不是多条路径。我得到一个错误,[.data.frame(x,((SN=first(SN),hops=toString(NN),Service_tier=first(Service_tier)),:未使用的参数(by=(grp=cumsum(shift(NN==EE,fill=TRUE)))@VasukiRao似乎我忘记了使用setDT(d)强制d到data.table。我已经修改了代码。请再次使用托盘。谢谢您
经济性={P,Q,R,S}也可以出现在经济性中,但对于给定的P和S,我们将只有一条路径而不是多条路径。我得到一个错误,
[.data.frame
(x,((SN=first(SN),hops=toString(NN),Service_tier=first(Service_tier)),:未使用的参数(by=(grp=cumsum(shift(NN==EE,fill=TRUE)))@VasukiRao似乎我忘记了使用setDT(d)
强制d
到data.table。我已经修改了代码。请再次使用托盘。谢谢您的报告。当我运行代码时,ncol(w)中出现错误:对象“w”未找到我的错误。另一个复制和粘贴错误。请参阅修改后的代码。很好,工作完美,与for loop相比,每个有趣的解决方案都有一个错误…错误出现在[.data.frame
(x),(SN=first(SN),hops=toString(NN),Service_tier=first(Service_tier)),:未使用的参数(by=(grp=cumsum)(shift(NN==EE,fill=TRUE))@VasukiRao看来我可能忘记了使用setDT(d)
将d
强制到data.table。我已经修改了代码。请再次使用托盘。感谢您的报告。当我运行代码时,ncol(w)中出现错误:对象“w”未找到我的错误。另一个复制粘贴错误。请参阅修改后的代码。很好,工作完美,与for循环相比,每个有趣的解决方案
SN NN EE Service_tier
A B C economy
B C C economy
P Q R regular
Q S R regular
S R R regular
H I L economy
I J L economy
J K L economy
K L L economy
SN hop1 hop2 hop3 hop4 service_tier
A B C economy
P Q S R regular
H I J K L economy
for (i in 1:lasrow){
sn <- raw_d[i,1]
nn <- raw_d[i,2]
en <- raw_d[i,3]
lc <- 1
if(nn == en){
d[lr,lc]<-sn
d[lr,lc+1]<-nn
d[lr,lc+2]<-en
lr <- lr+1
}
else{
while(nn!=en){
d[lr,lc]<-sn
lc <- lc+1
next_d <- filter(raw_d,raw_d$SN==sn,raw_d$EN==en)
if(dim(next_d)[1]==0){
d[lr,lc]<-"broken bf"
lc <- lc+1
break
}else{
sn <- next_d$NN
nn <- next_d$NN
}
}
d[lr,lc]<-en
lr<-lr+1
}
}
library(dplyr)
library(tidyr)
df %>%
mutate(row = data.table::rleid(Service_tier)) %>%
gather(key, value, -Service_tier, -row) %>%
group_by(row) %>%
filter(!duplicated(value)) %>%
mutate(key = c("SN", paste0("hop", 1:(n() - 1)))) %>%
spread(key, value) %>%
ungroup() %>%
select(-row) %>%
select(SN, starts_with("hop"), Service_tier)
# A tibble: 3 x 6
# SN hop1 hop2 hop3 hop4 Service_tier
# <chr> <chr> <chr> <chr> <chr> <fct>
#1 A B C NA NA economy
#2 H I J K L economy
#3 P Q S R NA regular
library(data.table)
dcast(setDT(df1)[, SN := first(SN), rleid(Service_tier)][,
unique(unlist(.SD)), .(SN, Service_tier)],
SN + Service_tier ~ paste0("hop", rowid(SN)), value.var = "V1", fill = "")
# SN Service_tier hop1 hop2 hop3 hop4
#1: A economy B C
#2: H economy I J K L
#3: P regular Q S R
df1 <- structure(list(SN = c("A", "B", "P", "Q", "S", "H", "I", "J",
"K"), NN = c("B", "C", "Q", "S", "R", "I", "J", "K", "L"), EE = c("C",
"C", "R", "R", "R", "L", "L", "L", "L"), Service_tier = c("economy",
"economy", "regular", "regular", "regular", "economy", "economy",
"economy", "economy")), class = "data.frame", row.names = c(NA,
-9L))
library(data.table)
setDT(d)[, .(SN = first(SN), hops = toString(NN), Service_tier = first(Service_tier)),
by = .(grp = cumsum(shift(NN == EE, fill = TRUE)))][]
grp SN hops Service_tier
1: 1 A B, C economy
2: 2 P Q, S, R regular
3: 3 H I, J, K, L economy
library(data.table)
library(magrittr) # piping used to improve readability
w <- setDT(d)[, .(SN = first(SN), hops = NN, Service_tier = first(Service_tier)),
by = .(grp = cumsum(shift(NN == EE, fill = TRUE)))] %>%
dcast(grp + ... ~ rowid(grp, prefix = "hop"), value.var = "hops", fill = "") %>%
setcolorder(c(1:2, 4:ncol(.), 3))
w
grp SN hop1 hop2 hop3 hop4 Service_tier
1: 1 A B C economy
2: 2 P Q S R regular
3: 3 H I J K L economy
library(data.table)
d <- fread("SN NN EE Service_tier
A B C economy
B C C economy
P Q R regular
Q S R regular
S R R regular
H I L economy
I J L economy
J K L economy
K L L economy")