개월 단위로 R에 플롯 만들기

Question

다음은 내 DF의 예입니다.

count month 
3  2014-10-01 
4  2014-15-01 
3  2014-13-02 
12 2014-14-02 
12 2014-18-04 

나는 y 축의 카운트를 제공하는 R로 플롯을 생성하려고합니다. 나는 x 축에 달을 갖고 싶어하지만 난 사람이 가야하는 방법을 알고 있나요 방법 등

> likes <- plot(seq_along(DF$month),DF$count, type = "l",axes = FALSE, lab = "", lab = "Counts")

그룹 모두 함께 1월 개월, 함께 월 달 ... 알아낼 수 없습니다 ?

Answer 1

또는 기본 R과 ggplot2 솔루션 :

# date object 
d$month2 <- as.Date(as.character(d$month), "%Y-%d-%m") 
> str(d) 
'data.frame': 5 obs. of 3 variables: 
    $ count : int 3 4 3 12 12 
$ month : Factor w/ 5 levels "2014-10-01","2014-13-02",..: 1 4 2 3 5 
$ month2: Date, format: "2014-01-10" "2014-01-15" "2014-02-13" "2014-02-14" ... 

# per month 
res <- aggregate(d$count, list(months(d$month2)), sum) 
# again a date object 
res$month <- as.Date(paste0("01-", res$Group.1, "-2014"), "%d-%B-%Y") 
# plot 
ggplot(res, aes(x= month, y=x)) + 
    geom_point() + geom_line() + 
    scale_x_date(date_minor_breaks = "1 month",date_labels = "%B") 

당신은 또한 모두, 바 플롯 당 포인트 카운트와 같은 원시 데이터를 포함하도록 시도 할 수 있습니다 :

ggplot(d, aes(x= month2, y=count)) + 
    geom_point(col="red") + 
    scale_x_date(date_minor_breaks = "1 month",date_labels = "%B") + 
    geom_bar(data = res, aes(x= month, y=x),stat = "identity", position = 'identity',width=0.5) 

Answer 2

기본적으로 월별로 집계하려고합니다. 그러나 이것은 당신에게 시간 계열을 제공하지 않습니다. 그것은 당신에게 주문한 요인을 줄 것입니다. 그 방법을 그릴거야. 먼저 dplyr과 lubridate을 사용하여 월별로 summarise입니다. 그런 다음 x 축에 대해 월 요소를 숫자로 변환하지만 플롯하지 않습니다 (xaxt="n"). 나중에 axis으로 올바른 형식으로 다시 추가합니다.

df1 <- read.table(text="count month 
3  2014-10-01 
4  2014-15-01 
3  2014-13-02 
12 2014-14-02 
12 2014-18-04",header=TRUE,stringsAsFactors=TRUE) 

library(dplyr);library(lubridate) 
DF <- df1%>% 
group_by(month=month(ydm(month), label = TRUE))%>% 
summarise(count=sum(count)) 

plot(as.numeric(DF$month),DF$count, type = "l",xaxt="n",main = "Counts") 
axis(side=1,at=as.numeric(DF$month),labels=DF$month) 

Answer 3

추가 패키지가없는 솔루션, 달의 시작을 도입 (또는 -15와 중간) :

df <- data.frame(count=c(3,4,3,12,12), day=c("2014-10-01", "2014-15-01", "2014-13-02", "2014-14-02", "2014-18-04")) 

df$day<-as.Date(df$day, format="%Y-%d-%m") 
df$month<-as.Date(format(df$day, "%Y-%m-01")) 
df2<-aggregate(count~month, data=df, FUN=sum) 
plot(df2$month, df2$count, typ="o")`