library(tidyverse)

group_by(
  warehouse_members_settlement
 ,プラン名
) %>%
 summarise(
   .
  ,id_num = n()
  ,excluding_tax = sum(`請求額（税抜き）`)
  ,total_settlement = sum(請求総額)
 )