시간 간격을 계산하고 플롯하는 방법

Question

dplyr과 ggplot2를 사용하여 시간이 지남에 따라 색이 다른 동물의 수를 변화시키고 계산하고 싶습니다.

임의의 날짜에 다른 동물을 관찰 했으므로 먼저 해당 관찰을 4 일 대괄호로 그룹화 한 다음 각 4 일 대괄호의 평균 색을 계산하고 싶습니다. 내가 처음 염두에두고있는 것을 보여주기 위해 처음 몇 가지에 대해 특수 효과가있는 Bracket.mean 열을 만들었습니다. 가능한 경우, 나중에 분석 및 플로팅을 위해 동일한 데이터 프레임에 새로운 수단 (예 : 새로운 data.frame 또는 벡터를 만드는 것과 반대)을 추가하고 싶습니다.

플롯의 경우, 일괄 관측 (백그라운드에서 관측치를 배경으로 희미하게 표시 한 오버레이)뿐 아니라 그 주변의 분산 측정치 (SD 또는 박스 플롯)를 사용하여 브래킷을 표시하기를 바라고 있습니다.

다음은 내가 사용하고있는 데이터 세트의 일부입니다 (교정하기를 바라고있는 'Bracket.mean'열로 구성). '백작'은 주어진 '날짜'에있는 특정 '색상'의 동물 수입니다.

Date Julian Count Color Bracket.color 
4/19/16 110 1 50 mean of 4/19-4/22 
4/19/16 110 1 50 mean of 4/19-4/22 
4/19/16 110 1 100 mean of 4/19-4/22 
4/20/16 111 4 50 mean of 4/19-4/22 
4/20/16 111 1 0 mean of 4/19-4/22 
4/20/16 111 2 100 mean of 4/19-4/22 
4/20/16 111 1 50 mean of 4/19-4/22 
4/20/16 111 2 100 mean of 4/19-4/22 
4/21/16 112 1 100 mean of 4/19-4/22 
4/21/16 112 2 50 mean of 4/19-4/22 
4/21/16 112 4 50 mean of 4/19-4/22 
4/21/16 112 1 100 mean of 4/19-4/22 
4/21/16 112 2 50 mean of 4/19-4/22 
4/21/16 112 1 0 mean of 4/19-4/22 
4/22/16 113 2 0 mean of 4/19-4/22 
4/22/16 113 4 50 mean of 4/23-4/26 
4/23/16 114 6 0 mean of 4/23-4/26 
4/23/16 114 1 50 mean of 4/23-4/26 
4/24/16 115 2 0 mean of 4/23-4/26 
4/26/16 117 5 0 mean of 4/23-4/26 
4/30/16 121 1 50 
5/2/16 123 1 NA 
5/2/16 123 1 50 
5/7/16 128 2 0 
5/7/16 128 3 0 
5/7/16 128 3 0 
5/8/16 129 4 0 
5/8/16 129 1 0 
5/10/16 131 1 50 
5/10/16 131 4 50 
5/12/16 133 1 0 
5/13/16 134 1 50 
5/14/16 135 1 0 
5/14/16 135 2 50 
5/14/16 135 2 0 
5/14/16 135 1 0 
5/17/16 138 1 0 
5/17/16 138 2 0 
5/23/16 144 1 0 
5/24/16 145 4 0 
5/24/16 145 1 0 
5/24/16 145 1 0 
5/27/16 148 3 NA 
5/27/16 148 1 0 
5/27/16 148 1 50 

모든 도움을 주시면 감사하겠습니다. 대단히 감사드립니다!

Answer 1

이와 비슷한 것으로 시작해야합니다.

library(dplyr) 
df <- df %>% mutate(Date = as.Date(Date, format='%m/%d/%y'), 
        Start = as.Date(cut(Date, breaks= seq(min(Date), max(Date)+4, by = 4)))) %>% 
    mutate(End = Start+3) %>% 
    group_by(Start,End) %>% 
    summarise(meanColor = mean(Color, na.rm=T), 
       sdColor = sd(Color, na.rm=T)) 
df 
#Source: local data frame [10 x 4] 
#Groups: Start [?] 
#  Start  End meanColor sdColor 
#  <date>  <date>  <dbl> <dbl> 
#1 2016-04-19 2016-04-22 56.25000 35.93976 
#2 2016-04-23 2016-04-26 12.50000 25.00000 
#3 2016-04-27 2016-04-30 50.00000  NA 
#4 2016-05-01 2016-05-04 50.00000  NA 
#5 2016-05-05 2016-05-08 0.00000 0.00000 
#6 2016-05-09 2016-05-12 33.33333 28.86751 
#7 2016-05-13 2016-05-16 20.00000 27.38613 
#8 2016-05-17 2016-05-20 0.00000 0.00000 
#9 2016-05-21 2016-05-24 0.00000 0.00000 
#10 2016-05-25 2016-05-28 25.00000 35.35534 

그런 다음 사용하여 플롯

library(ggplot) 
ggplot(df) + geom_line(aes(Start,meanColor))