Commit 461e5ff4 authored by Tuija Sonkkila's avatar Tuija Sonkkila

Added calculation of OA prop

parent d7a6d6db
......@@ -5,7 +5,6 @@ library(tidyverse)
library(plotly)
data <- as.data.frame(readRDS("shiny_data.RDS"), stringsAsFactors = FALSE)
f_means <- readRDS("f_means.RDS")
metrics <- sort(c("times_cited", "wos", "recent_citations", "relative_citation_ratio", "field_citation_ratio",
......@@ -15,6 +14,14 @@ scales <- c("linear", "log")
schools <- c("Aalto University", sort(unique(data$parent)))
uniquedois <- data[!duplicated(data[,1]), ]
nrow_uniquedois <- nrow(uniquedois)
with_oa_uniquedois <- paste0(nrow(uniquedois[!is.na(uniquedois$urls),]),
" (",
floor(nrow(uniquedois[!is.na(uniquedois$urls),]) / nrow_uniquedois * 100),
"%)")
#----------------------
# Plotly heatmap conf
#----------------------
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment