Hi Romildo,
Merge two table by id2 first, then reshape to the wide format, sum by source
at last. Hope it helps.
### Data simulation
lsp.text <- " id source destiny id2 caminho order
1 1 2 4 7 0 0
2 2 6 10 4 0 0
3 3 6 4 5 0 0
4 4 6 4 8 0 0 "
lsp <- read.table(textConnection(lsp.text),header=TRUE)
services.text <- "id2 bw prio pen fator order
1 1 128 5 32 0.25 0
2 2 64 5 16 0.25 0
3 3 64 5 64 1.00 0
4 4 16 5 16 1.00 0
5 5 32 1 192 6.00 0
6 6 64 1 512 8.00 0
7 7 512 3 128 0.25 0
8 8 32 7 32 1.00 0 "
services <- read.table(textConnection(services.text),header=TRUE)
## Delete unwanted columns and combine two table into one table by id2
mtraffic.1 <- merge(lsp[,c(2,3,4)],services[,c(1,2)],by="id2")
## Reshape table to wide style
library(reshape)
mtraffic.2 <- cast(mtraffic.1, source+id2 ~ destiny,fill=0)
## Sum by category(source)
colnames(mtraffic.2) <-
c(colnames(mtraffic.2)[1:2],paste("D",colnames(mtraffic.2)[-c(1:2)],sep=""))
mtraffic <- aggregate(. ~ source, data=mtraffic.2[,-2],FUN=sum)
-----
A R learner.
--
View this message in context:
http://r.789695.n4.nabble.com/Matrix-Operations-tp3061550p3061773.html
Sent from the R help mailing list archive at Nabble.com.
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
