在几个月内用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

我正在尝试在R中生成一个图，该图可以让我在y轴上进行计数。 我想在x轴上有月份，但是我不知道如何将所有一月份和二月份一起分组等等。

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

有人知道该怎么做吗？

Answer 1

基本上，您想按月汇总。 但是，这不会给您一个时间序列。 它将为您提供有序的因素。 这是绘制该图的方法。 我首先按月summarise使用dplyr和lubridate 。 然后，对于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 2

或基本的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 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")`