I want to combine two compound commands from package "dplyr" for simplicity.

this is a hypothetical dataset

I first get the total length of each region:

df %>% dplyr::group_by(V5) %>% 
  dplyr::summarize(sum(sum)) %>% 
  ungroup()

then manually add it to a new column and extra:

df= df %>% mutate("region" = case_when(
    str_detect(V5, "upstream") ~ "4690",
    str_detect(V5, "downstream") ~ "3801",
))

df$Gsize <- (as.numeric(df$region)/14675549)*100

the function ungroup() doesn't do what I expected, I want the summed value be added for all variables. how can I combine the first and second functions in a way that it automatically calculates each region's size, adds it to a new column so then I can get the percentage of it? it is tedious to be done manually for many regions and many tables.

expected result:

CodePudding user response：

After computing the totals, join the totals with the original dataset. Then you can proceed with your percentage calculation.

library(dplyr)

 df %>%
  group_by(V5) %>% 
  summarize(total = sum(sum)) %>% 
  left_join(df, by = "V5")