Wiem, co to jest tutoring i na czym polega

## Number of labels is greater than default palette color count.
## • Select another color `palette` (and/or `package`).

Brałam/-em udział w programach tutoringowych jako tutor

Brałam/-em udział w programach tutoringowych jako osoba korzystająca ze wsparcia tutora

Wymień trzy pojęcia, które wg Ciebie najlepiej opisują tutoring

Chmura słowna:

##                      word freq
## wsparcie         wsparcie   89
## relacja           relacja   80
## indywidualne indywidualne   69
## pomoc               pomoc   62
## podejście       podejście   52
## nauka               nauka   45
## spotkanie       spotkanie   36
## nauczanie       nauczanie   33
## współpraca     współpraca   26
## indywidualna indywidualna   22

Najczęstsze określenia:

##  [1] "opiekun"          "podejście"        "relacja"          "mentoring"       
##  [5] "nauka"            "wiedza"           "mistrzuczeń"      "nauczanie"       
##  [9] "pomoc"            "nauczyciel"       "indywidualna"     "indywidualne"    
## [13] "wsparcie"         "mentor"           "spotkania"        "opieka"          
## [17] "metoda"           "indywidualizm"    "uczeń"            "rozmowa"         
## [21] "motywacja"        "prowadzenie"      "uczenie"          "współpraca"      
## [25] "indywidualność"   "inspiracja"       "korepetycje"      "spotkanie"       
## [29] "się"              "cierpliwość"      "nauczyciela"      "studentem"       
## [33] "doświadczenie"    "zaufanie"         "budowanie"        "relacji"         
## [37] "pracy"            "rozwój"           "indywidualizacja" "indywidualny"    
## [41] "personalizacja"   "zajęcia"          "nauce"            "kreatywność"     
## [45] "ucznia"           "good"             "zrozumienie"      "tok"             
## [49] "nauczania"        "wiedzy"           "zaangażowanie"    "wzajemne"        
## [53] "mistrz"           "praca"            "umiejętności"     "wymiana"         
## [57] "studenta"         "wspieranie"       "kontakt"          "student"         
## [61] "one"              "styl"

## $freedom
## numeric(0)

Wymień trzy pojęcia, które wg Ciebie najlepiej opisują tutoring (2)

Chmura słowna:

##                      word freq
## wsparcie         wsparcie   70
## rozwój             rozwój   61
## pomoc               pomoc   42
## relacja           relacja   41
## nauka               nauka   37
## indywidualne indywidualne   36
## podejście       podejście   31
## współpraca     współpraca   28
## studenta         studenta   24
## rozmowa           rozmowa   24

Najczęstsze określenia:

##  [1] "mentor"           "rozwijanie"       "opieka"           "indywidualizacja"
##  [5] "nauka"            "studenta"         "wspieranie"       "mistrz"          
##  [9] "indywidualna"     "praca"            "relacja"          "zaangażowanie"   
## [13] "nie"              "możliwość"        "pracy"            "współpraca"      
## [17] "wsparcie"         "spotkania"        "motywacja"        "mistrzuczeń"     
## [21] "kreatywność"      "zrozumienie"      "rozmowa"          "rozwój"          
## [25] "relacji"          "pomoc"            "nauki"            "indywidualność"  
## [29] "się"              "kontakt"          "wymiana"          "umiejętności"    
## [33] "doświadczenie"    "doświadczeniem"   "dzielenie"        "uczeń"           
## [37] "nauczanie"        "odkrywanie"       "potencjału"       "wiedza"          
## [41] "samodzielna"      "indywidualne"     "podejście"        "kształcenia"     
## [45] "indywidualny"     "mentoring"        "komunikacja"      "partnerstwo"     
## [49] "rozwoju"          "edukacja"         "korepetycje"      "skupienie"       
## [53] "systematyczność"  "cel"              "elastyczność"     "konsultacje"     
## [57] "inspiracja"       "kreatywności"     "spotkanie"        "ucznia"          
## [61] "wiedzy"           "relacje"          "autorytet"        "indywidualizm"   
## [65] "samodzielność"    "stron"            "prowadzenie"      "nauczyciel"      
## [69] "metoda"           "sposób"

## $freedom
## numeric(0)

Wymień trzy pojęcia, które wg Ciebie najlepiej opisują tutoring (3)

Chmura słowna:

##                      word freq
## rozwój             rozwój   68
## relacja           relacja   48
## nauka               nauka   35
## pomoc               pomoc   35
## wsparcie         wsparcie   34
## indywidualne indywidualne   30
## współpraca     współpraca   27
## podejście       podejście   24
## wiedzy             wiedzy   22
## wiedza             wiedza   17

Najczęstsze określenia:

##  [1] "kreatywność"    "relacja"        "personalizacja" "nauczyciel"    
##  [5] "poszerzanie"    "współpraca"     "spotkania"      "przewodnictwo" 
##  [9] "opieka"         "uczeń"          "wiedza"         "rozwój"        
## [13] "nie"            "wiem"           "indywidualne"   "mentor"        
## [17] "wsparcie"       "kontakt"        "elastyczność"   "zrozumienie"   
## [21] "rozmowa"        "podejście"      "rozwoju"        "inspiracja"    
## [25] "relacji"        "relacje"        "doświadczenie"  "indywidualny"  
## [29] "nauka"          "samodzielność"  "studenta"       "pomoc"         
## [33] "nauki"          "korepetycje"    "dyskusja"       "nauczanie"     
## [37] "przekazywanie"  "wiedzy"         "wzmacnianie"    "potencjału"    
## [41] "rozwijanie"     "inspirowanie"   "motywacja"      "indywidualność"
## [45] "efektywność"    "dzielenie"      "się"            "myślenie"      
## [49] "opiekun"        "spotkanie"      "doskonalenie"   "otwartość"     
## [53] "pracy"          "mentoring"      "zdobywanie"     "praca"         
## [57] "czas"           "nauczania"      "umiejętności"   "wspieranie"    
## [61] "lepsze"         "doświadczenia"  "pasja"          "mocnych"       
## [65] "stron"          "cierpliwość"    "zaangażowanie"  "sposób"        
## [69] "zaufanie"       "indywidualna"   "ucznia"         "komunikacja"   
## [73] "brak"           "wymiana"        "mistrz"         "tutor"         
## [77] "mistrzuczeń"    "celów"          "nauczyciela"    "bezpośredni"   
## [81] "proces"         "doradztwo"      "lepszy"         "osoby"

## $freedom
## numeric(0)

Uważam, że studenci mogliby skorzystać na zwiększeniu możliwości indywidualnej pracy z nauczycielami akademickimi, innej niż zajęcia w planie czy pisanie pracy dyplomowej

Motywacja

ggbarstats(
  data=results,
  y=Poziom,
  x=P14,
  legend.title="",
  title = "Możliwość uzyskania wskazówek i pomocy dotyczących samego studiowania",
  bf.message = FALSE,
  ggtheme=theme_minimal(),
)

ggbarstats(
  data=results,
  y=Poziom,
  x=P15,
  legend.title="",
  title = "Możliwość uzyskania wskazówek i pomocy przy planowaniu ścieżek kariery",
  bf.message = FALSE,
  ggtheme=theme_minimal(),
)

ggbarstats(
  data=results,
  y=Poziom,
  x=P17,
  legend.title="",
  title = "Możliwość wpisania w CV tego rodzaju działania",
  bf.message = FALSE,
  ggtheme=theme_minimal(),
)

ggbarstats(
  data=results,
  y=Poziom,
  x=P19,
  legend.title="",
  title = "Uzyskanie wskazówek do pracy dyplomowej",
  bf.message = FALSE,
  ggtheme=theme_minimal(),
)

ggbarstats(
  data=results,
  y=Studia,
  x=P12,
  legend.title="",
  title = "Możliwość pracy indywidualnej z wybranymi wykładowcami",
  bf.message = FALSE,
  ggtheme=theme_minimal(),
)

ggbarstats(
  data=results,
  y=Studia,
  x=P13,
  legend.title="",
  title = "Uczestniczenie w badaniach naukowych pod okiem specjalisty",
  bf.message = FALSE,
  ggtheme=theme_minimal(),
)

ggbarstats(
  data=results,
  y=Studia,
  x=P14,
  legend.title="",
  title = "Możliwość uzyskania wskazówek i pomocy dotyczących studiowania",
  bf.message = FALSE,
  ggtheme=theme_minimal(),
)

ggbarstats(
  data=results,
  y=Studia,
  x=P15,
  legend.title="",
  title = "Możliwość uzyskania wskazówek i pomocy przy planowaniu ścieżki kariery",
  bf.message = FALSE,
  ggtheme=theme_minimal(),
)

ggbarstats(
  data=results,
  y=Studia,
  x=P17,
  legend.title="",
  title = "Możliwość wpisania w CV tego rodzaju działania",
  bf.message = FALSE,
  ggtheme=theme_minimal(),
)

ggbarstats(
  data=results,
  y=Studia,
  x=P19,
  legend.title="",
  title = "Uzyskanie wskazówek do pracy dyplomowej",
  bf.message = FALSE,
  ggtheme=theme_minimal(),
)

ggbarstats(
  data=results,
  y=Wydzial,
  x=P12,
  legend.title="",
  title = "Możliwość pracy indywidualnej z wybranymi wykładowcami",
  bf.message = FALSE,
  ggtheme=theme_minimal(),
)

ggbarstats(
  data=results,
  y=Wydzial,
  x=P13,
  legend.title="",
  title = "Uczestniczenie w badaniach naukowych pod okiem specjalisty",
  bf.message = FALSE,
  ggtheme=theme_minimal(),
)

ggbarstats(
  data=results,
  y=Wydzial,
  x=P14,
  legend.title="",
  title = "Możliwość uzyskania wskazówek i pomocy dotyczących studiowania",
  bf.message = FALSE,
  ggtheme=theme_minimal(),
)

ggbarstats(
  data=results,
  y=Wydzial,
  x=P15,
  legend.title="",
  title = "Możliwość uzyskania wskazówek i pomocy przy planowaniu ścieżki kariery",
  bf.message = FALSE,
  ggtheme=theme_minimal(),
)

ggbarstats(
  data=results,
  y=Wydzial,
  x=P17,
  legend.title="",
  title = "Możliwość wpisania w CV tego rodzaju działania",
  bf.message = FALSE,
  ggtheme=theme_minimal(),
)

ggbarstats(
  data=results,
  y=Wydzial,
  x=P18,
  legend.title="",
  title = "Poszerzenie wiedzy i zgłębienie wiedzy z określonych tematów",
  bf.message = FALSE,
  ggtheme=theme_minimal(),
)

ggbarstats(
  data=results,
  y=Wydzial,
  x=P19,
  legend.title="",
  title = "Uzyskanie wskazówek do pracy dyplomowej",
  bf.message = FALSE,
  ggtheme=theme_minimal(),
)

ggbarstats(
  data=results,
  y=Stanowisko,
  x=P33,
  legend.title="",
  title = "Możliwość odbycia szkoleń i staży, w tym zagranicznych",
  bf.message = FALSE,
  ggtheme=theme_minimal(),
)

ggbarstats(
  data=results,
  y=Stanowisko,
  x=P34,
  legend.title="",
  title = "Podniesienie jakości dydaktyki",
  bf.message = FALSE,
  ggtheme=theme_minimal(),
)

ggbarstats(
  data=results,
  y=Stanowisko,
  x=P36,
  legend.title="",
  title = "Możliwość wykazania się dodatkowo działalnością dydaktyczną i/lub organizacyjną",
  bf.message = FALSE,
  ggtheme=theme_minimal(),
)

ggbarstats(
  data=results,
  y=Wydzial2,
  x=P31,
  legend.title="",
  title = "Możliwość pracy indywidualnej ze zdolnymi studentami",
  bf.message = FALSE,
  ggtheme=theme_minimal(),
)

ggbarstats(
  data=results,
  y=Wydzial2,
  x=P33,
  legend.title="",
  title = "Poczucie sensu i efektywności wykonywanych działań",
  bf.message = FALSE,
  ggtheme=theme_minimal(),
)

ggbarstats(
  data=results,
  y=Wydzial2,
  x=P34,
  legend.title="",
  title = "Możliwość odbycia szkoleń i staży, w tym zagranicznych",
  bf.message = FALSE,
  ggtheme=theme_minimal(),
)

ggbarstats(
  data=results,
  y=Wydzial2,
  x=P35,
  legend.title="",
  title = "Podniesienie jakości dydaktyki",
  bf.message = FALSE,
  ggtheme=theme_minimal(),
)

ggbarstats(
  data=results,
  y=Wydzial2,
  x=P36,
  legend.title="",
  title = "Możliwość wykazania się dodatkowo działalnością dydaktyczną i/lub organizacyjną",
  bf.message = FALSE,
  ggtheme=theme_minimal(),
)

Część opisowa

results %>%
  filter(P1=="Tak" & Jestem == "Studentem") %>%
  ggbarstats(
  y=Poziom,
  x=Studia,
  results.subtitle = FALSE,
  title="Kim jest student, który wie co to jest tutoring?",
  legend.title="",
  bf.message = FALSE,
  ggtheme=theme_minimal(),
)

results %>%
  filter(P1=="Tak" & Jestem == "Studentem") %>%
  ggbarstats(
  y=Studia,
  x=Wydzial,
  results.subtitle = FALSE,
  title="Kim jest student, który wie co to jest tutoring?",
  legend.title="",
  bf.message = FALSE,
  ggtheme=theme_minimal(),
  palette = "Dark2",
)

results %>%
  filter(P1=="Tak" & Jestem == "Studentem") %>%
  ggbarstats(
  y=Poziom,
  x=Wydzial,
  results.subtitle = FALSE,
  title="Kim jest student, który wie co to jest tutoring?",
  legend.title="",
  bf.message = FALSE,
  ggtheme=theme_minimal(),
  palette = "Dark2",
)

results %>%
  filter(P1=="Tak" & Jestem == "Studentem") %>%
  ggbarstats(
  y=Plec,
  x=Wiek,
  results.subtitle = FALSE,
  xlab="Kim jest student, który wie co to jest tutoring?",
  legend.title="",
  title = "",
  bf.message = FALSE,
  ggtheme=theme_minimal(),
  palette = "Dark2",
)

results %>%
  filter(P1=="Nie" & Jestem == "Nauczycielem akademickim") %>%
  grouped_ggpiestats(
  x=Plec,
  grouping.var = Stanowisko,
  results.subtitle = FALSE,
  legend.title="",
  bf.message = FALSE,
  ggtheme=theme_minimal(),
  label.repel  = TRUE,
  package      = "ggsci",
  palette      = "default_ucscgb"
)

results %>%
  filter(P1=="Nie" & Jestem == "Nauczycielem akademickim") %>%
  grouped_ggpiestats(
  x=Wiek,
  grouping.var = Stanowisko,
  results.subtitle = FALSE,
  legend.title="",
  bf.message = FALSE,
  ggtheme=theme_minimal(),
  label.repel  = TRUE,
  package      = "ggsci",
  palette      = "default_ucscgb"
)

results %>%
  filter(P1=="Nie" & Jestem == "Nauczycielem akademickim") %>%
  ggbarstats(
  x=Plec,
  y = Wydzial2,
  results.subtitle = FALSE,
  legend.title="",
  bf.message = FALSE,
  ggtheme=theme_minimal(),
  label.repel  = TRUE,
  package      = "ggsci",
  palette      = "default_ucscgb"
)

results %>%
  filter(P1=="Nie" & Jestem == "Nauczycielem akademickim") %>%
  ggbarstats(
  x=Plec,
  y= Wydzial2,
  results.subtitle = FALSE,
  legend.title="",
  bf.message = FALSE,
  ggtheme=theme_minimal(),
  label.repel  = TRUE,
  package      = "ggsci",
  palette      = "default_ucscgb"
)

Korelacje

Która z motywacji jest najistotniejsza?

results %>%
  filter(Jestem == "Nauczycielem akademickim") %>%
  select(P30:P36) %>%
  replace(is.na(.), 0) %>%
  summarise_all(sum)

## # A tibble: 1 × 7
##     P30   P31   P32   P33   P34   P35   P36
##   <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1  2105  2112  2096  1774  2009  1893  1638

  results %>%
  filter(Jestem == "Nauczycielem akademickim") %>%
  select(P30:P36,Stanowisko) %>%
  tbl_summary(
    label = list(P30~"dodatkowa gratyfikacja finansowa",P31~"możliwość indywidualnej pracy ze studentami",P32~"poczucie sensu i efektywności działań",
                 P33~"możliwość odbycia szkoleń i staży",
                 P34~"podniesienie jakości dydaktyki",
                 P35~"zdobycie nowych kompetencji",
                 P36~"wykazanie się dodatkową działalnością dydaktyczną"),
    type = list(P30:P36 ~ 'continuous'),
    by = Stanowisko,
     statistic = list(
      all_continuous() ~ "{mean} ({sd})" ),
    missing = "no"
  ) %>%
  add_p(pvalue_fun = ~ style_pvalue(.x, digits = 2)) %>%
  modify_spanning_header(c("stat_1", "stat_2") ~ "**Stopień motywacji**") %>%
  modify_header(label ~ "**Motywacja**") %>%
  modify_caption("**Table 1. W jakim stopniu poniższe elementy są zachętą do zaangażowania się w działania tutoringowe?**") %>%
  bold_labels()

## 25 observations missing `Stanowisko` have been removed. To include these observations, use `forcats::fct_na_value_to_level()` on `Stanowisko` column before passing to `tbl_summary()`.