Select Rows who's Sum Value = 80% of the Total

[lupak]

Good day.
I want to select companies that generate 80% of the company's sales.

I have 3 columns

• Company name
• The sum of the value of orders
  -% share in total sales

Will you help to achieve such an effect?

[nirgrahamuk]

familiarise yourself with dplyrs filter functionality

Keep rows that match a condition — filter

you may have issues relating to variable type. If your colums for % is a numeric (maybe just a decimal representation) it should be straightforward. However if its a character representation i.e. string like '74%' with a percentage character, you would need to convert it to a numeric type before attempting to filter.

[siddharthprabhu]

Here's one possible dplyr solution. I presume you want the companies with the largest order values accounting for 80% of total sales.

library(dplyr, warn.conflicts = FALSE)

df <- tribble(
  ~company_name, ~total_value,
  "ABC Corp", 600,
  "DEF Inc.", 1000,
  "GHI Holdings", 300,
  "XYZ Inc.", 500
)

df %>% 
  arrange(desc(total_value)) %>% 
  mutate(share = cumsum(total_value / sum(total_value))) %>% 
  filter(lag(share, default = 0) < 0.8)
#> # A tibble: 3 x 3
#>   company_name total_value share
#>   <chr>              <dbl> <dbl>
#> 1 DEF Inc.            1000 0.417
#> 2 ABC Corp             600 0.667
#> 3 XYZ Inc.             500 0.875

^{Created on 2020-09-07 by the reprex package (v0.3.0)}

[lupak]

cumsum
You helped me a lot, thank you.