{"id":22451,"date":"2023-08-14T18:25:50","date_gmt":"2023-08-14T16:25:50","guid":{"rendered":"https:\/\/www.wjst.de\/blog\/?p=22451"},"modified":"2023-08-23T14:52:29","modified_gmt":"2023-08-23T12:52:29","slug":"country-analysis-of-pubpeer-annotated-articles","status":"publish","type":"post","link":"https:\/\/www.wjst.de\/blog\/sciencesurf\/2023\/08\/country-analysis-of-pubpeer-annotated-articles\/","title":{"rendered":"Country analysis of PubPeer annotated articles"},"content":{"rendered":"

Just out of curiosity, after Scihub<\/a> now an analysis of papers commented at the PubPeer<\/a> website. Pubpeer is now also screened on a regular basis by Holden Thorp<\/a>, the chief editor of Science…<\/p>\n

Unfortunately I am loosing many records for incomplete or malformed addresses, while some preliminary conclusions can already be made when looking at my world map.<\/p>\n

\"\"<\/a>
pubpeer.R grey indicates no data, black only a few, red numerous entries.<\/figcaption><\/figure>\n

A further revision will need to include more addresses and also overall research output<\/a> as a reference.<\/p>\n

<\/p>\n

Other country level data are also interesting. Just to name a few<\/p>\n

1\/<\/p>\n

\"\"<\/a>
Trust scores by continent https:\/\/www.ncbi.nlm.nih.gov\/pmc\/articles\/PMC10393470\/pdf\/rmmj-14-3-e0015.pdf<\/figcaption><\/figure>\n

2\/<\/p>\n

\"\"<\/a>
image duplication by country https:\/\/link.springer.com\/article\/10.1007\/s11948-018-0023-7\/figures\/3<\/figcaption><\/figure>\n

3\/<\/p>\n

\"\"<\/a>
table 1 abbreviated https:\/\/link.springer.com\/article\/10.1007\/s11948-017-9939-6<\/figcaption><\/figure>\n

4\/<\/p>\n

\"\"<\/a>
retractions 2020 https:\/\/www.biorxiv.org\/content\/10.1101\/2020.04.29.063016v6<\/figcaption><\/figure>\n

5\/<\/p>\n

\"\"<\/a>
Retractions https:\/\/jamanetwork.com\/journals\/intemed\/articlepdf\/2779425\/jamainternal_gaudino_2021_ld_210018_1627675018.88326.pdf<\/figcaption><\/figure>\n
\r\npubpeer[,"affiliation_list"] %>%\r\n\t(function(x) {\r\n\t\tstrsplit(x,",") %>% sapply(., tail, 1) %>% unlist()\r\n\t}) %>%\r\n\tword(.,-1) %>%\r\n\tas_tibble() %>%\r\n\tmutate(value = gsub("[\\\\.]+", "",value)) %>%\r\n\tmutate(value = gsub("PR.*", "China",value)) %>%\r\n\tmutate( value = case_when\r\n\t\t(value== "" ~ NA,\r\n\t\tvalue== "States" ~ "USA",\t\t\t\t\t\t\r\n\t\tvalue== "University" ~ NA,\r\n\t\tvalue== "Republic" ~ NA,\r\n\t\tvalue== "ROC" ~ NA,\t\r\n\t\tvalue== "and" ~ NA,\r\n\t\tvalue== "Maryland" ~ "USA",\r\n\t\tvalue== "(mainland)" ~ "China",\r\n\t\tvalue== "Kong" ~ "HongKong",\r\n\t\tvalue== "Chemistry" ~ NA,\r\n\t\tvalue== "Engineering" ~ NA,\t\r\n\t\tvalue== "PAK" ~ "Pakistan",\r\n\t\tvalue== "Arabia" ~ "South Arabia",\r\n\t\tvalue== "Sciences" ~ NA,\r\n\t\tvalue== "Technology" ~ NA,\r\n\t\tvalue== "Medicine" ~ NA,\r\n\t\tvalue== "NY" ~ "USA",\t\r\n\t\tvalue== "America" ~ "USA",\t\r\n\t\tvalue== "York" ~ "USA",\t\r\n\t\tvalue== "Massachusetts" ~ "USA",\t\r\n\t\tvalue== "Hospital" ~ NA,\r\n\t\tvalue== "Zealand" ~ "New Zealand",\r\n\t\tvalue== "Pennsylvania" ~ "USA",\r\n\t\tvalue== "Africa" ~ "South Afria",\r\n\t\t.default = value)) %>%\r\n\tgroup_by(value) %>%\r\n\tcount(value) %>%\r\n\tarrange( desc(n) ) %>%\r\n\trename(region=value) %>%\r\n\tright_join(map_data('world'), by="region" ) %>%\r\n\tfilter(region != "Antarctica") %>%\r\n\tggplot() +\r\n\tgeom_polygon(aes(long, lat, group = group, fill = n)) +\r\n\tcoord_quickmap() +\r\n\tscale_fill_gradient(name = "N", trans = "log10", breaks = c(10,100,1000), low = "black", high = "red", na.value = "lightgrey") +\r\n\ttheme_void()\r\n<\/pre>\n\n
 <\/p>\n
\n  CC-BY-NC Science Surf , accessed 20.04.2026<\/span>\n <\/div>","protected":false},"excerpt":{"rendered":"
Just out of curiosity, after Scihub now an analysis of papers commented at the PubPeer website. Pubpeer is now also screened on a regular basis by Holden Thorp, the chief editor of Science… Unfortunately I am loosing many records for incomplete or malformed addresses, while some preliminary conclusions can already be made when looking at … Continue reading Country analysis of PubPeer annotated articles<\/span> →<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[20],"tags":[3534,4205,2136],"class_list":["post-22451","post","type-post","status-publish","format-standard","hentry","category-note-worthy","tag-pubpeer","tag-comments","tag-peer-review"],"_links":{"self":[{"href":"https:\/\/www.wjst.de\/blog\/wp-json\/wp\/v2\/posts\/22451","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.wjst.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.wjst.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.wjst.de\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.wjst.de\/blog\/wp-json\/wp\/v2\/comments?post=22451"}],"version-history":[{"count":20,"href":"https:\/\/www.wjst.de\/blog\/wp-json\/wp\/v2\/posts\/22451\/revisions"}],"predecessor-version":[{"id":22530,"href":"https:\/\/www.wjst.de\/blog\/wp-json\/wp\/v2\/posts\/22451\/revisions\/22530"}],"wp:attachment":[{"href":"https:\/\/www.wjst.de\/blog\/wp-json\/wp\/v2\/media?parent=22451"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.wjst.de\/blog\/wp-json\/wp\/v2\/categories?post=22451"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.wjst.de\/blog\/wp-json\/wp\/v2\/tags?post=22451"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}