[확률의이해] 1장 R로하는 도수,상대도수, 도수분포표

 

set.seed(123)  # 임의의 시드 값
blood_types <- c("A", "B", "AB", "O")
sample_data <- sample(blood_types, 50, replace = TRUE)

# 도수 계산
frequency <- table(sample_data)
frequency
#결과
> frequency
sample_data
 A AB  B  O 
13 17 13  7 

# 상대도수 계산
relative_frequency <- prop.table(frequency)
relative_frequency
#결과
sample_data
   A   AB    B    O 
0.26 0.34 0.26 0.14 

# 데이터프레임 만들기
df <- data.frame(Blood_Type = names(frequency),
                 Frequency = as.numeric(frequency),
                 Relative_Frequency = as.numeric(relative_frequency))
#names 는 열이름, as.numeric은 숫자, as.integer는 정수

print(df)

#출력 결과
  Blood_Type Frequency Relative_Frequency
1          A        13               0.26
2         AB        17               0.34
3          B        13               0.26
4          O         7               0.14

barplot(table(sample_data))

pie(table(sample_data))