Commit 403fe9d9 authored by jbleher's avatar jbleher
Browse files

Histogram added

parent 67727d0e

01_data/points_only_sem_pt.csv

0 → 100644
+446 −0
Original line number Diff line number Diff line 
Punkte,Semester,Termin

"60,5",WS22/23,NT

"56,5",WS22/23,NT

68,WS22/23,NT

63,WS22/23,NT

34,WS22/23,NT

67,WS22/23,NT

"50,25",WS22/23,NT

"69,5",WS22/23,NT

63,WS22/23,NT

65,WS22/23,NT

74,WS22/23,NT

"54,5",WS22/23,NT

"54,5",WS22/23,NT

"44,75",WS22/23,NT

75,WS22/23,NT

"49,25",WS22/23,NT

55,WS22/23,NT

"75,5",WS22/23,NT

"66,5",WS22/23,NT

"61,5",WS22/23,NT

"54,5",WS22/23,NT

"56,5",WS22/23,NT

"60,5",WS22/23,NT

67,WS22/23,NT

69,WS22/23,NT

"58,5",WS22/23,NT

72,WS22/23,NT

66,WS22/23,NT

"46,5",WS22/23,NT

60,WS22/23,NT

"60,5",WS22/23,NT

"65,5",WS22/23,NT

"70,5",WS22/23,NT

"40,25",WS22/23,NT

61,WS22/23,NT

58,WS22/23,NT

"58,25",WS22/23,NT

73,WS22/23,NT

"46,5",WS22/23,NT

"32,25",WS22/23,NT

77,WS22/23,NT

82,WS22/23,NT

55,WS22/23,NT

"4,5",WS22/23,NT

56,WS22/23,NT

"45,5",WS22/23,NT

"61,5",WS22/23,NT

"77,5",WS22/23,NT

80,WS22/23,NT

"55,5",WS22/23,NT

"64,5",WS22/23,NT

"52,5",WS22/23,NT

70,WS22/23,NT

67,WS22/23,HT

"50,5",WS22/23,HT

53,WS22/23,HT

71,WS22/23,HT

"59,75",WS22/23,HT

60,WS22/23,HT

62,WS22/23,HT

"58,5",WS22/23,HT

"59,5",WS22/23,HT

71,WS22/23,HT

62,WS22/23,HT

"56,5",WS22/23,HT

76,WS22/23,HT

"79,5",WS22/23,HT

"69,5",WS22/23,HT

"73,5",WS22/23,HT

69,WS22/23,HT

"59,25",WS22/23,HT

71,WS22/23,HT

65,WS22/23,HT

"54,5",WS22/23,HT

"32,25",WS22/23,HT

"54,5",WS22/23,HT

67,WS22/23,HT

56,WS22/23,HT

69,WS22/23,HT

68,WS22/23,HT

70,WS22/23,HT

"46,5",WS22/23,HT

57,WS22/23,HT

31,WS22/23,HT

75,WS22/23,HT

"60,5",WS22/23,HT

"76,5",WS22/23,HT

"61,5",WS23/24,HT

55,WS23/24,HT

"56,5",WS23/24,HT

"76,5",WS23/24,HT

65,WS23/24,HT

"81,25",WS23/24,HT

"51,5",WS23/24,HT

"74,5",WS23/24,HT

58,WS23/24,HT

43,WS23/24,HT

"63,25",WS23/24,HT

"73,5",WS23/24,HT

"71,5",WS23/24,HT

78,WS23/24,HT

"66,5",WS23/24,HT

"66,5",WS23/24,HT

"56,5",WS23/24,HT

"40,5",WS23/24,HT

"61,75",WS23/24,HT

"59,5",WS23/24,HT

"71,5",WS23/24,HT

57,WS23/24,HT

80,WS23/24,HT

"56,5",WS23/24,HT

"75,5",WS23/24,HT

"55,25",WS23/24,HT

"62,5",WS23/24,HT

"77,5",WS23/24,HT

72,WS23/24,HT

"72,5",WS23/24,HT

74,WS23/24,HT

51,WS23/24,HT

"57,5",WS23/24,HT

67,WS23/24,HT

"67,5",WS23/24,HT

70,WS23/24,HT

"72,5",WS23/24,HT

66,WS23/24,HT

"36,75",WS23/24,HT

"56,5",WS23/24,HT

"73,75",WS23/24,HT

74,WS23/24,HT

"77,5",WS23/24,HT

60,WS23/24,HT

"70,5",WS23/24,HT

76,WS23/24,HT

62,WS23/24,HT

"76,5",WS23/24,HT

"69,5",WS23/24,HT

72,WS23/24,NT

"57,5",WS23/24,NT

72,WS23/24,NT

48,WS23/24,NT

"30,75",WS23/24,NT

"40,25",WS23/24,NT

"42,5",WS23/24,NT

"51,5",WS23/24,NT

"57,75",WS23/24,NT

"61,5",WS23/24,NT

"67,5",WS23/24,NT

"61,5",WS23/24,NT

77,WS23/24,NT

84,WS23/24,NT

"51,5",WS23/24,NT

67,WS23/24,NT

"76,5",WS23/24,NT

"67,5",WS23/24,NT

43,WS23/24,NT

"76,5",WS23/24,NT

"55,5",WS23/24,NT

"63,5",WS23/24,NT

83,WS23/24,NT

"52,75",WS23/24,NT

"53,5",WS23/24,NT

"58,5",WS23/24,NT

"48,25",WS23/24,NT

"75,5",WS23/24,NT

"68,5",WS23/24,NT

"62,5",WS23/24,NT

"36,75",WS23/24,NT

62,WS23/24,NT

"58,5",WS23/24,NT

"36,5",WS23/24,NT

"48,5",WS23/24,NT

78,WS23/24,NT

"43,25",WS23/24,NT

58,WS23/24,NT

"55,5",WS23/24,NT

"68,5",WS23/24,NT

63,WS23/24,NT

67,WS23/24,NT

67,WS23/24,NT

"65,5",WS23/24,NT

"74,5",WS23/24,NT

"46,5",WS23/24,NT

68,WS23/24,NT

"49,5",WS23/24,NT

55,WS23/24,NT

"69,5",WS23/24,NT

59,WS23/24,NT

"45,75",WS23/24,NT

63,WS23/24,NT

62,WS24/25,HT

"61,5",WS24/25,HT

"58,5",WS24/25,HT

"43,5",WS24/25,HT

84,WS24/25,HT

"73,5",WS24/25,HT

70,WS24/25,HT

"60,5",WS24/25,HT

"81,5",WS24/25,HT

51,WS24/25,HT

"71,5",WS24/25,HT

"59,5",WS24/25,HT

"79,5",WS24/25,HT

46,WS24/25,HT

47,WS24/25,HT

"60,5",WS24/25,HT

"79,5",WS24/25,HT

"65,5",WS24/25,HT

"59,5",WS24/25,HT

69,WS24/25,HT

65,WS24/25,HT

58,WS24/25,HT

71,WS24/25,HT

"64,5",WS24/25,HT

"68,5",WS24/25,HT

58,WS24/25,HT

"37,5",WS24/25,HT

"46,75",WS24/25,HT

"80,5",WS24/25,HT

"62,5",WS24/25,HT

75,WS24/25,HT

83,WS24/25,HT

72,WS24/25,HT

"75,5",WS24/25,HT

"45,5",WS24/25,HT

68,WS24/25,HT

61,WS24/25,HT

83,WS24/25,HT

"75,5",WS24/25,HT

"64,5",WS24/25,HT

"79,5",WS24/25,HT

75,WS24/25,HT

49,WS24/25,HT

"74,5",WS24/25,HT

62,WS24/25,HT

72,WS24/25,HT

79,WS24/25,HT

0,WS24/25,HT

"63,5",WS24/25,HT

61,WS24/25,HT

"74,5",WS24/25,HT

"74,5",WS24/25,HT

57,WS24/25,HT

"56,5",WS24/25,HT

69,WS24/25,HT

"80,5",WS24/25,HT

"58,5",WS24/25,HT

67,WS24/25,HT

"80,5",WS24/25,HT

"53,5",WS24/25,HT

"56,5",WS24/25,HT

54,WS24/25,NT

41,WS24/25,NT

44,WS24/25,NT

51,WS24/25,NT

"41,5",WS24/25,NT

"68,5",WS24/25,NT

"73,5",WS24/25,NT

73,WS24/25,NT

"66,5",WS24/25,NT

73,WS24/25,NT

86,WS24/25,NT

"49,25",WS24/25,NT

"48,75",WS24/25,NT

88,WS24/25,NT

"71,5",WS24/25,NT

32,WS24/25,NT

"45,5",WS24/25,NT

64,WS24/25,NT

77,WS24/25,NT

66,WS24/25,NT

"57,5",WS24/25,NT

"48,5",WS24/25,NT

"60,5",WS24/25,NT

54,WS24/25,NT

64,WS24/25,NT

54,WS24/25,NT

24,WS24/25,NT

66,WS24/25,NT

63,WS24/25,NT

"54,5",WS24/25,NT

"61,5",WS24/25,NT

"77,5",WS24/25,NT

"56,5",WS24/25,NT

58,WS24/25,NT

59,WS24/25,NT

"53,5",WS24/25,NT

"58,75",WS24/25,NT

60,WS24/25,NT

"55,5",WS24/25,NT

57,WS24/25,NT

"65,5",WS24/25,NT

69,WS24/25,NT

"59,5",WS24/25,NT

"70,5",WS24/25,NT

63,WS24/25,NT

"46,5",WS24/25,NT

59,WS24/25,NT

"45,5",WS24/25,NT

"56,5",WS24/25,NT

68,WS24/25,NT

"53,25",WS24/25,NT

"57,5",WS24/25,NT

46,WS24/25,NT

"78,5",WS24/25,NT

75,WS24/25,NT

"72,5",WS24/25,NT

"45,75",WS24/25,NT

69,WS24/25,NT

58,SS24,HT

30,SS24,HT

"40,5",SS24,HT

"65,5",SS24,HT

66,SS24,HT

67,SS24,HT

50,SS24,HT

55,SS24,HT

49,SS24,HT

"57,25",SS24,HT

"69,5",SS24,HT

58,SS24,HT

65,SS24,HT

"44,5",SS24,HT

"55,5",SS24,HT

"54,5",SS24,HT

67,SS24,HT

"68,5",SS24,HT

"46,75",SS24,HT

62,SS24,HT

"60,5",SS24,HT

64,SS24,HT

60,SS24,HT

48,SS24,HT

"61,5",SS24,HT

"76,5",SS24,HT

53,SS24,HT

"81,5",SS24,HT

49,SS24,HT

0,SS24,HT

57,SS24,HT

59,SS24,HT

"63,5",SS24,HT

"72,5",SS24,HT

"77,5",SS24,HT

78,SS24,HT

0,SS24,HT

56,SS24,HT

53,SS24,NT

71,SS24,NT

"69,5",SS24,NT

"55,5",SS24,NT

70,SS24,NT

70,SS24,NT

"65,5",SS24,NT

66,SS24,NT

71,SS24,NT

"46,5",SS24,NT

62,SS24,NT

"53,25",SS24,NT

"59,5",SS24,NT

"51,25",SS24,NT

"66,5",SS24,NT

"67,5",SS24,NT

"74,5",SS24,NT

67,SS24,NT

"68,5",SS24,NT

73,SS24,NT

"59,25",SS24,NT

"76,5",SS24,NT

72,SS24,NT

"61,5",SS24,NT

66,SS24,NT

"72,5",SS24,NT

75,SS24,NT

"51,5",SS24,NT

56,SS24,NT

82,SS24,NT

69,SS24,NT

"48,5",SS24,NT

65,SS24,NT

"57,5",SS23,NT

67,SS23,NT

"69,5",SS23,NT

81,SS23,NT

60,SS23,NT

70,SS23,NT

73,SS23,NT

"66,25",SS23,NT

54,SS23,NT

"63,5",SS23,NT

"44,5",SS23,NT

"69,5",SS23,NT

49,SS23,NT

"73,25",SS23,NT

"42,5",SS23,NT

"57,5",SS23,NT

"50,75",SS23,NT

"60,75",SS23,NT

83,SS23,NT

"62,5",SS23,HT

57,SS23,HT

"84,5",SS23,HT

68,SS23,HT

"63,5",SS23,HT

"65,5",SS23,HT

57,SS23,HT

"66,5",SS23,HT

"56,5",SS23,HT

"74,5",SS23,HT

49,SS23,HT

"55,5",SS23,HT

"47,5",SS23,HT

68,SS23,HT

"62,5",SS23,HT

"55,5",SS23,HT

"67,5",SS23,HT

53,SS23,HT

"42,25",SS23,HT

49,SS23,HT

76,SS23,HT

"72,5",SS23,HT

"45,5",SS23,HT

69,SS23,HT

"62,5",SS23,HT

77,SS23,HT

"43,75",SS23,HT

"40,25",SS23,HT

66,SS23,HT

"72,5",SS23,HT

32,SS23,HT

54,SS23,HT

63,SS23,HT

67,SS23,HT

64,SS23,HT

54,SS23,HT

"73,5",SS23,HT

64,SS23,HT

75,SS23,HT

"73,5",SS23,HT

"46,5",SS23,HT

67,SS23,HT

"69,5",SS23,HT

"64,5",SS23,HT

67,SS23,HT

"80,5",SS23,HT

"54,25",SS23,HT

02_code/R/250403_Notenliste_english.R

0 → 100644
+65 −0
Original line number Diff line number Diff line 
# ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

# Reading and examining the population data ----

# ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++



# Reading the data

noten <- read.csv("01_data/noten_only_urliste_tools.csv",dec = ",")



# Converting the data to numeric values

noten_numeric <- as.numeric(noten$grade)



# Frequency table of grades (including missing values)

(freq_noten <- table(noten_numeric,useNA = "ifany")) # absolute frequencies

(relfreq_noten_sample <- prop.table(noten_numeric))  # relative frequencies



# Classifying grades as passed/failed or not appeared

bestanden <- ifelse(is.na(noten_numeric),           # missing value?

                    "not appeared",                 # yes -> Not appeared

                    ifelse(noten_numeric <= 4,      # no -> classify as passed/failed

                           "passed", "failed"))



# Frequency table Passed/Failed

(freq_bestanden <- table(bestanden,useNA = "ifany"))



# Classifying the data according to grade categories

noten_mod <- ifelse(is.na(noten_numeric),99,noten_numeric)  # replace missing values with 99

noten_string <- cut(noten_mod, 

                  breaks = c(-Inf, 1.5, 2.5, 3.5, 4.5, 5.5, Inf), 

                  labels = c("very good", "good", "satisfactory", 

                             "sufficient", "insufficient", "not appeared"))

is(noten_string)

levels(noten_string)



# Frequency table of grade categories

(freq_noten_string <- table(noten_string,useNA = "ifany"))



# ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

# Creating a sample ----

# ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++



noten_sample <- sample(noten_numeric, 100)  # random sample of 100 grades



# Frequency table of grades (including missing values)

(freq_noten_sample <- table(noten_sample,useNA = "ifany"))  # absolute frequencies

(relfreq_noten_sample <- prop.table(freq_noten_sample))     # relative frequencies



# Classifying grades as passed/failed or not appeared

bestanden <- ifelse(is.na(noten_numeric),           # missing value?

                    "not appeared",                 # yes -> Not appeared

                    ifelse(noten_numeric <= 4,      # no -> classify as passed/failed

                           "passed", "failed"))



# Frequency table Passed/Failed

(freq_bestanden <- table(bestanden,useNA = "ifany"))



# Classifying the data according to grade categories

noten_mod <- ifelse(is.na(noten_numeric),99,noten_numeric)  # replace missing values with 99

noten_string <- cut(noten_mod, 

                    breaks = c(-Inf, 1.5, 2.5, 3.5, 4.5, 5.5, Inf), 

                    labels = c("very good", "good", "satisfactory", 

                               "sufficient", "insufficient", "not appeared"))

is(noten_string)

levels(noten_string)



# Frequency table of grade categories

(freq_noten_string <- table(noten_string,useNA = "ifany"))

02_code/R/250405_Histogram_english.ipynb

0 → 100755
+285 −0

File added.

Preview size limit exceeded, changes collapsed.