How to identify top 10 high citation papers in Alzheimer research filed?

[AR-Shicheng]

Dear rcrossref team,

Thank you so much for the great contribution to the community to develop such fantastic package. I have a use-case, but seem the code is not working, could you please help me to check what is the best solution?

Thanks,

Shicheng

library(rcrossref)

# Search for Alzheimer's papers published in 2024
alz_search <- cr_works(
  query = "Alzheimer",
  filter = list(from_pub_date = "2024-01-01", until_pub_date = "2024-12-31"),
  limit = 100
)

# Extract data
papers <- alz_search$data

# Sort by citation count (if available)
papers <- papers[order(-as.numeric(papers$references_count)), ]

# Top 10 papers
top10 <- head(papers, 10)

# Print
print(top10[, c("title", "author", "references_count")])

[njahn82]

Hi @AR-Shicheng, sorry for the late reply. To get the most cited works for a query, you can use the sort = "is-referenced-by-count" parameter

library(rcrossref)
my_data <- cr_works(
    query = "Alzheimer",
    filter = list(from_pub_date = "2024-01-01", until_pub_date = "2024-12-31"),
    limit = 100, sort = "is-referenced-by-count")
my_data$data$is.referenced.by.count
#>   [1] "162" "113" "55"  "49"  "47"  "47"  "38"  "28"  "23"  "20"  "20"  "19" 
#>  [13] "19"  "19"  "18"  "16"  "16"  "16"  "15"  "15"  "15"  "14"  "14"  "14" 
#>  [25] "14"  "14"  "12"  "11"  "11"  "11"  "11"  "10"  "10"  "10"  "10"  "9"  
#>  [37] "9"   "9"   "9"   "9"   "9"   "9"   "9"   "9"   "8"   "8"   "8"   "8"  
#>  [49] "8"   "8"   "8"   "8"   "8"   "8"   "8"   "8"   "7"   "7"   "7"   "7"  
#>  [61] "7"   "7"   "7"   "7"   "7"   "7"   "6"   "6"   "6"   "6"   "6"   "6"  
#>  [73] "6"   "6"   "6"   "6"   "5"   "5"   "5"   "5"   "5"   "5"   "5"   "5"  
#>  [85] "5"   "5"   "5"   "5"   "5"   "5"   "5"   "5"   "5"   "5"   "5"   "5"  
#>  [97] "5"   "5"   "5"   "5"

^{Created on 2025-03-10 with reprex v2.1.1}

[AR-Shicheng]

That's awesome!! Thank you so much Najko!

Shicheng

[AR-Shicheng]

I noticed an interesting pattern: you tend to have significantly more coding activity on Mondays compared to other days of the week.

Shicheng

[AR-Shicheng]

@njahn82

Hi Najko,

It seems pubmed ID is not included in the result, correct?

Thanks,

Shicheng