请教：函数无法使用

shang00122

各位老师您好：
我想写1个函数，希望能重复使用。就是把调查问卷中的a1,a2等题目选项中的1变成是，2变成否。另外有时候如果有3这个选项，能变成3=不知道。
但是总报错，不知道原因是什么？
fun1<-function(df,value){
df$value<−fctrecode(df$value,
"是"=="1",
"否"=="2")
}

df$za1<-fun1(df,a1)
Error in fct_recode():
! .f must be a factor or character vector, not NULL.
Backtrace:

global fun1(df, a1)
forcats::fct_recode(df$value, "yes" == 1, "no" == 2)

vickkk

shang00122
应该是value这一列并不在你的df中；
另一种思路：

df <- df %>% mutate(col.new = case_when(
  col1 == "Y" ~ "1",
  col1 == "N" ~ "2",
  col1 == "not known" ~ "3") )

shang00122

vickkk 谢谢老师！

fenguoerbian

问题有点多：

你平常应该是习惯了直接写变量名，但是在函数内并不容易这么直接使用。我想在你的脑子里这个函数运行的时候里面value应该是你给的变量名a1，但实际并不如此，df$value会取df中的value变量。如果想纠结其中的理论细节，不妨去参考Advanced R里的meta programming章节。这里你如果想简单一些，不妨直接传入字符串式的变量名，同时函数内部用df[[value]]这样的形式来取数据
fct_recode中的重新编码的形式应该是"是"="1"，你两处都多打了等号。
你在函数中将df中的value列进行了更新，那么函数返回值是什么呢？从你后面的用法df$za1<-fun1(df,a1)来看这个函数应该是直接返回被更新的列，而不是去更新df中的value列。
有不少typo，<−fctrecode里面赋值符号出现了中文的横杠，并且函数名应该是fct_recode，漏掉了下划线。

fun1 <- function(df, value){
    forcats::fct_recode(df[[value]],
                                      "是"="1",
                                      "否"="2")
}

df$za1 <- fun1(df, "a1")

shang00122

fenguoerbian 谢谢老师！！

shang00122

fenguoerbian 老师，还有就是如果是连续性变量，
fun1<-function(df,value){
df %>% group_by(leixing) %>% summarise(mean=mean(value))}
#使用函数
fun1(df,score)
还是报错，因为fun1无法识别value。但如果我写成mean=mean(df[[value]])的话，计算出来的是整个df的结果，不是group_by的结果，您看怎么实现呢？

fenguoerbian

shang00122

如果你需要在函数中使用dplyr的话，那么可以参考programming with dplyr这篇文档。简而言之在你这里的情况中，如果你希望函数中直接使用变量名fun1(df, score)，那么你里面应该用

summarise(mean = mean({{ value}}))

这样的写法。

而如果你希望函数调用时给的是一个存储了数据框中变量名的字符串的变量，即varname <- "score"然后fun1(df, varname)，那么你的函数里应该采用

summarise(mean = .data[[value]])

shang00122

fenguoerbian 谢谢老师，真是非常感谢！！