Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/70.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

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/2/apache-kafka/3.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
使用Conditions R Studio统计多列中的发生次数_R - Fatal编程技术网

使用Conditions R Studio统计多列中的发生次数

使用Conditions R Studio统计多列中的发生次数,r,R,我想得到第1列中的数据为1,第2列中的数据为1时发生的次数。短暂性脑缺血发作 seed(323) df <- tibble(x = round(runif(100, 0, 10)), y = round(runif(100, 0, 10))) df %>% count(x==1,y==1) # A tibble: 4 x 3 # `x == 1` `y == 1` n # <lgl> <lgl> &

我想得到第1列中的数据为1,第2列中的数据为1时发生的次数。短暂性脑缺血发作

seed(323)
df <- tibble(x = round(runif(100, 0, 10)),
             y = round(runif(100, 0, 10)))

df %>% count(x==1,y==1)
 
#  A tibble: 4 x 3
#   `x == 1` `y == 1`     n
#   <lgl>    <lgl>    <int>
# 1 FALSE    FALSE       80
# 2 FALSE    TRUE        10
# 3 TRUE     FALSE        8
# 4 TRUE     TRUE         2
种子(323)
df%计数(x==1,y==1)
#一个tibble:4x3
#`x==1``y==1`n
#           
#1假假80
#2假-真10
#3对错8
#4正确的2

在这种情况下,第一列得到10次数字1(8次单独使用,2次与第二列一起使用),第二列得到12次(10次单独使用,2次与第一列一起使用)

您可以从
dplyr
包中使用
过滤器
摘要

library(dplyr)

df1 <- df %>% 
  filter(col1 == 1 & col2==1) %>% 
  summarize(Freq_col1andcol2_equalto1 = n()) 
库(dplyr)
df1%
过滤器(col1==1和col2==1)%>%
总结(Freq_col1和col2_equalto1=n()
数据:


df您尝试了什么?你的结果是什么?你有错误吗?这不是一个“请为我写我的代码”的网站,显示很少或没有努力的问题不太可能得到好的答案。如果您提供我们可以复制和过去的代码和数据,而不是数据和代码的图像,您的问题也更有可能得到好的答案。有关如何创建良好的可复制示例,请参见此问题:
df <- tribble(
  ~col1, ~col2,
  5,5,
  5,5,
  1,1,
  5,5,
  5,5)