Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- library(data.table)
- res<- setDT(df)[, list(Total_Amount=sum(amount)), by=name]
- library(dplyr)
- df %>%
- group_by(name) %>%
- summarise(Total_Amount=sum(amount))
- set.seed(24)
- df <- data.frame(name=sample(LETTERS[1:5], 25, replace=TRUE),
- amount=sample(150,25, replace=TRUE))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement