Creating a loop to filter data and create a summary

[str_guru]

I want to create a loop which can filter data according to c("published" ,"pending","not designed") and then calculate the percentage distribution between text of Name column and create a list of summaries.

df <- data.frame(Name = c("ABC","DCA","GOL",NA,"MNA",NA,"VAN","KDA","JHA","MNA","LKO","HUN","GOL","DCA","JHA"),
                 Goal =c("published","pending","not designed","published","not designed","not designed","pending","pending","published","pending","not designed","pending","pending","pending","not designed"),
                 Target_1 = c(3734,2639,2604,NA,2793,2688,2403,7612,8653,8653,8765,3645,5976,4362,7593),
                 Target_2 = c(3322,2016,2310,NA,3236,3898,2309,5632,7846,5863,5936,4067,6876,6876,5582),
                 Target_3 = c(3785,2585,3750,NA,2781,3589,2830,6785,8636,7548,9065,7954,8576,9989,4892))

[nirgrahamuk]

what have you tried ?

[str_guru]

i am not able to make logic how to do

[nirgrahamuk]

what does calculate the percentage distribution between text of Name column mean ?
please give an example.

I assume you meant this:
library(tidyverse)

(master_vol <- group_by(df,
         Goal) %>% summarise(n_master=n()))
(sub_vol <- group_by(df,
                    Goal,Name) %>%
    summarise(n_sub=n()))

inner_join(master_vol,sub_vol) %>% mutate(n_perc = n_sub/n_master)

# A tibble: 14 x 5
   Goal         n_master Name  n_sub n_perc
   <fct>           <int> <fct> <int>  <dbl>
 1 not designed        5 GOL       1  0.2  
 2 not designed        5 JHA       1  0.2  
 3 not designed        5 LKO       1  0.2  
 4 not designed        5 MNA       1  0.2  
 5 not designed        5 NA        1  0.2  
 6 pending             7 DCA       2  0.286
 7 pending             7 GOL       1  0.143
 8 pending             7 HUN       1  0.143
 9 pending             7 KDA       1  0.143
10 pending             7 MNA       1  0.143
11 pending             7 VAN       1  0.143
12 published           3 ABC       1  0.333
13 published           3 JHA       1  0.333
14 published           3 NA        1  0.333

[str_guru]

actually i want to apply loop here because i want to create a function with loop so that i can apply that function to list of different variables and by percentage distribution i mean a table like below for all three subset filtered data.

so the loop will filtered the data for not designed and create a summary like below.

list of summaries

not designed	n	percent
JHA	22	44%
LKO	12	24%
MNA	6	12%
NA	4	8%
DCA	6	12%
	50	100%
pending
JHA	5	18%
LKO	12	43%
MNA	4	14%
NA	5	18%
DCA	2	7%
	28	100%
published
JHA	1	7%
LKO	3	20%
MNA	5	33%
NA	2	13%
DCA	4	27%
	15	100%