opensensemap/opensensmapR
1
0
Fork 0
mirror of https://github.com/sensebox/opensensmapr synced 2025-06-09 20:06:10 +02:00
Code Issues Releases Wiki Activity

order phenomena by count

Browse source
This commit is contained in:
noerw 2017-08-17 21:33:29 +02:00
parent 0486a1d383
commit 790ce35a5a
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
R/phenomena.R
View file

@ -28,7 +28,9 @@ osem_phenomena = function (boxes) UseMethod('osem_phenomena')
#' names(phenoms[phenoms > 9]) #' names(phenoms[phenoms > 9])
#' #'
osem_phenomena.sensebox = function (boxes) { osem_phenomena.sensebox = function (boxes) {
Reduce(`c`, boxes$phenomena) %>% # get all the row contents in a single vector p = Reduce(`c`, boxes$phenomena) %>% # get all the row contents in a single vector
table() %>% # get count for each phenomenon table() %>% # get count for each phenomenon
as.list() as.list()
p[order(unlist(p), decreasing = T)]
} }