the data frame is like
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)
)
and i trying to create summary for average,mean, percentile
dataset <- dataa
grp_var <- "aa"
var <- "col1"
footer <- "SS"
grp_var <- enquo(grp_var)
var <- enquo(var)
bygrps_table<-dataset%>%filter(!is.na(!!var),!is.na(!!grp_var)) %>%
select(!! grp_var, !!var) %>%
group_by(!! grp_var) %>%
summarise(
q25 = round(quantile(!! var, type=6, probs = seq(0, 1, 0.25), na.rm=TRUE)[2],digits = 1),
Median =round(quantile(!! var, type=6, probs = seq(0, 1, 0.25), na.rm=TRUE)[3],digits = 1),
Average = round( mean(!! var, na.rm=TRUE),digits = 1),
q75 = round(quantile(!! var, type=6, probs = seq(0, 1, 0.25), na.rm=TRUE)[4],digits = 1) ,
N = sum(!is.na(!!var)))
its giving error :-
Error in round(quantile(~"col1", type = 6, probs = seq(0, 1, 0.25), na.rm = TRUE)[2], :
non-numeric argument to mathematical function
why its giving if column class is numeric