기출 예제 세트 1 - 정답 풀이 中 2번째 문제 풀이 관련(09:00)

안녕하세요

1. 

기출 예제 세트 1 - 정답 풀이 中 2번째 문제풀이(09:00쯤) 관련해서

저는 문제 풀이와 다른 방법으로 최빈값 사용자 함수 만들어서 필요한 컬럼만 추출해서 값을 구해봤는데요

풀어주신 방법과 결과가 달라요.. 이유는 잘 모르겠는데 이렇게 풀면 안 되는 건가요?

df_02 <- read.csv('set_01_data_02.csv')

library(dplyr)

Mode <- function(x){

     ux <- unique(x)

     ux[which.max(tabulate(match(x,ux)))]

 }

df_021 <- df_02 %>% select('date','weather')

df_022 <- df_021 %>% group_by(date) %>% summarize(mode_weather=Mode(weather))

table(df_022$mode_weather)

2. 

결과가 모범 답안의 결과와 다르면 0점 처리되나요?

3. 

 빈도가 동일하여 최빈값이 2개가 나오는 경우 어떻게 처리해야 할까요?