text: Q:
  
  Translating SAS language to R language: Creating a new variable
  
  I have a sas code and I want to translate into R. I am interested in creating variables based on the conditions of other variables.
  data wp;
  set wp;
  
  if totalcriteria =>3 and nonecom=0 then content=1;
  if totalcriteria =>3 and nonecom=1 then content=0;
  if totalcriteria  <3 and nonecom=0 then content=0;
  if totalcriteria  <3 and nonecom=1 then content=0;
  run;
  
  This is a code I have in. My conditions for "content" as changed and I would like to translate the sas code to R to hopefully replace the "mutate" line of the code below or fit in with the code below:
  wpnew <- wp %>%
     mutate(content = ifelse (as.numeric(totalcriteria >= 3),1,0))%>%
     group_by(district) %>%
     summarise(totalreports =n(),
               totalcontent = sum(content),
               per.content=totalcontent/totalreports*100)
  
  Can you help me translate this SAS code to R language. Thank you in advance.
  Here is the dput output
  structure(list(Finances = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
  0, 0, 0, 0, 0), Exercise = c(0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 
  0, 0, 0, 0, 0), Relationships = c(0, 0, 0, 0, 0, 0, 0, 1, 0, 
  0, 0, 0, 0, 0, 0, 0), Laugh = c(0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 
  0, 0, 0, 0, 0, 1), Gratitude = c(0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 
  0, 0, 0, 0, 0, 1), Regrets = c(0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 
  0, 0, 0, 0, 0, 0), Meditate = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
  0, 0, 0, 0, 0, 0), Clutter = c(0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 
  0, 0, 1, 0, 0, 0), Headache = c(0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 
  0, 0, 1, 0, 0, 0), Loss = c(0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 
  0, 0, 0, 0, 0), Anger = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
  1, 0, 0, 0), Difficulty = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
  0, 0, 0, 0, 0), nonecom = c(1, 0, 0, 0, 0, 1, 1, 0, 0, 1, 1, 
  1, 0, 1, 1, 0), Othercon = c(0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
  0, 0, 0, 0, 0), totalcriteria = c(0, 0, 2, 3, 2, 0, 0, 4, 3, 
  0, 0, 0, 3, 0, 0, 2)), class = "data.frame", row.names = c(NA, 
  -16L))
  
  This is what I would like it to look like
  V1   V2   V3...V12  nonecom  Othercon  totalcriteria  content  
  1     1   1     0      1        0           3             0
  0     0   1     0      0        0           8             1
  1     0   0     0      0        1           2             0
  1     0   1     0      1        0           1             0
  
  A:
  
  I use case_when just because I find it more similar in terms of syntax. Your current approach only tests the first part of the IF condition, not the second part regarding nonecom.
  wpnew <- wp %>%
     mutate(content = case_when(sum.content >= 3 & nonecom == 0 ~ 1,
                                TRUE ~ 0))
  
  