dummy와 tidyr의 pivot_wider

 코드로 간단히 설명

> library(tidyverse)

> fish_encounter %>% pivot_wider(name_from=station,values_from=seen)