请问如何实现R中函数调用函数

superdesolator

问题是这样的:

比如C语言

int main()

{ int a=1;

add1(a);

print(a);

}

int add(a) {a=a+1}

我们看到C语言的输出是2

而同样的结构给R，怎么都是由a=1决定的，我知道这是全局变量和函数内变量的原因，但怎么才能实现C语言上面的功能呢？

简单来说，就是我给出一些初始值，然后调用某个函数，这个函数，会利用这些初始值，但函数体内会改变他们（这个时候我需要更新初始值为这一次执行函数后的结果），当我再调用这个函数的时候，我希望初始值是我上次执行过一次函数后的结果作为新的参数（初始值）。。。该怎么办呢？我是不是ＮＣ了，完全不知道怎么做了。。请教大家！

suckbunny

条条大路通罗马。换个思路。或者试试<<-

Robert_Hoo

<br />
a=1<br />
myfun <- function() {<br />
  a <<- a + 1<br />
  print(a)<br />
}</p>
<p> myfun()<br />
[1] 2<br />
> myfun()<br />
[1] 3<br />
> myfun()<br />
[1] 4<br />
> myfun()<br />
[1] 5</p>
<p>

nishenghua

3楼说的很好，你可能没太注意，R程序大多都要调用其他函数的

superdesolator

感谢各位大牛的回复,我是看一个问题的C语言算法,想翻译成R语言,简单来说,C语言可以有分块式的流程,就是一件事,找个主线,在主线里调用其他函数,主函数和所有的其他函数都可以对同样的参数起到决定作用,3楼只是一个数的情况，如果多个数，真不知道怎么办了，比如:

main()

{

a=1，b=1;

f1();

f2 ();

print(a,b);

}

f1的作用让a=a+1,b=b+1

f2的作用让a=a+2,b=b+2

那么a=4,b=4

但是R语言怎么可以在f1()过后，让f2()里的初始a=2，b=2呢？

3楼的看上去可以，但是，按照3楼思路，f1()的return首先只能有1个，其次，你必须让a=f1(),才能改变a的值，3楼的做法，打下a=?a还是=1。。

Ihavenothing

回复第5楼的 superdesolator：

3楼的方法没有返回值，而是直接在函数里赋值了。

Robert_Hoo

回复第5楼的 superdesolator：回复第6楼的 Ihavenothing：

“<<-” 是superassignment, 怎么可能a没改变

If global and permanent assignments are intended within a function, then either the “superassignment” operator, <<- or the function assign() can be used

http://www.cran.r-project.org/doc/manuals/R-intro.pdf

<br />
> rm(list=ls())<br />
> a=1<br />
> b=1<br />
> c= NULL<br />
> f1 <- function() {a <<- a + 1;b <<-b+1}<br />
> f2 <- function() {a <<- a + 2;b <<-b+2}<br />
> myfun <- function() {f1();f2();c=a^2+b^2}  ##用<<-赋值，a,b的值都是即时更新，用 “=” 只是函数内有效<br />
> myfun() #运行一次myfun后看a,b,c的值<br />
> a<br />
[1] 4<br />
> b<br />
[1] 4<br />
> c<br />
NULL<br />
><br />
> a = 20  #重新赋值a = 20<br />
> myfun()  #再运行一次myfun后， 再看a,b,c的值<br />
> a         #a 新赋的值也被function()马上更新了<br />
[1] 23<br />
> b<br />
[1] 7<br />
> c<br />
NULL</p>
<p>

"<<-"在一般的编程中用得不多，但是在interactive编程中用得很广泛，如在网站中某用户输入一个新的数据，要求马上给出新的结果，而这个结果又是另外一个函数要用到的，这就要用到 superassignment改变function里面的值

suckbunny

回复第7楼的 Robert_Hoo：你理解错6楼意思了[s:12]

回复第5楼的 superdesolator：再好好理解下<<-

ypchen

回复第7楼的 Robert_Hoo：建议你读一下《R语言编程艺术》的第七章

Robert_Hoo

回复第9楼的 ypchen：有话请直说,哪里错了可以指出来

建议你读一下An Introduction to R 第十章 http://www.cran.r-project.org/doc/manuals/R-intro.pdf

superdesolator

好吧,其实大家的分歧是因为我说的不够具体,我举个更详细的例子来说下我是啥意思,（注意程序不要运行，因为错了，R会死机），有可能我问的跟我标题和上面我1,5楼举的例子意思不一样，这都是本人水平问题，但下面的例子能表达我的意思：

match=function(a,b)<br />
{<br />
 n=length(a)                #a,b都是一个数值型的等长向量，大家可以举a=1:3,b=2:4<br />
 c=rep(0,n)          #c是一个标记状态的向量：如果c=(1,1,0)那说明d[3]不等于a[3]+b[3]<br />
 d=sample(n,n)      #如果c=(0,1,0)那说明d[1],d[3]都不等于对应的a，b元素之和<br />
 while(any(c==0))   #我的目的是使得最后的d=a+b，当然这只是为了做个简单的例子表达意思<br />
{                      #所以我用状态c去控制d是否等于a+b，如果c全为1了，则d=a+b了，否则就循环<br />
 indexc=which(c==0)[1]  #取不等于1的第一个indexc此时对应的d[indexc]!=a[indexc]+b[indexc]<br />
 add(a,b,c,d,indexc)   #调用add函数，让对应位相等，并且调整indexc的状态为1，再继续循环，直到都相等<br />
 }<br />
return(list(c,d))<br />
}                    </p>
<p>add=function(a,b,c,d,indexc)<br />
{<br />
  d[indexc]=a[indexc]+b[indexc]<br />
  c[indexc]=1<br />
}

问题就来了：这个add（）函数执行过之后，在match()函数里，c到底变化了没有？因为我是靠判断c来进行循环的，如果c不变不是死循环么，当然有大神会说直接把add函数的外衣拿掉，c就肯定变了，但是，我想说的就是一个程序很大，需要不断的从一个函数调用其它函数时，想分块写其它函数再调用的话，C语言我知道怎么做，R呢？

我再想的是不是：1.我程序思路有问题 2.<<-怎么用在这里？以达到效果 3.是不是考虑

用namespace方面的知识在这里，可我就大概知道这个意思，完全不会用，如果用，怎么用呢？

PS：希望我表达清楚我的意思了。。。。

Ihavenothing

回复第10楼的 Robert_Hoo：

你的解释没错，我估计其他人是点错回复按钮了。

<<-可能比你想像得还要更复杂一些，它本身不是“全局赋值”，而是先在函数的外面一层环境搜索，如果搜索到相同名字的变量，就对这个变量赋值；如果没有搜索到，再到上一层搜索；一直下去，如果到了全局环境还没有搜索到，就在全局环境里赋值。

Ihavenothing

回复第11楼的 superdesolator：

你的程序有两种改法，第一种是使用<<-：

match = function(a, b) {<br />
    n = length(a)<br />
    c = rep(0, n)<br />
    d = sample(n, n)<br />
    add = function(a, b, indexc) {<br />
        d[indexc] <<- a[indexc] + b[indexc]<br />
        c[indexc] <<- 1<br />
    }<br />
    while (any(c == 0)) {<br />
        indexc = which(c == 0)[1]<br />
        add(a, b, indexc)<br />
    }<br />
    return(list(c, d))<br />
}

第二种是利用返回值：

match = function(a, b) {<br />
    n = length(a)<br />
    c = rep(0, n)<br />
    d = sample(n, n)<br />
    while (any(c == 0)) {<br />
        indexc = which(c == 0)[1]<br />
        res = add(a, b, c, d, indexc)<br />
        c = res$c<br />
        d = res$d<br />
    }<br />
    return(list(c, d))<br />
}</p>
<p>add = function(a, b, c, d, indexc) {<br />
    d[indexc] = a[indexc] + b[indexc]<br />
    c[indexc] = 1<br />
    return(list(c = c, d = d))<br />
}

superdesolator

回复第13楼的 Ihavenothing：首先万分感谢站长大神的回复，第二种做法是我想要的方法，第一种做法必须得把add()函数写到match函数里，不好，程序多的时候，很乱，但我仍存的1个问题是，是不是最好得在add()函数的returnlist中对应好名字，就是c=c,d=d,或者return(list(e = c, f = d))的时候，上面c=res$e,d=res$f呢？不知道理解的对不对。这样一来的话，就可以随便用函数调用函数了。[s:11]

Ihavenothing

回复第14楼的 superdesolator：

是的，list(key = value)里面，key是元素的名称，value是元素的实际取值。

Ihavenothing

回复第14楼的 superdesolator：

另外几个编程的习惯需要注意，match和c都是R中的函数，自定义变量名和函数名的时候应尽量避免重名。

nan.xiao

<<- 是毒药，碰不得。我用且只用等号。

另外，我能说这是伪需求么，从来就没遇到过这样的问题。因为 R 函数和 C 函数在组织形式和执行逻辑存在根本上的差异，R 有 R 自己的方式，总想着类比是没有什么意义的。不过这一点需要自己在实践中去体会了，可能吃点苦头以后会有更深刻的理解吧。