Advertisement
Guest User

Untitled

a guest
Oct 24th, 2014
130
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.32 KB | None | 0 0
  1. library(data.table)
  2. res<- setDT(df)[, list(Total_Amount=sum(amount)), by=name]
  3.  
  4. library(dplyr)
  5. df %>%
  6. group_by(name) %>%
  7. summarise(Total_Amount=sum(amount))
  8.  
  9. set.seed(24)
  10. df <- data.frame(name=sample(LETTERS[1:5], 25, replace=TRUE),
  11. amount=sample(150,25, replace=TRUE))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement