Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/69.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
使用子集在R中创建交叉表_R - Fatal编程技术网

使用子集在R中创建交叉表

使用子集在R中创建交叉表,r,R,我有这张桌子: 现在我只想为agecat younger创建一个交叉表,所以它看起来像这样: /活的/死的 1/372/46 0/393/25 我想使用子集从原始表中获取正确的数据,但我真的不知道从哪里开始,有人能帮我吗?试试: SmokersAlive <- subset(df, Smoker == 1) #table showing only the smokers SmokersAlive <- sum(subset(df, Smoker == 1)$A

我有这张桌子:

现在我只想为agecat younger创建一个交叉表,所以它看起来像这样:

/活的/死的

1/372/46

0/393/25

我想使用子集从原始表中获取正确的数据,但我真的不知道从哪里开始,有人能帮我吗?

试试:

SmokersAlive <- subset(df, Smoker == 1)            #table showing only the smokers
SmokersAlive <- sum(subset(df, Smoker == 1)$Alive) #sum of col. "Alive" from table above

SmokersAlive请使用
dput()
呈现您的数据!图像文件是无用的。对不起,我是R的新手,也是这个网站的新手。我不知道dput()将做什么以及如何使用它。我也不明白为什么这个图像是无用的;我只是把它贴出来澄清我的问题。我看了可能的副本,但它不一样。我想处理他们在那里不使用的子集。请回答您的问题并提供答案。请看一看,在这里您可以找到关于
dput()
的解释。谢谢。@Stan请在您的问题中输入
dput(您的数据帧)
的结果。i、 编辑你的问题:谢谢,我要试试!我用你的第二行获得了4个值,我现在如何在表格中显示这4个值?我已经编辑了我的答案。现在它应该像你想要的那样工作了是的,这很有效,谢谢!
SmokersAlive <- sum(subset(df, Smoker == 1)$Dead)

SmokersDead     <- 1 #sum(subset....) should stand here
NonSmokersAlive <- 1 #...
NonSmokersDead  <- 1

Overview <- data.frame(matrix(c(SmokersAlive, SmokersDead, NonSmokersAlive, NonSmokersDead), ncol = 2, byrow = TRUE))

colnames(Overview) <- c("alive","dead")
rownames(Overview) <- c("0","1")

Overview