Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- df<-data.frame(city=as.character("Boston","Boston","Boston","Boston","Boston","Boston","Boston","Boston","Boston","Boston"),
- a.Boston=c(rep(8,3),rep(6,4),9,5,7),
- a.Hartford=c(rep(6,3),rep(2,4),1,5,0),
- a.Denver=c(rep(8,3),rep(9,4),3,8,9),
- b.Boston_0=c(rep(8,3),rep(9,4),3,8,9),
- b.Boston_1=c(rep(8,3),rep(9,4),3,8,9),
- b.Boston_2=c(rep(8,3),rep(9,4),3,8,9),
- b.Boston_3=c(rep(8,3),rep(9,4),3,8,9),
- b.Boston_4=c(rep(8,3),rep(9,4),3,8,9),
- b.Boston_5=c(rep(8,3),rep(9,4),3,8,9),
- b.Boston_6=c(rep(8,3),rep(9,4),3,8,9),
- b.Boston_7=c(rep(8,3),rep(9,4),3,8,9),
- b.Boston_8=c(rep(8,3),rep(9,4),3,8,9),
- b.Boston_9=c(rep(8,3),rep(9,4),3,8,9),
- b.Boston_10=c(rep(8,3),rep(9,4),3,8,9),
- b.Boston_11=c(rep(8,3),rep(9,4),3,8,9),
- b.Boston_12=c(rep(8,3),rep(9,4),3,8,9),
- b.Denver_0=c(rep(6,3),rep(2,4),1,5,0),
- b.Denver_1=c(rep(6,3),rep(2,4),1,5,0),
- b.Denver_2=c(rep(6,3),rep(2,4),1,5,0),
- b.Denver_3=c(rep(6,3),rep(2,4),1,5,0),
- b.Denver_4=c(rep(6,3),rep(2,4),1,5,0),
- b.Denver_5=c(rep(6,3),rep(2,4),1,5,0),
- b.Denver_6=c(rep(6,3),rep(2,4),1,5,0),
- b.Denver_7=c(rep(6,3),rep(2,4),1,5,0),
- b.Denver_8=c(rep(6,3),rep(2,4),1,5,0),
- b.Denver_9=c(rep(6,3),rep(2,4),1,5,0),
- b.Denver_10=c(rep(6,3),rep(2,4),1,5,0),
- b.Denver_11=c(rep(6,3),rep(2,4),1,5,0),
- b.Denver_12=c(rep(6,3),rep(2,4),1,5,0))
- i1 <- 0:12
- for(i in seq_along(i1)) {
- assign(paste0("df", i),
- value = df[, setdiff(names(df),
- c("city",
- grep(paste("_", 0:i1[i],collapse="|", sep=""),
- colnames(df), value = TRUE)))])
- }
- *df2*
- a.Boston a.Hartford a.Denver b.Boston_2 b.Boston_3 b.Boston_4 b.Boston_5 b.Boston_6 b.Boston_7 b.Boston_8
- 1 8 6 8 8 8 8 8 8 8 8
- 2 8 6 8 8 8 8 8 8 8 8
- b.Boston_9 b.Denver_2 b.Denver_3 b.Denver_4 b.Denver_5 b.Denver_6 b.Denver_7 b.Denver_8 b.Denver_9
- 1 8 6 6 6 6 6 6 6 6
- 2 8 6 6 6 6 6 6 6 6
- a.Boston a.Hartford a.Denver b.Boston_9 b.Denver_9
- 1 8 6 8 8 6
- 2 8 6 8 8 6
- a.Boston a.Hartford a.Denver b.Boston_9 b.Boston_10 b.Boston_11 b.Boston_12 b.Denver_9 b.Denver_10
- 1 8 6 8 8 8 8 8 6 6
- 2 8 6 8 8 8 8 8 6 6
- b.Denver_11 b.Denver_12
- 1 6 6
- 2 6 6
- a.Boston a.Hartford a.Denver b.Boston_10 b.Boston_11 b.Boston_12 b.Denver_10 b.Denver_11 b.Denver_12
- 1 8 6 8 8 8 8 6 6 6
- 2 8 6 8 8 8 8 6 6 6
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement