Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/78.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_Dataframe_Dplyr - Fatal编程技术网

R 使用“确定每个季度阳性病例与总病例的比率”;表「;功能

R 使用“确定每个季度阳性病例与总病例的比率”;表「;功能,r,dataframe,dplyr,R,Dataframe,Dplyr,我有一个包含两个重要列的数据集,如下所示(示例行如下所示): 结果如下表所示: FALSE TRUE 2014 Q4 880 46 2015 Q1 1815 77 2015 Q2 1677 73 2015 Q3 1191 50 2015 Q4 555 13 然而,我想做的是确定“真实”案例与案例总数的比率。所以,基本上,一个包含46/(46+880)的列。。。 我该怎么做 谢谢我们可以使用道具表 out <- ta

我有一个包含两个重要列的数据集,如下所示(示例行如下所示):

结果如下表所示:

          FALSE TRUE
  2014 Q4   880   46
  2015 Q1  1815   77
  2015 Q2  1677   73
  2015 Q3  1191   50
  2015 Q4   555   13
然而,我想做的是确定“真实”案例与案例总数的比率。所以,基本上,一个包含46/(46+880)的列。。。 我该怎么做


谢谢

我们可以使用
道具表

out <- table(sub_select$yq, sub_select$result)
cbind(out, prop = prop.table(out, 1)[,2])
-输出

#        FALSE TRUE prop
#2014 Q2     1    0  0.0
#2014 Q3     2    2  0.5
#2014 Q4     3    2  0.4
数据
sub_选择“数据”部分。我在我的问题中补充了这一点
out <- table(sub_select$yq, sub_select$result)
cbind(out, prop = prop.table(out, 1)[,2])
out <- table(sub_select$yq, sub_select$result)
cbind(out, prop = out[,2]/rowSums(out))
#        FALSE TRUE prop
#2014 Q2     1    0  0.0
#2014 Q3     2    2  0.5
#2014 Q4     3    2  0.4
sub_select <- structure(list(yq = c("2014 Q4", "2014 Q3", "2014 Q4", "2014 Q3", 
"2014 Q4", "2014 Q3", "2014 Q4", "2014 Q3", "2014 Q4", "2014 Q2"
), result = c(FALSE, TRUE, FALSE, TRUE, FALSE, FALSE, TRUE, FALSE, 
TRUE, FALSE)), class = "data.frame", row.names = c("1", "2", 
"3", "4", "5", "6", "7", "8", "9", "10"))