Libkey-käyttötilastoista

libkey_2020_11 <- readxl::read_excel(
  here::here("data","tampere_university_library_2233_usage_2020-11-01-2020-11-30.xlsx"),
  sheet = 6,
  skip = 5)

libkey_2020_12 <- readxl::read_excel(
  here::here("data","Tampere_University_Library_2233_usage_2020-12-01-2020-12-31.xlsx"),
  sheet = 6,
  skip = 5)

libkey_2021_01 <- readxl::read_excel(
  here::here("data","Tampere_University_Library_2233_usage_2021-01-01-2021-01-31.xlsx"),
  sheet = 6,
  skip = 5)

libkey_2021_02 <- readxl::read_excel(
  here::here("data","Tampere_University_Library_2233_usage_2021-02-01-2021-02-28.xlsx"),
  sheet = 6,
  skip = 5
  )

libkey_2020_11 %<>% mutate(start_date = ymd("2020-11-01"), end_date = ymd("2020-11-30"))
libkey_2020_12 %<>% mutate(start_date = ymd("2020-12-01"), end_date = ymd("2020-12-31"))
libkey_2021_01 %<>% mutate(start_date = ymd("2021-01-01"), end_date = ymd("2021-01-31"))
libkey_2021_02 %<>% mutate(start_date = ymd("2021-02-01"), end_date = ymd("2021-02-28"))


dfs <- list(libkey_2020_11, libkey_2020_12,libkey_2021_01,libkey_2021_02)

libkey <- bind_rows(dfs)

rm(dfs)

colnames(libkey) <- c("journal","downloads","issn","eissn","start_date","end_date")
libkey %<>% mutate(month = lubridate::month(start_date, label= TRUE, locale="fi_FI", abbr = FALSE))

rm(list=c(
  "libkey_2021_01",
  "libkey_2021_02",
  "libkey_2020_12",
  "libkey_2020_11")
  )

usage_per_month <- libkey %>% group_by(month) %>% summarise(downloads_in_month = sum(downloads))
used_in_n_months <- libkey %>% select(journal) %>% group_by(journal) %>% count %>% ungroup %>% select(n)
used_in_n_months %<>% transmute(used_in_months = n)
used_in_n_months %<>% group_by(used_in_months) %>% count

used_per_journal <- libkey %>% group_by(journal) %>% summarise(downloads_total = sum(downloads))

usage_per_month %<>% left_join(libkey_sessions %>% select(session,month), by="month")
usage_per_month %<>% mutate(downloads_per_session = downloads_in_month / session)

libkey_toc_downloads <- libkey %>% 
  select(journal,issn,downloads,month) %>%
  full_join(libkey_toc %>% select(journal,issn,toc_views,month), by=c("issn","month"))
  

toc_view_no_download <- libkey_toc_downloads %>% 
  filter(is.na(downloads),!is.na(toc_views)) %>% 
  transmute(toc_view_only = sum(toc_views)) %>% 
  distinct_all

toc_view_and_download <- libkey_toc_downloads %>% 
  filter(!is.na(downloads),!is.na(toc_views)) %>% 
  transmute(toc_view_and_download = sum(toc_views)) %>% 
  distinct_all

no_toc_view_download <- libkey_toc_downloads %>% 
  filter(!is.na(downloads),is.na(toc_views)) %>% 
  transmute(download_only = sum(downloads)) %>% 
  distinct_all

only_downloaded <- libkey %>% 
  anti_join(libkey_toc, by="issn") %>% 
  transmute(download_only = sum(downloads)) %>% 
  distinct_all
only_downloaded$download_only <- only_downloaded$download_only + no_toc_view_download$download_only

toc_usage <- bind_cols(toc_view_no_download,toc_view_and_download,only_downloaded)

toc_usage %<>% pivot_longer(cols = 1:3,names_to = "operation", values_to = "count")

Libkey Andorissa

month_labels <- c("Marraskuu","Joulukuu","Tammikuu","Helmikuu")

Artikkelien lataukset kuukaudessa

ggplot(
  usage_per_month, 
  aes(x=factor(month, level=month_labels),y=downloads_in_month)) + 
  geom_bar(stat="identity",fill="#4e008e") +
  xlab("") +
  ylab("Latauksia") +
  theme_minimal() +
  theme(text = element_text(size = 15))

Käyttökertojen määrä kuukaudessa

ggplot(
  libkey_sessions, 
  aes(x=factor(month, level=month_labels),y=session)) + geom_bar(stat="identity",fill="#4e008e") +
  xlab("") +
  ylab("Käyttökertoja") +
  theme_minimal() +
  theme(text = element_text(size = 15))

Latauksia käyttökertaa kohti

ggplot(
  usage_per_month %>% ungroup %>% select(month,downloads_per_session), 
  aes(x=factor(month, level=month_labels),y=downloads_per_session)) + geom_bar(stat="identity",fill="#4e008e") +
  xlab("") +
  ylab("Latauksia") +
  theme_minimal() +
  theme(text = element_text(size = 15))

Latauksia lehteä kohti

ggplot(
  used_per_journal, 
  aes(x=downloads_total)) + geom_histogram(fill="#4e008e", binwidth=5) +
  xlab("Latauksien lukumäärä") +
  ylab("Lehtien lukumäärä") +
  theme_minimal() +
  theme(text = element_text(size = 15))

Sisällysluetteloiden selailu

toc_usage[toc_usage$operation=="download_only",]$operation <- "Vain lataus"
toc_usage[toc_usage$operation=="toc_view_and_download",]$operation <- "Sisällysluettelon selailu ja lataus"
toc_usage[toc_usage$operation=="toc_view_only",]$operation <- "Vain sisällysluettelon luku"
toc_usage$action <- "Käyttötapahtuma"
ggplot(
  toc_usage, 
  aes(y=count,fill=factor(operation,levels=c("Vain lataus","Sisällysluettelon selailu ja lataus","Vain sisällysluettelon luku")),x=action)) + geom_bar(stat="identity",position = "stack") +
  xlab("") +
  ylab("Käyttötapahtumat") +
  theme_minimal() +
  scale_fill_brewer(palette = "Accent") +
  guides(fill=guide_legend(title=NULL)) +
  theme(text = element_text(size = 15))