Advertisement
Guest User

Untitled

a guest
Jul 22nd, 2019
68
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.40 KB | None | 0 0
  1. df <- data.frame(v1 = c(0,1,2,3,4,5,6,7,8,9),
  2. v2 = c(2,1,4,7,6,7,8,9,0,1),
  3. v3 = c(4,1,6,7,8,9,0,1,2,3),
  4. v4 = c(0,1,2,7,4,5,6,7,8,9),
  5. v5 = c(0,1,6,3,6,9,8,9,0,1))
  6.  
  7. df$max <- colnames(df)[apply(df,1,which.max)]
  8.  
  9. v1 v2 v3 v4 v5 v1max v2max v3max v4max v5max
  10. 1 0 2 4 0 0 FALSE FALSE TRUE FALSE FALSE
  11. 2 1 1 1 1 1 TRUE TRUE TRUE TRUE TRUE
  12. 3 2 4 6 2 6 FALSE FALSE TRUE FALSE TRUE
  13. 4 3 7 7 7 3 FALSE TRUE TRUE TRUE FALSE
  14. 5 4 6 8 4 6 FALSE FALSE TRUE FALSE FALSE
  15. 6 5 7 9 5 9 FALSE FALSE TRUE FALSE TRUE
  16. 7 6 8 0 6 8 FALSE TRUE FALSE FALSE TRUE
  17. 8 7 9 1 7 9 FALSE TRUE FALSE FALSE TRUE
  18. 9 8 0 2 8 0 TRUE FALSE FALSE TRUE FALSE
  19. 10 9 1 3 9 1 TRUE FALSE FALSE TRUE FALSE
  20.  
  21. df[paste0(names(df), "max")] <- df == do.call(pmax, df)
  22.  
  23. df
  24. # v1 v2 v3 v4 v5 v1max v2max v3max v4max v5max
  25. #1 0 2 4 0 0 FALSE FALSE TRUE FALSE FALSE
  26. #2 1 1 1 1 1 TRUE TRUE TRUE TRUE TRUE
  27. #3 2 4 6 2 6 FALSE FALSE TRUE FALSE TRUE
  28. #4 3 7 7 7 3 FALSE TRUE TRUE TRUE FALSE
  29. #5 4 6 8 4 6 FALSE FALSE TRUE FALSE FALSE
  30. #6 5 7 9 5 9 FALSE FALSE TRUE FALSE TRUE
  31. #7 6 8 0 6 8 FALSE TRUE FALSE FALSE TRUE
  32. #8 7 9 1 7 9 FALSE TRUE FALSE FALSE TRUE
  33. #9 8 0 2 8 0 TRUE FALSE FALSE TRUE FALSE
  34. #10 9 1 3 9 1 TRUE FALSE FALSE TRUE FALSE
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement