为什么这里yvar不是can呢？

1. can <- c(rep(1, times = 231), rep(0, times = 178), rep(1, times = 11),
   
2.          rep(0, times = 38))
   
3. smk <- c(rep(1, times = 225), rep(0, times = 6), rep(1, times = 166),
   
4.          rep(0, times = 12), rep(1, times = 8), rep(0, times = 3), rep(1, times = 18),
   
5.          rep(0, times = 20))
   
6. alc <- c(rep(1, times = 409), rep(0, times = 49))
   
7. dat <- as.data.frame(cbind(alc, smk, can))
   
8. 
   
9. aaa<-function(yvar,data) {
   
10.   bbb2 <- data.frame(ftable(xtabs(~ smk + alc + yvar,data=data)))
    
11.   print(bbb2)
    
12.   print(str(bbb2))
    
13. }
    
14. aaa(yvar=can,data=dat)

复制代码

  smk alc yvar Freq
1   0   0    0   20
2   1   0    0   18
3   0   1    0   12
4   1   1    0  166
5   0   0    1    3
6   1   0    1    8
7   0   1    1    6
8   1   1    1  225
'data.frame':        8 obs. of  4 variables:
$ smk : Factor w/ 2 levels "0","1": 1 2 1 2 1 2 1 2
$ alc : Factor w/ 2 levels "0","1": 1 1 2 2 1 1 2 2
$ yvar: Factor w/ 2 levels "0","1": 1 1 1 1 2 2 2 2
$ Freq: num  20 18 12 166 3 8 6 225
NULL

为什么这里yvar不是can呢？谢谢！

dxystata 发表于 2013-7-9 15:47
自定义函数中,生成的列联表是
xtabs(~smk + alc + yvar,data=data) #smk和alc是确定值，yvar是变量、dat ...

传递的是值而不是标签吧。

自定义函数中,生成的列联表是
xtabs(~smk + alc + yvar,data=data) #smk和alc是确定值，yvar是变量、data是变量。
aaa(yvar=can,data=dat) #这个是给两个变量赋值
所以结果是生成的列联表中必然是yvar，而不是can

410234198 发表于 2013-7-9 15:35
自定义函数中,生成的列联表是
xtabs(~smk + alc + yvar,data=data) #smk和alc是确定值，yvar是变量、data是 ...

自定义函数中,生成的列联表是
xtabs(~smk + alc + yvar,data=data) #smk和alc是确定值，yvar是变量、data是变量。
aaa(yvar=can,data=dat) #这个是给两个变量赋值
所以结果是生成的列联表中必然是yvar，而不是can

yvar传递的是can，应该是can啊

dxystata 发表于 2013-7-9 15:47
自定义函数中,生成的列联表是
xtabs(~smk + alc + yvar,data=data) #smk和alc是确定值，yvar是变量、dat ...

一个简单的例子。
>a=rep(1,7)
>b=rep(2,7)
>d<-function(x,y){cbind(x,y)}
>d(a,b)
#结果是
      x y
[1,] 1 2
[2,] 1 2
[3,] 1 2
[4,] 1 2
[5,] 1 2
[6,] 1 2
[7,] 1 2

a,b只是d函数的两个参数值而已，这两个参数已经命名了x,y了。
如果
>d<-function(x,y){cbind(a=x,y)}
>d(a,b)
     a y
[1,] 1 2
[2,] 1 2
[3,] 1 2
[4,] 1 2
[5,] 1 2
[6,] 1 2
[7,] 1 2

如何修改函数中的内容，使其显示can呢？

dxystata 发表于 2013-7-9 16:00
如何修改函数中的内容，使其显示can呢？

个人观点。
直接修改函数function(can,data){}
或者fuction(yvar，data){
can=yvar
bbb2 <- data.frame(ftable(xtabs(~ smk + alc + can,data=data)))}
别的还没想起来。。。