使用另一个函数重现hist的$ count方面

如何解决使用另一个函数重现hist的$ count方面

所以我在这里有这个功能

as.tibble(hist(dat[dat<228000],breaks=seq(0,228000,2000),plot=F)$counts) %>% 
  group_by(value) %>% 
  summarise(count = n())

此函数将产生此结果。

  value count
   <int> <int>
 1     0    10
 2     1    25
 3     2    24
 4     3    24
 5     4    21
 6     5     5
 7     6     1
 8     7     2
 9     8     1
10    12     1

我可以使用两个功能来重现这一点

split_dna <- function(data,max,min,split,right = F,label = F){

filter(data,location <= max,location >= min) %>% 
    mutate(group := cut(location,breaks = seq(min,split),right = right,labels = label))
}

AND

count_dna <- function(data){
  
  group_by(data,group) %>% 
    summarise(palindrome_count = n()) %>% 
     ungroup() %>% 
     group_by(palindrome_count) %>% 
     summarise(intervals = n())
}

之后

test_large <- split_dna(dat,2000)
test <- count_dna(test_large)

上面的唯一问题是我丢失了零值，所以没有产生上面产生的小滴。

 palindrome_count intervals
             <int>     <int>
1                1        25
2                2        24
3                3        24
4                4        21
5                5         5
6                6         1
7                7         2
8                8         1
9               12         1

我觉得问题出在削减工作的方式上吗？我可以使用其他功能来计算那些零位吗？出于好奇，我这样做的目的更多是为了了解不同的功能是如何工作的，并了解解决同一问题的不同方法，以便我可以更好地教书。

您可以使用此数据段来复制应该出现零的示例

dat <- data.frame(location = c(177,1321,1433,1477,3248,3286,7263))