값이있는 사용 가능한 데이터의 연도를 나열하는 열 또는 요약 테이블을 만들려면 어떻게해야합니까?

Question

그래서 다음과 같은 데이터가 있습니다. (샘플은 ~ 15 년의 기간 동안 수백 개의 행이 있습니다.) 각 위치에 대해 수년간 사용 가능한 데이터를 표시하는 열 (또는 요약 테이블)을 만들고 싶습니다.

Year, Place 
2000, 'Adak' 
2000, 'Kodiak' 
2000, 'Saltsdale' 
2001, 'Adak' 
2001, 'Saltsdale' 
2001, 'Tawney' 
2002, 'Adak' 
2002, 'Kodiak' 
2002, 'Tawney' 

내가 가능한 경우는 다음과 같이 정말하고 싶은 : 내가 summarize_all 사용하고 있지만이 나에게 Years_Available 열은 단지 첫 해에 15 번 반복되는 이상한 출력을 제공

Place, Years_Available 
'Adak', 2000/2002 
'Kodiak', 2000/2002 
'Saltsdale', 2000/2001 
'Tawney', 2001/2002 

. 내가 큰 데이터 세트에이를 적용하면

b1 <- b %>% 
    group_by(Place) %>% 
    mutate(years = toString(Year)) %>% 
    group_by(Place,years) %>% 
    summarize_all(funs(sum(!is.na(.)))) 

Answer 1

우리는 range

df1 %>% 
    group_by(Place) %>% 
    summarise(Year = toString(range(Year)))