Spring 2025 Shell Workshop Survey Responses

Number of responses

library(tidyverse)
library(bslib)
library(shiny)
library(bsicons)
source("scripts/helper_functions.R")

# list of workshop IDs to filter results
workshops <- c("2025-04-11-ucsb-shell")

results <- read_csv("data-joined/all_workshops.csv") %>% 
  filter(workshop %in% workshops)
  
# Fix comma separator
results <- results %>% 
  mutate(findout_select.pre = str_replace_all(
  findout_select.pre, 
  "Twitter, Facebook, etc.", 
  "Twitter; Facebook; etc."))

pre_survey <- results %>%
  select(ends_with(".pre"))

post_survey <- results %>%
  select(ends_with(".post"))

n_pre <- sum(apply(post_survey, 1, function(row) all(is.na(row))))
n_post <- sum(apply(pre_survey, 1, function(row) all(is.na(row))))
n_total <- nrow(results)
n_both <- nrow(results) - n_pre - n_post

layout_columns(
  value_box(
    title = "Total responses", value = n_total, ,
    theme = NULL, showcase = bs_icon("people-fill"), showcase_layout = "left center",
    full_screen = FALSE, fill = TRUE, height = NULL
  ),
  value_box(
    title = "Both pre- and post-", value = n_both, , theme = NULL,
    showcase = bs_icon("arrows-expand-vertical"), showcase_layout = "left center",
    full_screen = FALSE, fill = TRUE, height = NULL
  ),
  value_box(
    title = "Only pre-workshop", value = n_pre, ,
    theme = NULL, showcase = bs_icon("arrow-left-short"), showcase_layout = "left center",
    full_screen = FALSE, fill = TRUE, height = NULL
  ),
  value_box(
    title = "Only post-workshop", value = n_post, , theme = NULL,
    showcase = bs_icon("arrow-right-short"), showcase_layout = "left center",
    full_screen = FALSE, fill = TRUE, height = NULL
  )
)

Total responses

22

Both pre- and post-

7

Only pre-workshop

13

Only post-workshop

2

Departments

depts <- results %>% select(dept_select.pre) %>% 
  separate_rows(dept_select.pre, sep=",") %>%
  mutate(dept_select.pre = str_trim(dept_select.pre)) %>%
  count(dept_select.pre, name = "count") %>% 
  mutate(percent = (count / (n_total - n_post)) * 100,
         text = sprintf("%.0f (%.0f%%)", count, percent))

ggplot(depts, aes(y=reorder(dept_select.pre, count), x=count)) +
    geom_col() +
    geom_label(aes(label = text, hjust = -0.1),
               size = 3) +
    labs(x = "# respondents", y = element_blank()) +  
    theme_minimal() +
    theme(
      panel.grid.minor = element_blank(),
      panel.grid.major.y = element_blank()
      ) +
    expand_limits(x = c(0,max(depts$count)*1.1))

“Other” Departments

other_depts <- results %>% 
  count(dept_other.pre, name = "count") %>% 
  drop_na() %>% 
  mutate(percent = (count / (n_total - n_post)) * 100,
         text = sprintf("%.0f (%.0f%%)", count, percent))

ggplot(other_depts, aes(y=reorder(dept_other.pre, count), x=count)) +
    geom_col() +
    geom_label(aes(label = text, hjust = -0.1),
               size = 3) +
    labs(x = "# respondents", y = element_blank()) + 
    theme_minimal() +
    theme(
      panel.grid.minor = element_blank(),
      panel.grid.major.y = element_blank()
      ) +
    expand_limits(x = c(0,max(other_depts$count)*1.1))

Current occupation / Career stage

ocup <- results %>% select(occupation.pre) %>% 
  separate_rows(occupation.pre, sep=",") %>%
  mutate(occupation.pre = str_trim(occupation.pre)) %>%
  count(occupation.pre, name = "count") %>% 
  drop_na() %>% 
  mutate(percent = (count / (n_total - n_post)) * 100,
         text = sprintf("%.0f (%.0f%%)", count, percent))

ggplot(ocup, aes(y=reorder(occupation.pre, count), x=count)) +
    geom_col() +
    geom_label(aes(label = text, hjust = -0.1),
               size = 3) +
    labs(x = "# respondents", y = element_blank()) + 
    theme_minimal() +
    theme(
      panel.grid.minor = element_blank(),
      panel.grid.major.y = element_blank()
      ) +
    expand_limits(x = c(0,max(ocup$count)*1.2))

Motivation - Why are you participating in this workshop?

motiv <- results %>% select(motivation_select.pre) %>% 
  separate_rows(motivation_select.pre, sep=",")  %>% 
  mutate(motivation_select.pre = str_trim(motivation_select.pre)) %>%
  count(motivation_select.pre, name = "count") %>% 
  drop_na() %>% 
  mutate(percent = (count / (n_total - n_post)) * 100,
         text = sprintf("%.0f (%.0f%%)", count, percent))

ggplot(motiv, aes(y=reorder(motivation_select.pre, count), x=count)) +
    geom_col() +
    geom_label(aes(label = text, hjust = -0.1),
               size = 3) +
    labs(x = "# respondents", y = element_blank()) + 
    theme_minimal() +
    theme(
      panel.grid.minor = element_blank(),
      panel.grid.major.y = element_blank()
      ) +
    expand_limits(x = c(0,max(motiv$count)*1.2))

How did you find out about this workshop?

findw <- results %>% select(findout_select.pre) %>% 
  separate_rows(findout_select.pre, sep=",")  %>% 
  mutate(findout_select.pre = str_trim(findout_select.pre)) %>%
  count(findout_select.pre, name = "count") %>% 
  drop_na() %>% 
  mutate(percent = (count / (n_total - n_post)) * 100,
         text = sprintf("%.0f (%.0f%%)", count, percent))

ggplot(findw, aes(y=reorder(findout_select.pre, count), x=count)) +
    geom_col() +
    geom_label(aes(label = text, hjust = -0.1),
               size = 3) +
    labs(x = "# respondents", y = element_blank()) + 
    theme_minimal() +
    theme(
      panel.grid.minor = element_blank(),
      panel.grid.major.y = element_blank()
      ) +
    expand_limits(x = c(0,max(findw$count)*1.2))

What you most hope to learn?

results %>% group_by(workshop) %>% 
  select(workshop, hopes.pre) %>% 
  drop_na()

workshop	hopes.pre
2025-04-11-ucsb-shell	Skills that will be useful employment
2025-04-11-ucsb-shell	I use basic bash commands but I honestly have to google things constantly and it would be nice to just get a more formal education/practice on navigating directories in the terminal since I do this so often for pushing and pulling things to Git/Github. The rest of the workshop seems interesting just for learning sake but the above is a more specific thing I hope to strengthen.
2025-04-11-ucsb-shell	I would like to learn the basics of working in linux with file directories, running programs, simple commands. I will need to be able to do this for some upcoming data analysis.
2025-04-11-ucsb-shell	learn how to use this and apply to real-life cases
2025-04-11-ucsb-shell	best practices for running code and storing data; integrating with RStudio; helpful tips of useful commands
2025-04-11-ucsb-shell	New programming skills
2025-04-11-ucsb-shell	Thank you! I have been offered the use of supercomputing resources from my old postdoc position, and I would like to improve my Unix skills to make full use of this resource. I currently use MATLAB on my compter/laptop and am learning Python and Jupyter notebook. My Unix skills are very limited. The Python interfaces with the supercomputing environment are well-developed. I hope to learn more about how I can help to acess the resources more easily.
2025-04-11-ucsb-shell	I’ve never really understood what the Terminal app on my MacBook did, so I am hoping to learn more about it. Beyond that, I am hoping to acquire new skills that will help me manage data.
2025-04-11-ucsb-shell	Unix Shell
2025-04-11-ucsb-shell	I want to be a data scientist, so I think it is really important to understand Unix systems

Learning environment in the workshop

orderedq <- c("Strongly Disagree", "Somewhat Disagree", "Neither Agree or Disagree","Somewhat Agree", "Strongly Agree")
addNA(orderedq)

agree_questions <- results %>% 
  select(join_key, agree_apply.post,    agree_comfortable.post, agree_clearanswers.post,
         agree_instr_enthusiasm.post, agree_instr_interaction.post, agree_instr_knowledge.post
) %>% 
  filter(!if_all(-join_key, is.na))

n_agree_questions <- nrow(agree_questions)
  
agree_questions <- agree_questions %>%
  pivot_longer(cols = -join_key, names_to = "Question", values_to = "Response") %>% 
  mutate(Response = factor(Response, levels = orderedq),
         Question = recode(Question,
                     "agree_apply.post" = "Can immediatly apply 
 what they learned",
                     "agree_comfortable.post" = "Comfortable learning in 
 the workshop environment",
                     "agree_clearanswers.post" = "Got clear answers 
 from instructors",
                     "agree_instr_enthusiasm.post" = "Instructors were enthusiastic",
                     "agree_instr_interaction.post" = "Comfortable interacting 
 with instructors",
                     "agree_instr_knowledge.post" = "Instructors were knowledgeable 
 about the material"
      ))

summary_data <- agree_questions %>%
  count(Question, Response, name = "count") %>% 
  mutate(percent = (count / n_agree_questions) * 100,
         text = sprintf("%.0f (%.0f%%)", count, percent))

ggplot(summary_data, aes(x = Question, y = count, fill = Response)) +
  geom_col(position = "fill", color = "black", show.legend = TRUE) +
  scale_y_continuous(labels = scales::percent_format()) + 
  scale_fill_manual(values = c("Strongly Disagree" = "#d01c8b", 
                               "Somewhat Disagree" = "#f1b6da", 
                               "Neither Agree or Disagree" = "#f7f7f7", 
                               "Somewhat Agree" = "#b8e186", 
                               "Strongly Agree" = "#4dac26"), 
                    na.translate = TRUE, na.value = "#cccccc", 
                    breaks = orderedq, drop = FALSE) +
  geom_text(aes(label = text), size = 3,
             position = position_fill(vjust = 0.5)) +
  labs(y = "# respondents (Percentage)", x = element_blank(), fill = "Responses",
       subtitle = paste0("Number of responses: ", n_agree_questions)) +
  theme_minimal() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1),
        plot.subtitle = element_text(hjust = 0.5, size = 12))

How an instructor or helper affected your learning experience

results %>% 
  group_by(workshop) %>% 
  select(workshop, instructor_example.post) %>%
  drop_na()

workshop	instructor_example.post
2025-04-11-ucsb-shell	Loved having the opportunity to ask extra questions in the chat to go a little deeper without disrupting the presenters since there were multiple instructors. This was nice bc in person that wouldn’t have been an option! Got some nice extra information about specific questions.
2025-04-11-ucsb-shell	I appreciated the react function in zoom allowing me to let the instructors know when I was experiencing issues. They always made sure to pause and help me troubleshoot so I continue following along.
2025-04-11-ucsb-shell	I was a little slow catching in that you have time be in the folder or directory in order to perform actions on it. The instructors were patient and made sure to walk through the commands again if we did not understand. I really appreciated that as it made the conference a safe space for literally ALL attendees.
2025-04-11-ucsb-shell	The instructors were very quick to answer questions in chat and out loud. This made it very easy to catch up if you fell behind.
2025-04-11-ucsb-shell	Very enthusiastic and helpful also gave helpful tips and tricks
2025-04-11-ucsb-shell	Open to answering questions and had a breakroom to work on issues a student was having one on one.
2025-04-11-ucsb-shell	Answered any questions I had, and made sure no one was behind, so everyone was on the same page
2025-04-11-ucsb-shell	I had a nested folder for shell-lesson-data that they were able to help me discover to get to the files I needed for the course. The were able to figure this out for me quickly so I could continue on with the course.

Skills and perception comparison

# Calculate mean scores and make graph for all respondents (only_matched=FALSE)
tryCatch(
  {
mean_nresp <- get_mean_scores_nresp(results, only_matched=FALSE)
graph_pre_post(mean_nresp$mean_scores, mean_nresp$n_resp_pre, mean_nresp$n_resp_post, mean_nresp$n_resp_pre_post, only_matched=FALSE)
},
error = function(cond) {
message("Could not do the plots as there are no pre or post results to show")
}
)

# Calculate mean scores and make graph for only matched respondents in pre and post (only_matched=TRUE)
tryCatch(
  {
mean_nresp <- get_mean_scores_nresp(results, only_matched=TRUE)
graph_pre_post(mean_nresp$mean_scores, mean_nresp$n_resp_pre, mean_nresp$n_resp_post, mean_nresp$n_resp_pre_post, only_matched=TRUE)
},
error = function(cond) {
message("Could not do the plots as there are no pre or post results to show")
}
)

Workshop Strengths

results %>% 
  group_by(workshop) %>% 
  select(workshop, workshop_strengths.post) %>% 
  drop_na()

workshop	workshop_strengths.post
2025-04-11-ucsb-shell	Easy to follow, digestible, clear, etc.
2025-04-11-ucsb-shell	The repetition of commands was very helpful in learning how to interact with the interface.
2025-04-11-ucsb-shell	I liked that the instructors encouraged questions and were very patient. I also liked that the kesson was published to practice ahead of time. I regret not taking advantage of this feature.
2025-04-11-ucsb-shell	Instructors were very approachable with questions, knowledgeable about the subject, and very friendly.
2025-04-11-ucsb-shell	Interactive, easy to follow along. Prefer the zoom environment
2025-04-11-ucsb-shell	good information to learn, instructors interact with students and tries their best to answer questions
2025-04-11-ucsb-shell	We learned many different actions that can be performed in the terminal

Ways to improve the workshop

results %>% 
  group_by(workshop) %>% 
  select(workshop, workshop_improved.post) %>% 
  drop_na()

workshop	workshop_improved.post
2025-04-11-ucsb-shell	Im left slightly unsatisfied with how I would use these - it seems like maybe it would be easier to just open the folders and make changes directly but maybe there are times where you can’t do that? That extra context would be nice. I did learn a lot about file navigation though and that will be great for when I’m pushing and pulling to github on my terminal as before this workshop I wasn’t very effective at that navigation.
2025-04-11-ucsb-shell	The beginning of the workshop moved very quickly. It would be helpful especially during the start for beginners if the instructor paused so I could read the commands they typed before the executed the command.; Also, viewing the Windows interface was much easier than the mac because of the color coding, so I would have preferred to have seen that interface the entire time.
2025-04-11-ucsb-shell	I had a hard time managing the ’ thumbs up’ feature when asked. I found I could either follow, or respond. Again, I need to invest in another screen which would make this easier. I have a tiny laptop screen.
2025-04-11-ucsb-shell	I am not sure if it was beyond the scope of the workshop, but I thought it would have been helpful to see some applications of why I would use the shell instead of the GUI. I feel like the things I learned today (moving between directories, renaming files, copying files, etc.) I could’ve just done easier in the GUI.
2025-04-11-ucsb-shell	I think it was great. I liked the breaks in the middle.
2025-04-11-ucsb-shell	Sometimes it went a bit quickly, particularly when multiple lines of code were needed for an exercise. I was usually able to catch up though!

How likely are you to recommend this workshop? Scale 0 - 10

orderedq <- c("Detractor", "Passive", "Promoter")

nps <- results %>% 
  count(recommend_group.post, recommende_score.post, name = "count") %>% 
  drop_na() %>% 
  mutate(recommend_group.post = factor(recommend_group.post, levels = orderedq),
         percent = (count/sum(count)) * 100,
         text = sprintf("%.0f (%.0f%%)", count, percent))

nps %>% 
ggplot(aes(x=recommende_score.post, y=count, fill=recommend_group.post)) +
  geom_col(color="black", show.legend = TRUE) +
  scale_fill_manual(values = c("Detractor" = "#af8dc3", "Passive" = "#f7f7f7", "Promoter" = "#7fbf7b"), breaks = c("Detractor", "Passive", "Promoter"), drop = FALSE) +
  geom_label(aes(label = text, vjust = -0.5), fill = "white", size= 3) +
  scale_x_continuous(breaks = 1:10) +
  labs(x = "NPS Score", y = "# respondents", subtitle = paste0("Number of responses: ", sum(nps$count), "
 Mean score: ", format(weighted.mean(nps$recommende_score.post, nps$count), digits = 3))) +
  theme_minimal() +
  theme(
    panel.grid.minor = element_blank(),
    panel.grid.major.x = element_blank(),
    plot.subtitle = element_text(hjust = 0.5, size = 12)
  ) +
  expand_limits(x = c(1,10),
                y = c(0, max(nps$count)*1.1))

Topic Suggestions

results %>% 
  group_by(workshop) %>% 
  select(workshop, suggest_topics.post) %>% 
  drop_na()

workshop	suggest_topics.post
2025-04-11-ucsb-shell	Im looking forward to the upcoming R/Python text analysis workshop!
2025-04-11-ucsb-shell	I am not sure, but I wish all instructors were as helpful and kind as you! I will try to attend another one.
2025-04-11-ucsb-shell	No. It was good.
2025-04-11-ucsb-shell	Nope!