Min Max R Наборы данных Getmode

Question

Это продолжение другого вопроса, который у меня был ранее.У меня есть решение, но мне нужна помощь с добавлением последней части.

library(plyr)

getmode<- function(origtable,groupby,columnname) {
    data <- ddply (origtable, groupby, .fun = function(xx){
      c(m1 = paste(names(sort(table(xx[,columnname]),decreasing=TRUE)[1]))) 
      } ) 
    return(data)
}

getmode(df,c("CreditCardType","Bank","Year"),"TotalBalance")

df<-read.table(text="CreditCardType  Bank   Year   TotalBalance
               MASTERCARD       BOFA   2017   $100
               MASTERCARD       BOFA   2017   $100
               MASTERCARD       BOFA   2017   $700
               VISA              Wells  2018   $60 
               VISA              Wells  2018   $50
               VISA              Wells  2018   $60",
               header=T, stringsAsFactors=F)

Это дало мне режим, который я искал!Однако мне также нужны мин и макс, и

нет никаких "Getmin" или "Getmax"

Любые идеи ??

Заранее спасибо! @

Answer 1

Как то так ...?

> df %>% 
    group_by(CreditCardType, Bank, Year) %>% 
    summarise(Min=min(TotalBalance), 
              Max=max(TotalBalance))
# A tibble: 2 x 5
# Groups:   CreditCardType, Bank [?]
  CreditCardType Bank   Year   Min   Max
  <chr>          <chr> <int> <dbl> <dbl>
1 MASTERCARD     BOFA   2017   100   700
2 VISA           Wells  2018    50    60