I need some help to group_by for tax and ommit for Company.

mc_B<- r_tax|>
  group_by(Company, `tax`) |>
  summarise(mean_tax= mean(tax))|>
  inner_join(b|>distinct(Company,.keep_all = TRUE)|>select(Company,END, TANG, LUC),by=c('Company'))|>
  group_by(`tax`)|>
  summarise(MB= END + TANG,
            Obs=niv_jur)|>
  ungroup()

Resulted with Company column