x <- c(1,2,2,3,3,3,4,4,4,4)
x
class(x) # numeric
typeof(x) # double
table(x)
sum(x) # 30
sum(table(x)) # 10
prop.table(x)
prop.table(table(x))
prop.table(x) 이미지
=> 그냥 prop.table(x)를 할 경우에는 각각의 비율이 출력됨
0.03333333 = 1/sum(x)
0.06666667 = 2/sum(x)
0.06666667 = 2/sum(x)
0.10000000 = 3/sum(x)
0.10000000 = 3/sum(x)
0.10000000 = 3/sum(x)
0.13333333 = 4/sum(x)
0.13333333 = 4/sum(x)
0.13333333 = 4/sum(x)
0.13333333 = 4/sum(x)
prop.table(table(x)) 이미지
=> prop.table(table(x))를 할 경우 누적의 비율이 출력됨
0.1 = 1의 총 개수/sum(table(x))
0.2 = 2의 총 개수/sum(table(x))
0.3 = 3의 총 개수/sum(table(x))
0.4 = 4의 총 개수/sum(table(x))
y <- c("a","a","a","b","b","c")
class(y) # character
typeof(y) # character
table(y)
sum(y) # character라서 연산 불가
sum(table(y)) # 6
prop.table(y) # character라서 연산 불가
prop.table(table(y))
prop.table(table(y)) 이미지
=> prop.table(table(y))를 할 경우 누적의 비율이 출력됨
0.5000000 = a의 총 개수 / sum(table(y))
0.3333333 = b의 총 개수 / sum(table(y))
0.1666667 = c의 총 개수 / sum(table(y))