Spearman’s Rank Correlation

R Markdown

data<-read.csv("/Users/sanjayfuloria/Downloads/Rank Correlation.csv")

Spearman’s Rank Correlation Coefficient between SNIP Rank and SJR Rank

corr <- cor.test(x=data$SNIP.Rank, y=data$SJR.Rank, method = 'spearman')
corr

## 
##  Spearman's rank correlation rho
## 
## data:  data$SNIP.Rank and data$SJR.Rank
## S = 860, p-value < 2.2e-16
## alternative hypothesis: true rho is not equal to 0
## sample estimates:
##       rho 
## 0.9303136

Spearman’s Rank Correlation Coefficient between SNIP Rank and Citescore Rank

corr <- cor.test(x=data$SNIP.Rank, y=data$Citescore.rank, method = 'spearman')
corr

## 
##  Spearman's rank correlation rho
## 
## data:  data$SNIP.Rank and data$Citescore.rank
## S = 824, p-value < 2.2e-16
## alternative hypothesis: true rho is not equal to 0
## sample estimates:
##       rho 
## 0.9332307

Spearman’s Rank Correlation Coefficient between SJR Rank and Citescore Rank

corr<- cor.test(x=data$SJR.Rank, y=data$Citescore.rank, method = 'spearman')
corr

## 
##  Spearman's rank correlation rho
## 
## data:  data$SJR.Rank and data$Citescore.rank
## S = 1930, p-value < 2.2e-16
## alternative hypothesis: true rho is not equal to 0
## sample estimates:
##       rho 
## 0.8436107