-
Notifications
You must be signed in to change notification settings - Fork 1
/
count_university_freq_foreach_bccommunity.R
32 lines (32 loc) · 1.91 KB
/
count_university_freq_foreach_bccommunity.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
#------------------------------------------------------------------------------
# list of community with df of most said university
#------------------------------------------------------------------------------
count_university_freq_foreach_bccommunity <- function(WOS_table) {
library(plyr)
community_quantity <- max(WOS_table$record_community,na.rm =T)
university_per_X_community <- as.list(1:community_quantity)
for (i in 1:community_quantity) {
sub_WOS_table <- subset(WOS_table, record_community == i)
sub_WOS_table <- subset(sub_WOS_table, sub_WOS_table$Universities != "")
sub_WOS_table <- na.omit(sub_WOS_table$Universities)
university_current_bccom <- toupper(unlist(strsplit(unlist(sub_WOS_table), "[;]")))
university_current_bccom <- as.factor(university_current_bccom)
freq_table_university <- count(university_current_bccom)
ordering_command <- with(freq_table_university, order(-freq))
freq_table_university <- freq_table_university[ordering_command, ]
names(freq_table_university) <- c("University", "Frequency")
university_per_X_community[[i]] <- freq_table_university
}
WOS_table <- subset(WOS_table, WOS_table$Universities != "")
WOS_table <- na.omit(WOS_table$Universities)
university_total <- toupper(unlist(strsplit(unlist(WOS_table), "[;]")))
university_total <- as.factor(university_total)
freq_table_university <- count(university_total)
ordering_command <- with(freq_table_university, order(-freq))
freq_table_university <- freq_table_university[ordering_command, ]
names(freq_table_university) <- c("University", "Frequency")
university_per_X_community[[community_quantity+1]] <- freq_table_university
return(university_per_X_community)
}
#------------------------------------------------------------------------------
#------------------------------------------------------------------------------