Masking Values in function

shoaibali · July 29, 2020, 3:11am

Hi I am trying to create a function for EXPSS table, sample data below

 dput( dataa<-data.frame(
  aa = c("q","r","y","v","g","y","d","s","n","k","y","d","s","t","n","u","l","h","x","c","q","r","y","v","g","y","d","s","n","k","y","d","s","t","n","u","l","h","x","c"),
col1=c(1,2,3,2,1,2,3,4,4,4,5,3,4,2,1,2,5,3,2,1,2,4,2,1,3,2,1,2,3,1,2,3,4,4,4,1,2,5,3,5),
col2=c(2,1,1,7,4,1,2,7,5,7,2,6,2,2,6,3,4,3,2,5,7,5,6,4,4,6,5,6,4,1,7,7,2,7,7,2,3,7,2,4)
)
)

function i created is

  crosstab_sum <- function(dat1,var1,var2)
{
var1 <- rlang::parse_expr(var1)
var2 <- rlang::parse_expr(var2)

dat1 = dat1 %>% select(!!var1,!!var2)
expss::var_lab(dat1[[1]]) <- ""
expss::var_lab(dat1[[2]]) <- ""
tab1 <- expss::cro_cpct(dat1[[1]],dat1[[2]])
tab1 <- as.data.frame(tab1)
tab1[is.na(tab1)] <- 0
tab1 <- tab1 %>% mutate_if(is.numeric,round,digits=1)
tab1 <- flextable:: flextable(tab1)
tab1
}

now i want to add a criteria in this function on total but unable to explore how i can apply the below criteria (max_m) in my above function.

 max_n<-c(3,4,5)
max_m<-function(x,N){
  x= ifelse(N<max_n[1],"--",x)
}

in this function "N" is total number of occurence

also do we have any solution to concatenate "%" in all values except Total

gueyenono · July 29, 2020, 3:29am

Your code is not fully reproducible. I know full well that functions such as select(), mutate_if() and such are from the dplyr package. But I am not sure about the var_lab() function and cro_cpct() for example. If you make your code fully reproducible, then potential helpers will be better equipped to help you.

shoaibali · July 29, 2020, 3:46am

Yes its fully reproducible, var_lab() function and cro_cpct() are part of library(EXPSS)

gueyenono · July 29, 2020, 4:02am

I see that you have edited your code to make it more reproducible by adding expss::. You still need to add the dplyr and flextable packages to make it fully reproducible.

Also, it seems that these two lines of code are problematic in the function (I get an error):

expss::var_lab(dat1[[1]]) <- ""
expss::var_lab(dat1[[2]]) <- ""

shoaibali · July 29, 2020, 4:07am

you can please ignore these lines i can modify it later, but what kind of error you getting ,because i am not getting

gueyenono · July 29, 2020, 4:35am

Okay, I was able to make it work. But I have one more question before I can help you. Can you please explain a bit more what you want your function to do? Thanks.

shoaibali · July 29, 2020, 4:41am

I am trying to create a crosstab summary for expss data, and convert it to flextable to give theme, also i want to introduce masking if number of cases between (3,4,5) then it will not show results is summary will replaced by "-"

so that i can just give (data, var1,var2) and to make my reports dynamically generated

gueyenono · July 29, 2020, 5:22am

Okay, please try this code and let me know if this is what you are looking for:

library(dplyr)
library(expss)

df <- data.frame(
  aa = c("q","r","y","v","g","y","d","s","n","k","y","d","s","t","n","u","l","h","x","c","q","r","y","v","g","y","d","s","n","k","y","d","s","t","n","u","l","h","x","c"),
  col1=c(1,2,3,2,1,2,3,4,4,4,5,3,4,2,1,2,5,3,2,1,2,4,2,1,3,2,1,2,3,1,2,3,4,4,4,1,2,5,3,5),
  col2=c(2,1,1,7,4,1,2,7,5,7,2,6,2,2,6,3,4,3,2,5,7,5,6,4,4,6,5,6,4,1,7,7,2,7,7,2,3,7,2,4)
)

crosstab_sum <- function(dat1,var1,var2){
  
  var1 <- rlang::parse_expr(var1)
  var2 <- rlang::parse_expr(var2)
  
  dat1 = dat1 %>% select(!!var1,!!var2)
  var_lab(dat1[[1]]) <- ""
  var_lab(dat1[[2]]) <- ""
  tab1 <- cro_cpct(dat1[[1]],dat1[[2]])
  tab1 <- as.data.frame(tab1)
  tab1[is.na(tab1)] <- 0
  tab1 <- tab1 %>% mutate_if(is.numeric,round,digits=1) 
    tab1[nrow(tab1), ] <- ifelse(tab1[nrow(tab1), ] %in% c(3, 4, 5), "---", tab1[nrow(tab1), ])
  tab1[-nrow(tab1), -1] <- sapply(tab1[-nrow(tab1), -1], function(x) paste(x, "%"))
  tab1 <- flextable::flextable(tab1)
  tab1
}

crosstab_sum(dat1 = df, var1 = "col1", var2 = "col2")

shoaibali · July 29, 2020, 5:39am

Great , Thanks alot, one more thing , i also want to concatenate "%" with all values except total

gueyenono · July 29, 2020, 7:08am

I made the necessary edit to my solution above. Don't forget to mark it as the solution if it solves your problem. It may help future readers.

shoaibali · July 29, 2020, 7:20am

Hi this is still not working , giving opposite result as required

i am looking for like below

1	2	3	4	5	6	7

1 19% 12% 15% 17% 18% 19% 15%
2 17% 13% 18% 18% 15% 18% 16%
3 14% 15% 17% 16% 13% 19% 17%
4 19% 15% 12% 18% 17% 15% 18%
5 19% 13% 16% 12% 17% 14% 13%
total 76 87 164 45 53 63 47

gueyenono · July 29, 2020, 7:36am

Okay, I understand better now. Check the new code. I just made an edit.

shoaibali · July 29, 2020, 7:48am

Thanks , yay....it works now, but still i required your more help in this in future

shoaibali · July 30, 2020, 4:10am

Hi Gueyenono , Do we have solution if total falls in (3,4,5) then whole column values will replace with "--" like below

if total falls in (3,4,5) then all column will not show any value (replace by "--")
also if the values are like 2.0 or 44.0 the it also show decimal point 0 rather than 22,44

i have tried but not able to do

gueyenono · August 5, 2020, 8:58pm

Sorry, I did not see this earlier. If you need my help, just write a new question and tag me on it. I'll be glad to help.

shoaibali · August 6, 2020, 3:43am

I dont know how to tag, but the question is Masking Values for column in function

system · August 13, 2020, 3:43am

This topic was automatically closed 7 days after the last reply. New replies are no longer allowed.