R中自定义函数中的变量名称如何输出？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

大家好！我遇到一个问题，编写一个函数，比如：
myfun <- function(x){
    if( length( x[!is.na(x)] )  !=  length(x) ){
        stop("x中有NA！")}
    2*x
}

y <- c(1, 2, NA, 4)
myfun(y)

运行结果显示为“x中有NA！”， 而不是“y中有NA!”，
即运行结果需要根据myfun输入对象名称而输出相应变量名称，如何解决？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：自定义函数 自定义 Fun 大家好 如何

试试这个

myfun <- function(x){
  vname = deparse(substitute(x))
  if( length( x[!is.na(x)] )  !=  length(x) ){
    stop(sprintf("%s中有NA！", vname))}
  2*x
}

ntsean 发表于 2015-7-4 22:56
试试这个

myfun

谢谢！