r-错误:应用函数时列"x"未知

Question

我试图写一个如下的函数：

Q5base_func<- function(x){
a<-subQ5 %>% group_by(Q1,x) %>% summarise(n = n())
a <- a[complete.cases(a),] %>% filter(x == 1)
sum <- sum(a$n)
a_percent<- a%>%
mutate(freq= (n/sum)*100)
}

我希望在x==1时得到x的数量以及的百分比

有人能指出我错在哪里吗？非常感谢。

当我应用该功能时，

Q5base_func(subQ5$Q4)

错误追溯：

Error: Column `x` is unknown 
13.
stop(structure(list(message = "Column `x` is unknown", call = NULL, 
cppstack = NULL), class = c("Rcpp::exception", "C++Error", 
"error", "condition"))) 
12.
grouped_df_impl(data, unname(vars), drop) 
11.
grouped_df(groups$data, groups$group_names, .drop) 
10.
group_by.data.frame(., Q1, x) 
9.
group_by(., Q1, x) 
8.
function_list[[i]](value) 
7.
freduce(value, `_function_list`) 
6.
`_fseq`(`_lhs`) 
5.
eval(quote(`_fseq`(`_lhs`)), env, env) 
4.
eval(quote(`_fseq`(`_lhs`)), env, env) 
3.
withVisible(eval(quote(`_fseq`(`_lhs`)), env, env)) 
2.
subQ5 %>% group_by(Q1, x) %>% summarise(n = n()) 
1.
Q5base_func(subQ5$Q11) 

示例数据集如下所示：

Q1  Qx
1   1
2   0
2   1
3   0
3   1
3   1

Answer 1

您试图完成的任务是可能的。

subQ5 <- structure(list(Q1 = c(1L, 2L, 2L, 3L, 3L, 3L), 
Qx = c(1L, 0L, 1L, 0L, 1L, 1L)), 
class = "data.frame", row.names = c(NA, -6L))
library(dplyr)
Q5base_func <- function(df, x) {
df %>% filter(complete.cases(.))  %>% 
group_by(Q1) %>% 
#  mutate(sumx=sum(Qx==x), percent=sum(Qx==x)/n())     #add columns and keeps all of the data
summarise(sumx=sum(Qx==x), percent=sum(Qx==x)/n())  #summarize the results
}
x<-1
answer <-Q5base_func(subQ5, x)
answer