Report on the Springshare LibGuides System at West Virginia University

---

Section 1: Usage Data | Springshare LibGuides System

Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Vitae suscipit tellus mauris a diam maecenas sed.

Code

traffic_dsGT <- traffic_ds %>% 
  select(
    Users_total, 
    New_users_total, 
    Percent_new_users_mean, 
    Sessions_total, 
    Users_sessions_mean, 
    Bounce_rate_mean, 
    Pages_session_mean, 
    Avg_session_duration_mean
    ) %>% 
  gt() %>%
  #set theme as ESPN
  gt_theme_espn() %>% 
  #format columns
  fmt_number(decimals = 1, 
                columns = c(Percent_new_users_mean,
                            Users_sessions_mean, 
                            Bounce_rate_mean, 
                            Pages_session_mean, 
                            Avg_session_duration_mean), 
                use_seps = FALSE, 
                drop_trailing_dec_mark = FALSE) %>%
  fmt_percent(columns = c(Percent_new_users_mean,
                          Bounce_rate_mean), scale_values = FALSE, decimals = 1) %>% 
  fmt_duration(output_units = c("minutes", "seconds"), columns = Avg_session_duration_mean) %>% 
  #columns names, widths, and alignments
  cols_label(
    Users_total = "Total",
    New_users_total = "New",
    Percent_new_users_mean = "Percent New",
    Sessions_total = "Total",
    Users_sessions_mean = "per User",
    Bounce_rate_mean = "Bounce Rate",
    Pages_session_mean = " Pages Viewed",
    Avg_session_duration_mean = "Duration"
    ) %>% 
  cols_width(
    c(Users_total, New_users_total, Percent_new_users_mean, Sessions_total, Users_sessions_mean, Bounce_rate_mean, Pages_session_mean, Avg_session_duration_mean) ~ pct(12.5)
  ) %>% 
  cols_align(align = "left") %>% 
  #format table (add spanners, title, footnotes, font size, etc...)
  tab_options(table.font.size = 12, table.width = pct(100)) %>%
  tab_spanner(label = "Users", columns = Users_total:Percent_new_users_mean) %>% 
  tab_spanner(label = "Sessions", columns = Sessions_total:Avg_session_duration_mean) %>% 
  tab_header(
    title = md("**Springshare Website Pages and Guides Usage** | at West Virginia University"),
    subtitle = md("This table contains information on users accessing and using guides and pages in the Springshare LibGuide System at WVU collected from April 2022 to April 2023 in Google Analytics")
    )

traffic_dsGT

Springshare Website Pages and Guides Usage | at West Virginia University
This table contains information on users accessing and using guides and pages in the Springshare LibGuide System at WVU collected from April 2022 to April 2023 in Google Analytics
Users			Sessions
Total	New	Percent New	Total	per User	Bounce Rate	Pages Viewed	Duration
267939	262562	79.6%	337090	1.4	47.6%	2.4	1m 38s

---

Users per day: 2022-2023

Code

usage1yr.line <- ggplot(usage_df, aes(x = Date)) 
usage1yr.line + geom_smooth(aes(y = Users, fill = "coral")) + geom_smooth(aes(y= Sessions, fill = "skyblue")) + theme_minimal() + labs (x=NULL, y=NULL) + scale_fill_discrete(labels=c('Users', 'Sessions')) + theme(legend.title = element_blank(), legend.position = "bottom")

Users per day: 2018 -2023

Code

usage5yr.line <- ggplot(usage_df5yr, aes(x = Date)) 
usage5yr.line + geom_smooth(aes(y = Users, fill = "coral")) + geom_smooth(aes(y= Sessions, fill = "skyblue")) + theme_minimal() + labs (x=NULL, y=NULL) + scale_fill_discrete(labels=c('Users', 'Sessions')) + theme(legend.title = element_blank(), legend.position = "bottom")

---

Section 2: Usage Data | Guides

Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Vitae suscipit tellus mauris a diam maecenas sed.

Data frame for guide use

• guides_ds.csv

Code

guides_byType_GT <- guides_GASS_byType %>% 
  arrange(desc(Pageviews_total_total)) %>% 
  gt(rowname_col = "Type") %>% 
  #set theme
  gt_theme_espn() %>% 
  #format columns
  fmt_number(decimals = 1, columns = Avg_views, use_seps = FALSE) %>% 
  fmt_percent(decimals = 1, 
             columns = c(Bounce_Rate_mean_mean, Percent_Exit_mean_mean),
             scale_values = FALSE
             ) %>%
  fmt_duration(columns = Avg_Time_on_Page_total_mean, output_units = c("minutes", "seconds")) %>% 
  cols_label(
    N = "N",
    Pageviews_total_total = "Total",
    Avg_views =  "Average",
    Unique_Pageviews_total_total = "Unique",
    Entrances_total_total = "Entrances",
    Avg_Time_on_Page_total_mean = "Duration",
    Bounce_Rate_mean_mean = "Bounce Rate",
    Percent_Exit_mean_mean = "Exit Rate"
  ) %>% 
  cols_width(
    c(N:Percent_Exit_mean_mean) ~ px(10),
    Type ~ px(20)
  ) %>% 
  cols_align(align = "left") %>% 
  # format table
  tab_options(table.font.size = 12, table.width = pct(100)) %>% 
  tab_spanner(label = "Views", columns = Pageviews_total_total:Unique_Pageviews_total_total) %>% 
  tab_header(title = md("**Guide Usage by Type** | at West Virginia University"),
             subtitle = md("This table contains information on types of guides in the Springshare LibGuide System at WVU collected from April 2022 to April 2023 collected from Springshare Statistics and Google Analytics"))

guides_byType_GT

Guide Usage by Type | at West Virginia University
This table contains information on types of guides in the Springshare LibGuide System at WVU collected from April 2022 to April 2023 collected from Springshare Statistics and Google Analytics
	N	Views			Entrances	Duration	Bounce Rate	Exit Rate
		Total	Average	Unique
Topic Guide	35	358791	10251.2	244091	218270	5m 2s	52.1%	46.9%
General Purpose	91	129385	1421.8	80564	63903	4m 1s	41.8%	39.8%
Subject Guide	80	45108	563.9	28480	19691	2m 58s	44.5%	41.5%
Course Guide	70	34254	489.3	20072	12571	3m 14s	41.5%	41.8%

Code

#top guides listed as subject guides

guides_subjGT <- guides_ds %>% 
  filter(Pageviews_total >500 & Type == "Subject Guide") %>% 
  select(-Type, -Owner, -Status) %>% 
  arrange(desc(Pageviews_total)) %>% 
  gt(rowname_col = "Guide_Name") %>% 
  # set theme
  gt_theme_espn() %>% 
  #format columns
  fmt_percent(decimals = 1, 
             columns = c(Bounce_Rate_mean, Percent_Exit_mean), 
             scale_values = FALSE) %>%
  fmt_duration(columns = Avg_Time_on_Page_total, output_units = c("minutes", "seconds")) %>% 
  fmt_url(columns = URL, show_underline = FALSE, color = "coral", label = "guide") %>% 
  cols_label(
    Pageviews_total = "Views",
    Unique_Pageviews_total = "Unique Views",
    Avg_Time_on_Page_total = "Duration",
    Entrances_total = "Entrances",
    Bounce_Rate_mean = "Bounce Rate",
    Percent_Exit_mean = "Exit Rate"
    ) %>% 
  cols_merge(
    columns = c(Guide_Name, URL),
    pattern = "{1} - ({2})"
  ) %>% 
  cols_width(
    c(Pageviews_total:Percent_Exit_mean) ~ px(10),
    Guide_Name ~ pct(40)
  ) %>% 
  cols_align(align = "left") %>% 
  #format table
  tab_options(table.font.size = 12, table.width = pct(100)) %>% 
  tab_header(title = md("**Individual Subject Guide Usage** | at West Virginia University"),
             subtitle = md("This table contains information on individual subject guides with over 500 views in the Springshare LibGuide System at WVU collected from April 2022 to April 2023 in Google Analytics"))

guides_subjGT

Individual Subject Guide Usage | at West Virginia University
This table contains information on individual subject guides with over 500 views in the Springshare LibGuide System at WVU collected from April 2022 to April 2023 in Google Analytics
	Views	Unique Views	Duration	Entrances	Bounce Rate	Exit Rate
Systematic Reviews - (guide)	7496	4875	13m 1s	3848	38.0%	37.2%
Integrated Marketing Communications - (guide)	4837	3191	13m 29s	1656	53.2%	32.0%
Genealogy Research - (guide)	4042	2297	7m	1214	40.8%	32.0%
Writing for Exercise Science - (guide)	3827	2579	10m 51s	1827	49.8%	36.5%
General History Research Guide - (guide)	2605	1460	8m 6s	974	44.7%	25.9%
English 101/102/103: Online Research Guide - (guide)	1721	1026	8m 7s	439	37.4%	30.4%
Psychology Resources - (guide)	1487	1036	6m 6s	829	56.0%	51.8%
Open Licenses for sharing your work - (guide)	1039	576	2m 3s	541	28.2%	47.2%
Guide to Law Library Study Aids - (guide)	1016	643	5m 12s	421	44.6%	37.2%
Leadership Studies - (guide)	971	616	2m 18s	597	68.0%	65.7%
Fashion, Dress, & Merchandising - (guide)	883	490	6m 6s	396	41.6%	29.2%
Marketing - (guide)	881	578	4m 6s	439	49.8%	49.2%
Social Work - (guide)	799	544	1m 48s	433	51.3%	49.3%
West Virginia Law and Federal Law Online - (guide)	775	412	1m 54s	229	46.0%	23.2%
Census Data Resources - (guide)	662	470	7m 12s	353	49.8%	45.2%
Native American Studies Research Guide - (guide)	561	418	6m 20s	346	66.6%	59.2%
Communication Studies - (guide)	530	333	6m 48s	124	49.2%	46.8%
Election Data Resources - (guide)	504	364	5m 1s	327	53.5%	53.2%
Linguistics - (guide)	503	340	3m 44s	286	43.7%	48.0%

Code

guides_courseGT <- guides_ds %>% 
  filter(Pageviews_total >100 & Type == "Course Guide") %>% 
  select(-Type, -Status, -Owner) %>% 
  arrange(desc(Pageviews_total)) %>% 
  gt(rowname_col = "Guide_Name") %>% 
  # set theme
  gt_theme_espn() %>% 
  #format columns
  fmt_percent(decimals = 1, 
             columns = c(Bounce_Rate_mean, Percent_Exit_mean), 
             scale_values = FALSE) %>%
  fmt_duration(columns = Avg_Time_on_Page_total, output_units = c("minutes", "seconds")) %>% 
  fmt_url(
    columns = URL,
    label = "guide",
    show_underline = FALSE,
    color = "skyblue"
  ) %>% 
  cols_label(
    Pageviews_total = "Views",
    Unique_Pageviews_total = "Unique Views",
    Avg_Time_on_Page_total = "Duration",
    Entrances_total = "Entrances",
    Bounce_Rate_mean = "Bounce Rate",
    Percent_Exit_mean = "Exit Rate"
    ) %>% 
  cols_merge(
    columns = c(Guide_Name, URL),
    pattern = "{1} - ({2})"
  ) %>% 
  cols_width(
    c(Pageviews_total:Percent_Exit_mean) ~ pct(10),
    Guide_Name ~ pct(40)
  ) %>% 
  cols_align(align = "left") %>% 
  #format table
  tab_options(table.font.size = 12, table.width = pct(100)) %>% 
  tab_header(title = md("**Individual Course Guide Usage** | at West Virginia University"),
             subtitle = md("This table contains information on individual course guides with over 100 views in the Springshare LibGuide System at WVU collected from April 2022 to April 2023 in Google Analytics"))


guides_courseGT

Individual Course Guide Usage | at West Virginia University
This table contains information on individual course guides with over 100 views in the Springshare LibGuide System at WVU collected from April 2022 to April 2023 in Google Analytics
	Views	Unique Views	Duration	Entrances	Bounce Rate	Exit Rate
COMM 104 - (guide)	5442	2699	7m 46s	1379	30.2%	25.4%
English 101 Research Guide - (guide)	3989	2464	8m 53s	1456	55.2%	32.0%
Comprehensive Literature Review - (guide)	3739	2699	5m 12s	2449	57.7%	57.0%
BCOR 299: Business Communication - (guide)	2249	1319	10m 2s	947	44.7%	46.8%
English 102/103 (Composition) - (guide)	1949	784	8m	289	0.0%	19.0%
Biology 117L: Lab Assignment - (guide)	1785	751	2m 9s	402	0.0%	24.2%
Seminar Research at WVU College of Law - (guide)	1766	730	5m 46s	316	32.4%	12.6%
English 102 Research Guide - (guide)	1699	1367	10m 25s	586	56.3%	36.0%
POLS 491A - Model United Nations - (guide)	1121	581	21m 55s	150	36.3%	27.4%
Education 450 - Social Studies Issues and Methods - (guide)	1026	734	1m 18s	731	68.0%	70.0%
BCOR 299: Business Communication (Walker) - (guide)	862	493	6m 55s	280	55.6%	42.8%
Primary Source Guide for HIST 250 Spring 2021 - (guide)	857	418	5m	390	51.3%	46.7%
ADPR 421 : Advertising and Public Relations Audience Insights - (guide)	585	310	8m 41s	109	20.0%	28.0%
IMC 612 Audience Insight - (guide)	519	437	9m 51s	258	60.7%	51.3%
ENGR101 - (guide)	451	316	2m 49s	173	56.5%	52.5%
ENGL 303 Battle of Blair Mountain Resources - (guide)	319	168	4m 53s	93	29.2%	30.0%
JRL 520 620 Advanced Journalistic Writing/Research - (guide)	287	236	2m 28s	207	61.0%	45.0%
PHAR 753 - Social and Behavioral Theory Health Outcomes Research - (guide)	266	157	1m 42s	144	37.0%	54.0%
SURE 2022, Davis College - (guide)	244	151	6m 25s	14	27.7%	21.0%
Reading and Literacy - (guide)	211	158	3m 50s	131	57.0%	57.5%
Forestry 101 - (guide)	207	155	1m 9s	154	71.0%	70.0%
English 609: College Composition Pedagogy - (guide)	201	123	4m 55s	46	41.3%	36.0%
HNF 512: Maternal and Child Nutrition - (guide)	199	133	48s	133	53.0%	66.0%
ENVP 155 - (guide)	190	126	1m 39s	95	54.5%	42.5%
English 305: Technical Writing (2022) - (guide)	173	78	2m 31s	28	1.3%	16.3%
MUSIC 771 - (guide)	158	107	7m 22s	72	46.7%	52.0%
COUN 440 Research Guide - (guide)	157	104	1m 27s	96	53.0%	62.0%
Zotero online workshop - (guide)	154	85	2m 9s	37	32.0%	38.0%
History 302: Practicing History (Smart 2022) - (guide)	148	94	8m 31s	15	48.7%	29.0%
Chemistry 401 | Chemical Literature - (guide)	143	75	3m 19s	23	45.7%	25.0%
COUN 240 Assignment Research Guide - (guide)	139	100	1m 54s	43	63.0%	63.0%
Intellectual Property for MAE 480 (WVU Tech) - (guide)	136	78	1m	66	38.5%	43.5%
Advanced Evidence: Researching Dockets and Briefs - (guide)	124	81	27s	78	54.0%	64.0%
Biology 455: Evolution of Infectious Diseases - (guide)	123	78	2m 54s	37	39.5%	24.5%
MDIA 191 College of Media Orientation - (guide)	116	92	8m 10s	31	48.5%	45.5%
MDS: Capstone - (guide)	115	73	1m 27s	69	55.0%	59.0%
PUBA 610 | Public and Non-profit Management - (guide)	115	84	3m 47s	63	39.5%	46.0%
CSEE 380 - (guide)	112	65	48s	56	41.0%	41.0%
English 102 | Online - (guide)	110	81	1m 24s	30	20.5%	34.0%
EDP 612 Research Guide - (guide)	109	69	36s	56	45.0%	50.0%
Technical Art History - (guide)	107	74	5m 41s	27	16.5%	27.0%
Community Needs Assessment - (guide)	102	62	1m 15s	58	64.0%	57.0%

---

Code

guideSS_byLibrarian <-  guideSS_long_pub %>% 
  distinct(Guide_Name.x, Owner) %>% 
  count(Owner) %>% 
  arrange(desc(n))

guideSS_byLibrarianGT <- guideSS_byLibrarian %>% 
  gt() %>% 
  gt_theme_espn() %>% 
  cols_label(
    Owner = "Librarian",
    n = "Guides"
  ) %>% 
  cols_align(align = "left") %>% 
  cols_width(Owner ~ pct(75), n ~ pct(25)) %>%
  tab_options(table.width = pct(100), table.font.size = 12) %>% 
  tab_header(
    title = md("Number of Guides by Librarian | at West Virginia University"),
    subtitle = md("This table contains information on the number of guides a librarian has published in the Springshare LibGuide System at WVU collected from April 2022 to April 2023 collect from Springshare")
  )
guideSS_byLibrarianGT

Number of Guides by Librarian | at West Virginia University
This table contains information on the number of guides a librarian has published in the Springshare LibGuide System at WVU collected from April 2022 to April 2023 collect from Springshare
Librarian	Guides
Wright, Alyssa	37
Fonseca, Catherine	30
Yancey, Martha	30
Steele, Matt	29
Werst, Jeff	27
Toren, Beth	26
Rogerson, Terra	24
Jacobs, Chelsea	23
Miller, Stephanie	18
Dunlap, Martin	17
Stump, Nicholas	12
Cady, Miriam	11
Royall, Beth	11
Thurman, Faythe	10
McAllister-Erickson, Jonah	9
Fredette, Access Services, Hilary	8
Monnin, Jennifer	8
Crawford, Anna	6
Desouky, Virginia	5
Diamond, Kelly	4
Armour-Gemmen, Marian	3
Hostuttler, Lori	3
Purvis, Ashley	2
Vanderhoff, Jessica	2
Bealmear, Atsuko	1
Dubetz, Jennifer	1
Emerling, Danielle	1
Fidelman, Emily	1

Code

#count of course guides by User

guideSS_course_byLibrarian <- guideSS_long_pub %>% 
  filter(Type == "Course Guide") %>% 
  distinct(Guide_Name.x, Owner) %>% 
  count(Owner) %>% 
  arrange(desc(n))

guideSS_course_byLibrarianGT <- guideSS_course_byLibrarian %>% 
  gt() %>% 
  gt_theme_espn() %>% 
  cols_label(
    Owner = "Librarian",
    n = "Course Guides"
  ) %>% 
  cols_align(align = "left") %>% 
  cols_width(Owner ~ pct(75), n ~ pct(25)) %>%
  tab_options(table.width = pct(100), table.font.size = 12) %>% 
  tab_header(
    title = md("Number of Course Guides by Librarian | at West Virginia University"),
    subtitle = md("This table contains information on the number of course guides a librarian has published in the Springshare LibGuide System at WVU collected from April 2022 to April 2023 collect from Springshare")
  )

guideSS_course_byLibrarianGT

Number of Course Guides by Librarian | at West Virginia University
This table contains information on the number of course guides a librarian has published in the Springshare LibGuide System at WVU collected from April 2022 to April 2023 collect from Springshare
Librarian	Course Guides
Wright, Alyssa	19
Werst, Jeff	18
Fonseca, Catherine	14
Yancey, Martha	13
Dunlap, Martin	8
Steele, Matt	8
Rogerson, Terra	7
Royall, Beth	4
Toren, Beth	4
Cady, Miriam	3
Jacobs, Chelsea	3
Miller, Stephanie	2
Thurman, Faythe	2
Armour-Gemmen, Marian	1
Crawford, Anna	1
Hostuttler, Lori	1
Purvis, Ashley	1

Code

guideSS_subject_byLibrarian <- guideSS_long_pub %>% 
  filter(Type != "Subject Guide") %>% 
  distinct(Guide_Name.x, Owner) %>% 
  count(Owner) %>% 
  arrange(desc(n))

guideSS_subject_byLibrarianGT <- guideSS_subject_byLibrarian %>% 
  gt() %>% 
  gt_theme_espn() %>% 
  cols_label(
    Owner = "Librarian",
    n = "Subject Guides"
  ) %>% 
  cols_align(align = "left") %>% 
  cols_width(Owner ~ pct(75), n ~ pct(25)) %>% 
  tab_options(table.width = pct(100), table.font.size = 12) %>% 
  tab_header(
    title = md("Number of Subject Guides by Librarian | at West Virginia University"),
    subtitle = md("This table contains information on the number of subject guides a librarian has published in the Springshare LibGuide System at WVU collected from April 2022 to April 2023 collect from Springshare")
  )

guideSS_subject_byLibrarianGT

Number of Subject Guides by Librarian | at West Virginia University
This table contains information on the number of subject guides a librarian has published in the Springshare LibGuide System at WVU collected from April 2022 to April 2023 collect from Springshare
Librarian	Subject Guides
Wright, Alyssa	33
Werst, Jeff	23
Yancey, Martha	22
Toren, Beth	21
Fonseca, Catherine	18
Miller, Stephanie	16
Steele, Matt	16
Dunlap, Martin	12
Jacobs, Chelsea	12
Cady, Miriam	10
Stump, Nicholas	10
Fredette, Access Services, Hilary	8
McAllister-Erickson, Jonah	8
Rogerson, Terra	8
Thurman, Faythe	7
Royall, Beth	6
Desouky, Virginia	4
Diamond, Kelly	4
Armour-Gemmen, Marian	3
Crawford, Anna	3
Hostuttler, Lori	2
Monnin, Jennifer	2
Vanderhoff, Jessica	2
Bealmear, Atsuko	1
Emerling, Danielle	1
Fidelman, Emily	1
Purvis, Ashley	1

---

Section 3: Usage Data | Non-Guide Page Use

Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua.

Code

homepageGT <- homepageGA %>% 
  select(-Guide_name) %>% 
  gt(rowname_col = "Page") %>% 
  gt_theme_espn() %>% 
  # format columns
  fmt_percent(columns = c(Bounce_Rate, Percent_Exit), scale_values = FALSE, decimals = 1) %>% 
  fmt_duration(output_units = c("minutes", "seconds"), columns = Avg_Time_on_Page) %>% 
  # Format labels, width, alignment
  cols_label(
    Pageviews = "Views",
    Unique_Pageviews = "Unique Views",
    Avg_Time_on_Page = "Time on Page",
    Entrances = "Entrances",
    Bounce_Rate = "Bounce Rate",
    Percent_Exit = "Exit Rate"
  ) %>% 
  cols_width(
    c(Pageviews:Percent_Exit) ~ pct(10),
    Page_name ~ pct(40)
  ) %>% 
  cols_align(align = "left") %>% 
  #table format
  tab_options(table.font.size = 12, table.width = pct(100)) %>% 
  tab_header(
    title = md("**Non-Guide Pages Usage** | at West Virginia University"),
    subtitle = md("This table contains information on non-guide pages in the Springshare LibGuide System at WVU collected from April 2022 to April 2023 in Google Analytics")
  ) 


homepageGT

Non-Guide Pages Usage | at West Virginia University
This table contains information on non-guide pages in the Springshare LibGuide System at WVU collected from April 2022 to April 2023 in Google Analytics
Page_name	Views	Unique Views	Time on Page	Entrances	Bounce Rate	Exit Rate
Home	17320	10244	33s	8927	25.0%	25.0%
Search	10022	6260	45s	288	32.0%	18.0%
Law Library Home	1098	618	53s	226	28.0%	30.0%
A-Z Databases	1094	384	41s	293	56.0%	30.0%
Guides BY SUBJECT	1057	748	33s	440	39.0%	32.0%
ALL GUIDES Alphabetically	165	117	1m 9s	53	53.0%	36.0%
Profiles	144	94	33s	38	29.0%	24.0%
West Virginia and Regional History Center	131	93	40s	19	47.0%	13.0%

Code

listing_pagesGT <- listing_pages %>% 
  gt(rowname_col = "Guide_name") %>% 
  gt_theme_espn() %>%
  fmt_percent(columns = c(Bounce_Rate_mean, Percent_Exit_mean), decimals = 1, scale_values = FALSE) %>% 
  fmt_duration(columns = Avg_Time_on_Page_mean, output_units = c("minutes", "seconds")) %>% 
  cols_label(
    Pageviews_total = "Views",
    Unique_Pageviews_total = "Unique Views",
    Entrances_total = "Entrances",
    Bounce_Rate_mean = "Bounce Rate",
    Percent_Exit_mean = "Exit Rate",
    Avg_Time_on_Page_mean = "Time on Page"
  ) %>% 
  cols_align(align = "left") %>% 
  tab_options(table.font.size = 12, table.width = pct(100)) %>% 
  tab_header(
    title = md("**Listing Pages Usage** | at West Virginia University"),
    subtitle = md("This table contains information on listing pages in the Springshare LibGuide System at WVU collected from April 2022 to April 2023 in Google Analytics")
  )  
listing_pagesGT

Listing Pages Usage | at West Virginia University
This table contains information on listing pages in the Springshare LibGuide System at WVU collected from April 2022 to April 2023 in Google Analytics
	Views	Unique Views	Entrances	Bounce Rate	Exit Rate	Time on Page
Subject Listing	721	440	307	27.6%	23.8%	49s
Librarian Page	1679	1044	629	46.5%	38.1%	53s

Homepage Use

Code

homepage.line <- ggplot(homepage_5yr, aes(x = Date, y = Views))

homepage.line + 
  geom_smooth(color = "coral") +
  scale_x_date(date_breaks = "6 month", date_labels = "%b-%y") +
  theme_classic() +
  labs(
    x = NULL,
    y = NULL
  )

---

Section 4: Metadata and Subjects

Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua.

Data frame for subjects in LibGuide System

• subjects_ds.csv

Subject Listings across systems

• Database Subject Listings

• Subject Librarians Subject Listing

Code

df_subjectsGT <- df_subjects %>% 
  arrange(Name) %>% 
  gt(rowname_col = "Name") %>% 
  gt_theme_espn() %>% 
  fmt_url(columns = URL, label = "listing", show_underline = FALSE, color = "magenta") |> 
  cols_merge(
    columns = c(Name, URL),
    pattern = "{1} - ({2})"
  ) |> 
  cols_label(
    URL = "listing"
  ) |> 
  tab_options(
    table.width = pct(100),
    table.font.size = 12
  ) %>% 
  cols_align(align = "left") %>% 
  cols_width(Name ~ pct(40), c(Guides:ID) ~ pct(15)) %>% 
  tab_header(
    title = md("**Subject Assignment Labels** | at West Virginia University"),
    subtitle = md("This table contains information on subject assignments in the Springshare LibGuide System at WVU collected from Springshare")
  )
df_subjectsGT

Subject Assignment Labels | at West Virginia University
This table contains information on subject assignments in the Springshare LibGuide System at WVU collected from Springshare
	Guides	Experts	Assets	ID
Accounting - (listing)	2	1	0	163068
Advertising - (listing)	15	0	23	83551
African-American Studies - (listing)	9	0	2	83520
Agriculture - (listing)	13	0	0	83570
Agriculture and Agricultural Economics - (listing)	12	0	22	173642
Allied Health - (listing)	3	0	13	173619
Animal Science - (listing)	2	0	14	173643
Anthropology - (listing)	3	0	13	83568
Architecture - (listing)	2	0	10	173651
Art - (listing)	14	1	12	83524
Arts & Humanities - (listing)	4	0	63	173620
Astronomy - (listing)	1	0	0	131298
Biography - (listing)	0	0	6	173648
Biology - (listing)	10	0	29	83529
Biomedical Engineering - (listing)	0	0	33	173640
Book Reviews - (listing)	0	0	5	173654
Business - (listing)	35	1	40	83521
Careers - (listing)	0	0	5	173655
Chemical Engineering - (listing)	0	0	25	173633
Chemistry - (listing)	7	0	18	83545
Children's Literature - (listing)	1	0	0	83559
Citation Guides - (listing)	9	0	0	109570
Citation Managers - (listing)	5	0	3	148471
Civil & Environmental Engineering - (listing)	0	0	32	173634
Communication Studies - (listing)	9	1	19	83533
Computer Science - (listing)	1	0	16	173621
Copyright - (listing)	6	0	0	83561
Counseling - (listing)	3	0	0	134617
Criminology - (listing)	5	1	13	83549
Curriculum & Instruction - (listing)	3	0	1	83562
Dance - (listing)	3	0	12	88428
Data Services - (listing)	7	0	1	166620
Dentistry - (listing)	4	0	17	83550
Distance Learning - (listing)	3	0	1	83554
Economics - (listing)	1	1	21	163067
Education - (listing)	24	0	31	83526
Electrical Engineering - (listing)	0	0	22	173635
Engineering - (listing)	18	2	4	83541
Engineering & Technology - (listing)	0	0	43	173636
English - (listing)	72	0	2	83515
English Literature & Language - (listing)	4	0	32	173614
English as a Second Language - (listing)	3	0	0	83536
Entrepreneurship & Innovation - (listing)	2	1	0	163070
Environmental Science - (listing)	5	0	0	146573
Fashion - (listing)	3	0	0	105113
Fashion Design - (listing)	3	0	0	83528
Fashion, Dress, and Merchandising - (listing)	2	0	14	173617
Film & Video - (listing)	3	1	0	83556
Finance - (listing)	1	1	0	200385
First Year Students - (listing)	7	0	1	83571
Forensics - (listing)	3	0	14	83546
Forestry and Natural Resources - (listing)	7	0	18	173644
Game Design - (listing)	1	1	0	211383
Gender and Sexuality - (listing)	13	0	0	83540
Genealogy - (listing)	2	0	7	173646
General & Reference - (listing)	3	0	35	173622
Geography - (listing)	3	0	14	173623
Geography/Geology - (listing)	9	0	0	83543
Geosciences - (listing)	0	0	18	173624
Gerontology - (listing)	1	0	0	83557
Government Information - (listing)	10	1	25	173615
Graduate Students - (listing)	1	0	1	206761
Health - (listing)	17	0	1	83558
Health Sciences - (listing)	8	0	57	173625
History - (listing)	56	0	52	83519
Horticulture - (listing)	6	0	0	83552
Hospitality - (listing)	1	1	0	163071
Human Resources - (listing)	3	1	0	200381
Industrial & Safety Engineering - (listing)	0	0	24	173626
Information Literacy - (listing)	9	0	0	83532
Intellectual Property - (listing)	3	1	1	180000
Interior Design - (listing)	4	0	14	173618
Interior Design and Design Studies - (listing)	7	0	0	83522
International Studies - (listing)	5	0	0	157289
Journalism - (listing)	11	0	30	101598
Landscape Architecture - (listing)	3	0	7	173653
Language and Literature - (listing)	0	0	11	173632
Law - (listing)	11	0	1	83567
Leadership Studies - (listing)	3	1	1	130933
Legal Studies - (listing)	3	0	27	173649
Library & Information Science - (listing)	0	0	4	173657
Library Services - (listing)	22	0	0	83542
Linguistics - (listing)	2	0	1	83575
Literature - (listing)	24	0	0	83560
Management - (listing)	8	1	0	163069
Marketing - (listing)	8	1	25	83517
Math - (listing)	7	0	0	83566
Mathematics and Statistics - (listing)	0	0	8	173647
Mechanical & Aerospace Engineering - (listing)	0	0	29	173637
Media - (listing)	12	0	0	106638
Medicine - (listing)	18	1	37	83573
Mining Engineering - (listing)	0	0	22	173638
Multidisciplinary Studies - (listing)	5	1	0	135646
Music - (listing)	7	1	18	83539
Native American Studies - (listing)	4	1	0	83530
News - (listing)	0	0	13	173650
Nursing - (listing)	10	1	24	83538
Nutrition - (listing)	8	0	17	83531
Petroleum & Natural Gas Engineering - (listing)	1	0	19	173639
Pharmacy - (listing)	4	0	20	164888
Philosophy - (listing)	0	0	11	173627
Physical Sciences - (listing)	0	0	20	173628
Physics - (listing)	7	0	15	83534
Plagiarism - (listing)	7	0	0	83535
Plant and Soil Sciences - (listing)	5	0	1	83572
Political Science - (listing)	26	1	30	83574
Psychology - (listing)	10	1	21	83518
Public Administration - (listing)	19	1	26	83565
Public Health - (listing)	9	0	15	83544
Public Relations - (listing)	9	0	0	184140
Recreation, Parks, and Tourism - (listing)	3	0	12	173616
Religious Studies - (listing)	4	0	14	83516
Research Experience for Undergraduates (REU) - (listing)	2	0	0	151890
Rockefeller School of Policy & Politics - (listing)	26	1	0	130934
Social Sciences - (listing)	1	0	70	173629
Social Work - (listing)	8	0	18	83553
Sociology - (listing)	13	0	21	83548
Special Education - (listing)	1	0	0	83564
Speech Pathology & Audiology - (listing)	1	0	0	83563
Sport Sciences - (listing)	2	0	0	83523
Sport Sciences and Physical Education - (listing)	0	0	11	173630
Sports Medicine - (listing)	1	0	14	173631
Strategic Communications - (listing)	6	0	0	89151
Style Guides - (listing)	6	0	0	136085
Supply Chain Management - (listing)	0	1	0	200386
Theater - (listing)	9	1	15	83569
Video & Sound - (listing)	1	0	13	173656
Web Research - (listing)	1	0	0	83547
West Virginia - (listing)	23	1	10	83525
West Virginia and Regional History Center - (listing)	22	0	1	185188
Wildlife and Fisheries - (listing)	3	0	12	173652
Women and Gender Studies - (listing)	19	1	13	83537
World Languages & Literature - (listing)	7	0	0	83527

Code

subject_expert_missing <- df_subjects %>% 
  filter(Experts < 1)

subject_expert_missingGT <- subject_expert_missing %>% 
  select(-Experts) %>% 
  gt(rowname_col = "Name") %>% 
  gt_theme_espn() %>% 
  tab_options(
    table.width = pct(100),
    table.font.size = 12
  ) %>%
  fmt_url(columns = URL, label = "listing", show_underline = FALSE, color = "magenta") |> 
  cols_merge(
    columns = c(Name, URL),
    pattern = "{1} - ({2})"
  ) |> 
  cols_label(
    URL = "listing"
  ) |> 
  cols_align(align = "left") %>% 
  cols_width(Name ~ pct(40), c(Guides:ID) ~ pct(15)) %>% 
  tab_header(
    title = md("**Subjects with No Expert Assignment** | at West Virginia University"),
    subtitle = md("This table contains information on subject assignments that are missing experts in the Springshare LibGuide System at WVU collected from Springshare")
  )
subject_expert_missingGT  

Subjects with No Expert Assignment | at West Virginia University
This table contains information on subject assignments that are missing experts in the Springshare LibGuide System at WVU collected from Springshare
	Guides	Assets	ID
Advertising - (listing)	15	23	83551
African-American Studies - (listing)	9	2	83520
Agriculture - (listing)	13	0	83570
Agriculture and Agricultural Economics - (listing)	12	22	173642
Allied Health - (listing)	3	13	173619
Animal Science - (listing)	2	14	173643
Anthropology - (listing)	3	13	83568
Architecture - (listing)	2	10	173651
Arts & Humanities - (listing)	4	63	173620
Astronomy - (listing)	1	0	131298
Biography - (listing)	0	6	173648
Biology - (listing)	10	29	83529
Biomedical Engineering - (listing)	0	33	173640
Book Reviews - (listing)	0	5	173654
Careers - (listing)	0	5	173655
Chemical Engineering - (listing)	0	25	173633
Chemistry - (listing)	7	18	83545
Children's Literature - (listing)	1	0	83559
Citation Guides - (listing)	9	0	109570
Citation Managers - (listing)	5	3	148471
Civil & Environmental Engineering - (listing)	0	32	173634
Computer Science - (listing)	1	16	173621
Copyright - (listing)	6	0	83561
Counseling - (listing)	3	0	134617
Curriculum & Instruction - (listing)	3	1	83562
Dance - (listing)	3	12	88428
Data Services - (listing)	7	1	166620
Dentistry - (listing)	4	17	83550
Distance Learning - (listing)	3	1	83554
Education - (listing)	24	31	83526
Electrical Engineering - (listing)	0	22	173635
Engineering & Technology - (listing)	0	43	173636
English - (listing)	72	2	83515
English as a Second Language - (listing)	3	0	83536
English Literature & Language - (listing)	4	32	173614
Environmental Science - (listing)	5	0	146573
Fashion - (listing)	3	0	105113
Fashion Design - (listing)	3	0	83528
Fashion, Dress, and Merchandising - (listing)	2	14	173617
First Year Students - (listing)	7	1	83571
Forensics - (listing)	3	14	83546
Forestry and Natural Resources - (listing)	7	18	173644
Gender and Sexuality - (listing)	13	0	83540
Genealogy - (listing)	2	7	173646
General & Reference - (listing)	3	35	173622
Geography - (listing)	3	14	173623
Geography/Geology - (listing)	9	0	83543
Geosciences - (listing)	0	18	173624
Gerontology - (listing)	1	0	83557
Graduate Students - (listing)	1	1	206761
Health - (listing)	17	1	83558
Health Sciences - (listing)	8	57	173625
History - (listing)	56	52	83519
Horticulture - (listing)	6	0	83552
Industrial & Safety Engineering - (listing)	0	24	173626
Information Literacy - (listing)	9	0	83532
Interior Design - (listing)	4	14	173618
Interior Design and Design Studies - (listing)	7	0	83522
International Studies - (listing)	5	0	157289
Journalism - (listing)	11	30	101598
Landscape Architecture - (listing)	3	7	173653
Language and Literature - (listing)	0	11	173632
Law - (listing)	11	1	83567
Legal Studies - (listing)	3	27	173649
Library & Information Science - (listing)	0	4	173657
Library Services - (listing)	22	0	83542
Linguistics - (listing)	2	1	83575
Literature - (listing)	24	0	83560
Math - (listing)	7	0	83566
Mathematics and Statistics - (listing)	0	8	173647
Mechanical & Aerospace Engineering - (listing)	0	29	173637
Media - (listing)	12	0	106638
Mining Engineering - (listing)	0	22	173638
News - (listing)	0	13	173650
Nutrition - (listing)	8	17	83531
Petroleum & Natural Gas Engineering - (listing)	1	19	173639
Pharmacy - (listing)	4	20	164888
Philosophy - (listing)	0	11	173627
Physical Sciences - (listing)	0	20	173628
Physics - (listing)	7	15	83534
Plagiarism - (listing)	7	0	83535
Plant and Soil Sciences - (listing)	5	1	83572
Public Health - (listing)	9	15	83544
Public Relations - (listing)	9	0	184140
Recreation, Parks, and Tourism - (listing)	3	12	173616
Religious Studies - (listing)	4	14	83516
Research Experience for Undergraduates (REU) - (listing)	2	0	151890
Social Sciences - (listing)	1	70	173629
Social Work - (listing)	8	18	83553
Sociology - (listing)	13	21	83548
Special Education - (listing)	1	0	83564
Speech Pathology & Audiology - (listing)	1	0	83563
Sport Sciences - (listing)	2	0	83523
Sport Sciences and Physical Education - (listing)	0	11	173630
Sports Medicine - (listing)	1	14	173631
Strategic Communications - (listing)	6	0	89151
Style Guides - (listing)	6	0	136085
Video & Sound - (listing)	1	13	173656
Web Research - (listing)	1	0	83547
West Virginia and Regional History Center - (listing)	22	1	185188
Wildlife and Fisheries - (listing)	3	12	173652
World Languages & Literature - (listing)	7	0	83527

Code

subject_guide_missing <- df_subjects %>% 
  filter(Guides < 1)

subject_guide_missingGT <- subject_guide_missing %>% 
  select(-Guides, -Experts) %>% 
  gt(rowname_col = "Name") %>% 
  gt_theme_espn() %>% 
  tab_options(
    table.width = pct(100),
    table.font.size = 12
  ) %>% 
  fmt_url(columns = URL, label = "listing", show_underline = FALSE, color = "magenta") |> 
  cols_merge(
    columns = c(Name, URL),
    pattern = "{1} - ({2})"
  ) |> 
  cols_label(
    URL = "listing"
  ) |> 
  cols_align(align = "left") %>% 
  cols_width(Name ~ pct(55), c(Assets:ID) ~ pct(15)) %>% 
  tab_header(
    title = md("**Subjects with No Guide Assignments** | at West Virginia University"),
    subtitle = md("This table contains information on subject assignments that are missing guides in the Springshare LibGuide System at WVU collected from Springshare")
  )
subject_guide_missingGT

Subjects with No Guide Assignments | at West Virginia University
This table contains information on subject assignments that are missing guides in the Springshare LibGuide System at WVU collected from Springshare
	Assets	ID
Biography - (listing)	6	173648
Biomedical Engineering - (listing)	33	173640
Book Reviews - (listing)	5	173654
Careers - (listing)	5	173655
Chemical Engineering - (listing)	25	173633
Civil & Environmental Engineering - (listing)	32	173634
Electrical Engineering - (listing)	22	173635
Engineering & Technology - (listing)	43	173636
Geosciences - (listing)	18	173624
Industrial & Safety Engineering - (listing)	24	173626
Language and Literature - (listing)	11	173632
Library & Information Science - (listing)	4	173657
Mathematics and Statistics - (listing)	8	173647
Mechanical & Aerospace Engineering - (listing)	29	173637
Mining Engineering - (listing)	22	173638
News - (listing)	13	173650
Philosophy - (listing)	11	173627
Physical Sciences - (listing)	20	173628
Sport Sciences and Physical Education - (listing)	11	173630
Supply Chain Management - (listing)	0	200386

---

Section 5: How Users are Accessing the LibGuides System

Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua.

Data frame for traffic

• referral_ds.csv

Code

traffic_medium_ds <- traffic %>%
  select(-Source) %>% 
  filter(Medium == "organic" | Medium == "direct" | Medium == "referral") %>% 
  group_by(Medium) %>% 
  summarise(across(everything(), list(total=sum, mean=mean)))

traffic_medium_ds$Avg_session_duration_mean <- round(traffic_medium_ds$Avg_session_duration_mean, digits = 1)

traffic_medium_n <- traffic %>% 
  filter(Medium == "organic" | Medium == "direct" | Medium == "referral") %>% 
  group_by(Medium) %>% 
  summarise(n = n())

referral_ds <- traffic_medium_n %>% 
  left_join(traffic_medium_ds, by = "Medium") %>% 
  select(-Percent_new_users_total, 
         -Users_mean,
         -New_users_mean,
         -Sessions_mean,
         -Users_sessions_total, 
         -Bounce_rate_total, 
         -Pages_session_total, 
         -Avg_session_duration_total)

traffic_medium_gt <- referral_ds %>% 
  arrange(referral_ds, desc(Users_total)) %>% 
  gt(rowname_col = "Medium") %>%
  #set ESPN theme
  gt_theme_espn() %>% 
  fmt_number(decimals = 1, 
                columns = c(Percent_new_users_mean,
                            Users_sessions_mean, 
                            Bounce_rate_mean, 
                            Pages_session_mean, 
                            Avg_session_duration_mean), 
                use_seps = FALSE, 
                drop_trailing_dec_mark = FALSE) %>%
  fmt_percent(columns = c(Percent_new_users_mean,
                          Bounce_rate_mean), scale_values = FALSE, decimals = 1) %>% 
  fmt_duration(output_units = c("minutes", "seconds"), columns = Avg_session_duration_mean) %>% 
  #columns labels, widths, and alignments
  cols_label(
    n = "Instances",
    Users_total = "Total",
    New_users_total = "New",
    Percent_new_users_mean = "Percent New",
    Sessions_total = "Total",
    Users_sessions_mean = "per User",
    Bounce_rate_mean = "Bounce Rate",
    Pages_session_mean = " Pages Viewed",
    Avg_session_duration_mean = "Duration"
  ) %>% 
  cols_align(align = "left") %>% 
    #format table (add spanners, title, footnotes, font size, etc...)
  cols_width(
    c(Medium:Avg_session_duration_mean) ~ pct(10)
  ) |> 
  tab_options(table.font.size = 12, table.width = pct(100)) %>% 
  tab_spanner(label = "Users", columns = Users_total:Percent_new_users_mean) %>% 
  tab_spanner(label = "Sessions", columns = Sessions_total:Avg_session_duration_mean) %>% 
  tab_header(
    title = md("**Library Guides Access** | at West Virginia University"),
    subtitle = md("This table contains information on how users access guides and pages in the Springshare LibGuide System at WVU collected from April 2022 to April 2023 in Google Analytics")
    )

traffic_medium_gt

Library Guides Access | at West Virginia University
This table contains information on how users access guides and pages in the Springshare LibGuide System at WVU collected from April 2022 to April 2023 in Google Analytics
	Instances	Users			Sessions
		Total	New	Percent New	Total	per User	Bounce Rate	Pages Viewed	Duration
direct	1	17210	17024	98.9%	24797	1.4	44.2%	2.5	1m 54s
organic	10	238394	235707	99.2%	290259	1.1	64.0%	1.5	43s
referral	431	12327	9826	79.2%	22022	1.4	47.3%	2.4	1m 41s

Code

traffic_referralTop <- traffic %>% 
  filter(Medium == "referral" & Users >= 50)

traffic_referralGT <- traffic_referralTop %>% 
  select(-Medium) %>% 
  arrange(desc(Users)) %>% 
  gt(rowname_col = "Source") %>% 
  gt_theme_espn() %>% 
  fmt_percent(columns = c(Percent_new_users, Bounce_rate), scale_values = FALSE, decimals = 1) %>% 
  fmt_number(columns = Users_sessions, decimals = 2) %>% 
  fmt_duration(columns = Avg_session_duration, output_units = c("minutes", "seconds")) %>% 
  cols_label(
    Users = "Total",
    New_users = "New",
    Percent_new_users = "Percent New",
    Sessions = "Total",
    Users_sessions = "Per User", 
    Bounce_rate = "Bounce Rate",
    Pages_session = "Pages",
    Avg_session_duration = "Duration"
  ) %>% 
  cols_align(align = "left") %>% 
  cols_width(
    Source ~ pct(32.5), c(Users:Avg_session_duration) ~ pct(7.5)
  ) %>% 
  tab_options(table.width = pct(100), table.font.size = 12) %>% 
  tab_spanner(
    label = "Referral Users",
    columns = Users:Percent_new_users
  ) %>% 
  tab_spanner(
    label = "Referral Sessions",
    columns = Sessions:Avg_session_duration
  ) %>% 
  tab_header(
    title = md("**Usage by Referral Website** | at West Virginia University"),
    subtitle = md("This table contains information on websites referring users to the Springshare LibGuide System at WVU collected from April 2022 to April 2023 collected from Google Analytics")
  )
  
traffic_referralGT

Usage by Referral Website | at West Virginia University
This table contains information on websites referring users to the Springshare LibGuide System at WVU collected from April 2022 to April 2023 collected from Google Analytics
	Referral Users			Referral Sessions
	Total	New	Percent New	Total	Per User	Bounce Rate	Pages	Duration
library.wvu.edu	3837	2958	77.1%	8003	2.09	22.0%	4.91	4m 15s
ecampus.wvu.edu	2261	1836	81.2%	4483	1.98	44.6%	2.55	1m 54s
wvrhc.lib.wvu.edu	701	623	88.9%	962	1.37	20.4%	4.63	2m 32s
classroom.google.com	441	341	77.3%	696	1.58	51.9%	2.07	1m 32s
search.wvu.edu	396	347	87.6%	482	1.22	42.1%	2.60	1m 14s
law.wvu.edu	370	276	74.6%	894	2.42	23.6%	4.06	1m 36s
t.co	353	334	94.6%	446	1.26	12.6%	3.06	59s
vgl.mobius.cloud	227	176	77.5%	334	1.47	0.0%	4.93	2m 1s
sole.hsc.wvu.edu	169	137	81.1%	272	1.61	23.5%	2.78	1m 52s
cn.bing.com	159	157	98.7%	181	1.14	54.1%	1.76	1m 29s
westvirginia.libanswers.com	152	66	43.4%	255	1.68	39.6%	2.86	1m 58s
docs.google.com	134	92	68.7%	199	1.49	31.2%	4.62	3m 34s
databases.lib.wvu.edu	109	85	78.0%	177	1.62	20.9%	3.11	2m
researchrepository.wvu.edu	109	84	77.1%	136	1.25	33.8%	2.95	1m 6s
marketingcommunications.wvu.edu	107	88	82.2%	206	1.93	47.6%	2.14	1m 20s
reddit.com	107	105	98.1%	114	1.07	88.6%	1.16	2s
wvu.libapps.com	92	11	12.0%	494	5.37	26.5%	11.55	8m 43s
wvu.libcal.com	87	50	57.5%	130	1.49	36.1%	3.12	2m 51s
l.facebook.com	83	67	80.7%	133	1.60	37.6%	2.35	2m 28s
m.facebook.com	80	80	100.0%	101	1.26	38.6%	2.56	1m 27s
mail.google.com	69	46	66.7%	108	1.57	48.1%	2.56	2m 32s
learn-us-east-1-prod-fleet02-xythos.content.blackboardcdn.com	61	18	29.5%	109	1.79	47.7%	2.40	1m 48s
uk.search.yahoo.com	60	60	100.0%	77	1.28	54.5%	2.03	2m 21s
enews.wvu.edu	58	44	75.9%	67	1.16	49.2%	2.27	45s
dergipark.org.tr	52	49	94.2%	96	1.85	38.5%	2.83	6m 8s
exhibits.lib.wvu.edu	50	32	64.0%	64	1.28	46.9%	3.19	1m 12s

Code

device_catGT <- device_cat %>% 
  gt(rowname_col = "Device_Category") %>%
  gt_theme_espn() %>% 
  fmt_percent(decimals = 1, scale_values = FALSE, 
              columns = c(Percent_New_Users, 
                         Percent_Users, 
                         Percent_sessions, 
                         Bounce_Rate)
              ) %>% 
  fmt_number(decimals = 1, 
             columns = Pages_Session,
             use_seps = FALSE, 
             drop_trailing_dec_mark = FALSE) %>% 
  fmt_duration(output_units = c("minutes", "seconds"), columns = Avg_Session_Duration) %>% 
  cols_label(
    Users = "Total",
    Percent_Users = "Percent Using Device",
    New_Users = "New Users",
    Percent_New_Users = "Percent New",
    Sessions = "Total",
    Percent_sessions = "Percent Using Device",
    Pages_Session = "Pages",
    Bounce_Rate = "Bounce Rate", 
    Avg_Session_Duration = "Time on Page"
  ) %>% 
  cols_align(align = "left") %>% 
  cols_width(
    c(Users:Avg_Session_Duration) ~ pct(10),
    Device_Category ~ pct(10)
  ) %>% 
  tab_options(table.font.size = 12, table.width = pct(100)) %>% 
  tab_spanner(label = "Device Users", columns = Users:Percent_New_Users)  %>%
  tab_spanner(label = " Device Sessions", columns = Sessions:Avg_Session_Duration) %>% 
  tab_header(
    title = md("**Usage by Type of Device** | at West Virginia University"),
    subtitle = "This table contains information on the types of device users use to access the Springshare LibGuide System at WVU collected from April 2022 to April 2023 collected from Google Analytics"
  ) 

device_catGT

Usage by Type of Device | at West Virginia University
This table contains information on the types of device users use to access the Springshare LibGuide System at WVU collected from April 2022 to April 2023 collected from Google Analytics
	Device Users				Device Sessions
	Total	Percent Using Device	New Users	Percent New	Total	Percent Using Device	Bounce Rate	Pages	Time on Page
desktop	216205	81.8%	214490	99.2%	281237	83.5%	55.0%	1.9	1m 20s
mobile	46186	17.5%	46056	99.7%	53503	15.9%	58.0%	1.8	55s
tablet	1803	0.7%	1794	99.5%	2225	0.7%	51.0%	2.1	1m 29s

Code

device_GT <- device_df %>% 
  filter(Users_total >=1000) %>% 
  gt(rowname_col = "Device") %>% 
  gt_theme_espn() %>% 
  fmt_percent(decimals = 1, scale_values = FALSE, 
              columns = c(Percent_New_Users, 
                         Percent_Users, 
                         Percent_sessions, 
                         Bounce_Rate_mean)
              ) %>% 
  fmt_number(decimals = 1, 
             columns = Pages_Session_mean,
             use_seps = FALSE, 
             drop_trailing_dec_mark = FALSE) %>% 
  fmt_duration(output_units = c("minutes", "seconds"), columns = Avg_Session_Duration_mean) %>% 
  cols_label(
    Users_total = "Total",
    Percent_Users = "Percent Using Device",
    New_Users_total = "New Users",
    Percent_New_Users = "Percent New",
    Sessions_total = "Total",
    Percent_sessions = "Percent Using Device",
    Pages_Session_mean = "Pages",
    Bounce_Rate_mean = "Bounce Rate", 
    Avg_Session_Duration_mean = "Time on Page"
  ) %>% 
  cols_align(align = "left") %>% 
  cols_width(
    c(Users_total:Avg_Session_Duration_mean) ~ pct(10),
    Device ~ pct(10)
  ) %>% 
  tab_options(table.font.size = 12, table.width = pct(100)) %>% 
  tab_spanner(label = "Users", columns = Users_total:Percent_Users)  %>%
  tab_spanner(label = "Sessions", columns = Sessions_total:Avg_Session_Duration_mean) %>% 
  tab_header(
    title = md("**Usage by Type of Mobile Device** | at West Virginia University"),
    subtitle = "This table contains information on the types of mobile device users use to access the Springshare LibGuide System at WVU collected from April 2022 to April 2023 collected from Google Analytics"
  )

device_GT

Usage by Type of Mobile Device | at West Virginia University
This table contains information on the types of mobile device users use to access the Springshare LibGuide System at WVU collected from April 2022 to April 2023 collected from Google Analytics
	Users				Sessions
	Total	New Users	Percent New	Percent Using Device	Total	Percent Using Device	Bounce Rate	Pages	Time on Page
Apple	28158	27982	99.4%	59.0%	32688	59.1%	42.7%	2.2	48s
Samsung Galaxy	9484	9458	99.7%	19.9%	10865	19.6%	54.6%	1.8	54s
Xiaomi	1403	1398	99.6%	2.9%	1688	3.0%	48.6%	1.8	1m 6s
Motorola	1270	1269	99.9%	2.7%	1443	2.6%	53.3%	1.8	26s
Google Pixel	1114	1115	100.1%	2.3%	1224	2.2%	52.6%	1.8	32s

Code

browserGT <- browserGA %>% 
  gt(rowname_col = "Browser") %>% 
  gt_theme_espn() %>% 
  fmt_percent(decimals = 1, scale_values = FALSE, 
              columns = c(Percent_New_Users, 
                         Percent_Users, 
                         Percent_sessions, 
                         Bounce_Rate)
              ) %>% 
  fmt_number(decimals = 1, 
             columns = Pages_Session,
             use_seps = FALSE, 
             drop_trailing_dec_mark = FALSE) %>% 
  fmt_duration(output_units = c("minutes", "seconds"), columns = Avg_Session_Duration) %>% 
  cols_label(
    Users = "Total",
    Percent_Users = "Percent Using Browser",
    New_Users = "New Users",
    Percent_New_Users = "Percent New",
    Sessions = "Total",
    Percent_sessions = "Percent Using Browser",
    Pages_Session = "Pages",
    Bounce_Rate = "Bounce Rate", 
    Avg_Session_Duration = "Time on Page"
  ) %>% 
  cols_align(align = "left") %>% 
  cols_width(
    c(Users:Avg_Session_Duration) ~ pct(10),
    Browser ~ pct(10)
  ) %>% 
  tab_options(table.font.size = 12, table.width = pct(100)) %>% 
  tab_spanner(label = "Browser Users", columns = Users:Percent_New_Users)  %>%
  tab_spanner(label = " Browser Sessions", columns = Sessions:Avg_Session_Duration) %>% 
  tab_header(
    title = md("**Usage by Browser** | at West Virginia University"),
    subtitle = "This table contains information on the types of browsers with over 2000 views that users use to access the Springshare LibGuide System at WVU collected from April 2022 to April 2023 collected from Google Analytics"
  ) 

browserGT

Usage by Browser | at West Virginia University
This table contains information on the types of browsers with over 2000 views that users use to access the Springshare LibGuide System at WVU collected from April 2022 to April 2023 collected from Google Analytics
	Browser Users				Browser Sessions
	Total	Percent Using Browser	New Users	Percent New	Total	Percent Using Browser	Bounce Rate	Pages	Time on Page
Chrome	176036	66.3%	173240	98.4%	227509	67.6%	55.0%	1.9	1m 18s
Safari	61149	23.0%	60746	99.3%	72322	21.5%	57.0%	1.9	1m 7s
Edge	13247	5.0%	13228	99.9%	17468	5.2%	51.0%	2.1	1m 23s
Firefox	10478	3.9%	10436	99.6%	13679	4.1%	56.0%	1.9	1m 12s
Opera	2109	0.8%	2089	99.1%	2795	0.8%	56.0%	1.8	1m 18s

---

Section 6: Asset Use within the Libguides System

Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua.

Code

all_assetsGT <- all_assets %>% 
  gt(rowname_col = "Type") %>%
  gt_theme_espn() %>% 
  cols_label(
    count = "One Year",
    Total = "Five Years"
  ) %>% 
  cols_align(align = "left") %>% 
  cols_width(
    Type ~ pct(50),
    c(count, Total) ~ pct(25)
  ) %>% 
  tab_options(table.width = pct(100), table.font.size = 12) %>%
  tab_header(
  title = md("**Asset Use by Type** | at West Virginia University"),
    subtitle = md("This table contains use of assets by type from the Springshare LibGuide System at WVU collected from April 2018 to April 2023 collected from Springshare")
  )

all_assetsGT

Asset Use by Type | at West Virginia University
This table contains use of assets by type from the Springshare LibGuide System at WVU collected from April 2018 to April 2023 collected from Springshare
	One Year	Five Years
Book	2129	8896
Database	11750	87625
Document	2762	12973
Link	19989	79387

Data Frame for Database Use

Code

rmarkdown::paged_table(assests_db |> 
                         arrange(desc(One_year)) |> 
                         select(-Created, - New, -Popular) |> 
                         relocate(c(One_year, Five_year), .after = Name) |> 
                         relocate(ID, .after = Map_Ct)
                         )

• db_assets.csv

Code

assests_dbGT <- assests_db %>%
  arrange(desc(One_year), desc(Five_year)) %>%
  select(-New, -Popular) %>%
  filter(One_year >= 50) |> 
  relocate(Map_Ct, .after = Five_year) %>% 
  relocate(c(Created, ID), .after = Map_Ct) %>% 
  gt(rowname_col = "Name") %>% 
  gt_theme_espn() %>% 
  cols_label(
    One_year = "One Year",
    Five_year = "Five Year",
    Map_Ct = "Mapped Guides",
    Created = "Date Created",
    ID = "ID"
  ) %>% 
  cols_align(align = "left") %>% 
  cols_width(Name ~ pct(37.5), c(One_year:Five_year) ~ pct(12.5)) %>% 
  tab_options(table.width = pct(100), table.font.size = 12) %>% 
  tab_header(
    title = md("**Database Links Usage from Library Guides** | at West Virginia University"),
    subtitle = md("This table contains use of databases from the Springshare LibGuide System at WVU collected from April 2018 to April 2023 collected from Springshare")
  )
  
  

assests_dbGT 

Database Links Usage from Library Guides | at West Virginia University
This table contains use of databases from the Springshare LibGuide System at WVU collected from April 2018 to April 2023 collected from Springshare
	One Year	Five Year	Mapped Guides	Date Created	ID
Statista	1123	14112	143	2015-01-30	17708355
Points of View Reference Center (Courtesy of WVInfoDepot)	548	8394	20	2015-12-22	18416133
Academic Search Complete	533	8800	187	2011-09-01	17708173
IBISWorld	510	5130	79	2015-01-30	17708360
Newspaper Source Plus	419	1858	50	2009-04-01	17707898
Mintel Oxygen	414	4406	34	2015-06-02	17708399
Chicago manual of style online	354	2500	8	2011-12-12	17708224
EndNote Basic	319	4650	99	2009-09-07	17707982
Foundation Directory Online Professional	310	3452	11	2013-03-19	17708284
ABI/Inform Complete	276	3444	105	2009-04-01	17707896
CQ Researcher	265	6112	59	2010-09-21	17708063
Business Source Complete	263	10298	137	2015-06-02	17708391
Mergent Intellect	257	4446	113	2015-12-22	18415980
Google Scholar	255	4744	75	2009-01-19	17707810
Web of Science	242	7384	96	2014-08-14	17708335
EBSCO Discovery Service	239	642	14	2021-12-28	64839946
Zotero	229	960	91	2017-06-21	33206879
APA PsycINFO	179	2712	76	2010-06-11	17708025
EbscoHost	129	2690	86	2014-05-20	17708331
PrivCo	128	1556	38	2016-04-04	20660378
UpToDate (Restricted to HSC campus only. No remote access)	127	574	11	2012-06-21	17708247
CREDO Reference	126	4330	115	2011-02-06	17708100
Mental Measurements Yearbook with Tests in Print (8 users)	123	520	17	2010-06-09	17708017
PubMed	121	1576	54	2009-01-12	17707798
Communication Source	121	500	20	2021-07-09	62256583
Nexis Uni	116	3106	251	2015-12-08	18008782
WorldCat Discovery	115	1978	156	2016-06-08	22223099
EconLit	109	582	20	2011-09-06	17708184
BioOne	104	1298	13	2011-09-29	17708195
Simmons Insights (5 users)	103	1268	18	2019-06-18	48703984
JSTOR	100	3876	195	2011-09-01	17708179
America's News	98	1034	54	2016-04-01	20609898
Encyclopedia of Associations (Gale Directory Library)	95	312	5	2015-12-22	18415478
Scopus	92	1418	82	2018-12-09	45957964
APS Online - American Periodical Series Online	86	508	89	2011-09-01	17708163
Sage Research Methods	84	364	33	2015-12-22	18416310
eBook Collection (EBSCOhost)	83	528	9	2011-07-05	17708131
MergentOnline	81	976	60	2015-06-02	17708393
Reference USA	80	984	52	2012-08-21	17708253
Overdrive	75	774	5	2015-12-22	18416052
ExamMaster	75	456	10	2015-12-22	18415448
New York Times (Digital Edition)	74	720	28	2015-08-10	17708400
APA PsycTESTS	74	650	7	2012-02-21	17708226
Browzine	73	1096	55	2018-02-14	40273564
Social Explorer	69	508	29	2019-07-30	49293384
Chronicle of Higher Education	68	532	7	2017-07-11	33857626
Statistical Abstract of the United States	64	416	68	2015-12-07	17909606
American Indian Histories and Culture	63	260	16	2015-12-07	17958073
MLA International Bibliography	62	1218	60	2011-09-01	17708175
Agricola (Ebscohost)	60	838	32	2009-06-05	17707909
ProQuest Historical Newspapers - Black Newspapers	60	316	39	2015-02-02	17708361
Roper iPoll	59	348	44	2019-12-20	51593461
Richard K. Miller & Associates Market Research Handbooks	55	468	19	2014-12-09	17708346

---

Section 7: Search Terms Used in Libguide Search Box

Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua.

Data Frame for Search Terms

Code

rmarkdown::paged_table(df |> 
                         filter(Location == "System") |> 
                         select(-Location) |> 
                         arrange(desc(Searches))
                       )

• search-stats.csv

Code

freq_stemGT <- freq_stem_sys %>% 
  filter(n >= 25) %>% 
  gt() %>% 
  gt_theme_espn() %>% 
  cols_label(
    stem = "Search Term Stem",
    n = "Total",
    freq = "Frequency"
      ) %>% 
  cols_align(align = "left") %>% 
  cols_width(stem ~ pct(50), c(n:freq) ~ pct(25)) %>% 
  fmt_percent(columns = freq, scale_values = FALSE, decimals = 2) %>% 
  tab_options(table.width = pct(100), table.font.size = 12) %>% 
  tab_header(
    title = md("**Search Terms used on LibGuides Homepage** | at West Virginia University"),
    subtitle = md("This table contains number of time the tokenized and stemmed keywords are used in a unique search in the search box on the Homepage of the Sringshare LibGuide System at WVU collected from April 2022 to April 2023 collected from Springshare")
  )

freq_stemGT

Search Terms used on LibGuides Homepage | at West Virginia University
This table contains number of time the tokenized and stemmed keywords are used in a unique search in the search box on the Homepage of the Sringshare LibGuide System at WVU collected from April 2022 to April 2023 collected from Springshare
Search Term Stem	Total	Frequency
cite	73	0.83%
research	56	0.64%
scienc	51	0.58%
develop	49	0.56%
citat	48	0.55%
social	46	0.52%
journal	44	0.50%
author	43	0.49%
style	41	0.47%
report	40	0.46%
educ	39	0.44%
book	38	0.43%
manag	38	0.43%
articl	37	0.42%
data	37	0.42%
health	37	0.42%
review	35	0.40%
studi	35	0.40%
exercis	32	0.37%
parent	32	0.37%
plant	32	0.37%
theori	32	0.37%
sourc	31	0.35%
write	30	0.34%
commun	29	0.33%
childhood	28	0.32%
student	28	0.32%
chicago	26	0.30%
war	26	0.30%
american	25	0.29%
colleg	25	0.29%
media	25	0.29%

Code

bigram_stemGT <- bigram_counts_stem %>% 
  filter(n >= 2) %>% 
  gt() %>% 
  gt_theme_espn() %>% 
  cols_label(
    stem1 = "First Stem",
    stem2 = "Second Stem",
    n = "Total"
  ) %>% 
  cols_align(align = "left") %>% 
  cols_width(c(stem1:n) ~ pct(33.3)) %>% 
  tab_options(table.width = pct(100), table.font.size = 12) %>% 
  tab_header(
    title = md("**Search Terms Relationships used on LibGuides Homepage** | at West Virginia University"),
    subtitle = md("This table contains bigrammed and stemmed keywords and users entered into the search box on the Homepage of the Sringshare LibGuide System at WVU collected from April 2022 to April 2023 collected from Springshare")
  )

bigram_stemGT

Search Terms Relationships used on LibGuides Homepage | at West Virginia University
This table contains bigrammed and stemmed keywords and users entered into the search box on the Homepage of the Sringshare LibGuide System at WVU collected from April 2022 to April 2023 collected from Springshare
First Stem	Second Stem	Total
beth	royal	3
citat	manag	3
emot	regul	3
parent	style	3
sport	scienc	3
acid	mine	2
adulthood	friendship	2
alzheim	diseas	2
annual	report	2
attach	style	2
author	quot	2
birth	record	2
book	challeng	2
book	chicago	2
book	review	2
chemic	market	2
children	learn	2
citat	style	2
cite	blog	2
cite	encyclopedia	2
cite	multipl	2
cite	music	2
cite	report	2
clinic	dietet	2
coal	town	2
colleg	affect	2
colleg	athlet	2
confer	proceed	2
copywrit	infring	2
creativ	common	2
cultur	studi	2
data	sheet	2
databas	search	2
edit	citat	2
educ	research	2
educ	resourc	2
electron	resourc	2
exercis	scienc	2
govern	document	2
graduat	student	2
health	scienc	2
hell	angel	2
horticultur	crop	2
impact	factor	2
journal	articl	2
justic	pedagogi	2
light	intens	2
market	commun	2
market	report	2
master	thesi	2
mechan	engin	2
middl	ag	2
mine	war	2
mission	statment	2
motor	impair	2
motor	skill	2
music	score	2
nativ	american	2
newspap	articl	2
nurs	home	2
opinion	editori	2
person	relationship	2
ph	level	2
photo	studio	2
potassium	defici	2
primari	sourc	2
promot	model	2
promot	theori	2
public	document	2
quot	scienc	2
research	guid	2
research	method	2
research	report	2
scienc	librari	2
scienc	quot	2
servic	block	2
social	polici	2
sociocultur	cognit	2
soil	scienc	2
sourc	analysi	2
street	drug	2
studi	aid	2
style	guid	2
systemat	review	2
text	citat	2
transit	type	2
video	game	2
wind	turbin	2