ggplot2中的date_minor_breaks [英] date_minor_breaks in ggplot2

问题描述

我是 ggplot2 的初学者。我无法使用 date_minor_breaks 在x轴上显示季度滴答。

以下是我的代码：

  x <-c（seq（ （2010Q1，2010Q2，2010Q3，2010Q4，2011Q1，2011Q2，2011Q3，2011Q4，2012Q1）。 2012Q2，2012Q3，2012Q4）
 z <-data.frame（type = x，time = time）
z $ time = as.yearqtr（z $ time）
z $ time = as.Date（z $ time）
 ggplot（data = z，aes（x = time，y = type））+ 
 geom_point（）+ 
 scale_x_date（date_labels = ％y，date_minor_breaks =3 months，name =Year）+ 
 theme_tufte（）+ 
主题（legend.position =none）
  

我在SO p>

下面是一个带有从Excel生成的刻度线的示例图。请忽略值，因为我创建这个Excel图表的目的是为了展示我正在寻找的东西 - 即。 季度报价。非常感谢您的帮助。

解决方案

您可能需要每三个月进行一次重大的休息，然后用空白填充您的标签以给出主要（标记）和次要（未标记）蜱的错觉。另请参见

I am a beginner in ggplot2. I am unable to use date_minor_breaks to show quarterly "ticks" on x-axis.

Here's my code:

x<-c(seq(1:12))
time<-c("2010Q1","2010Q2","2010Q3","2010Q4","2011Q1","2011Q2", "2011Q3","2011Q4","2012Q1","2012Q2","2012Q3","2012Q4")
z<-data.frame(type = x,time = time)
z$time = as.yearqtr(z$time)
z$time = as.Date(z$time)
ggplot(data = z, aes(x=time,y=type)) +
geom_point() + 
scale_x_date(date_labels = "%Y",date_minor_breaks = "3 months",name = "Year") +
theme_tufte() +
theme(legend.position = "none")

I researched this topic on SO Formatting dates with scale_x_date in ggplot2 and on https://github.com/hadley/ggplot2/issues/542, and found that there were some issues reported on this topic. However, I didn't quite follow the conversation about changes to ggplot2 because it's been only 6 days since I started using ggplot2.

Here's the graph I got (it doesn't have any ticks)...

Here's a sample graph with "tick marks" generated from Excel. Please ignore values because my point of creating this Excel chart is to demonstrate what I am looking for--i.e. "quarterly ticks". I'd appreciate your help.

解决方案

You may have to make major breaks every three months and then pad your labels with blanks to give the illusion of major (labeled) and minor (unlabeled) ticks. See this answer for another example.

First manually make the breaks for the tick marks at every quarter.

breaks_qtr = seq(from = min(z$time), to = max(z$time), by = "3 months")

Then make the year labels and pad these labels with three blanks after each number.

labels_year = format(seq(from = min(z$time), to = max(z$time), by = "1 year"), "%Y")
labs = c(sapply(labels_year, function(x) {
    c(x, rep("", 3))
    }))

Now use the breaks and the labels with the labels and breaks arguments in scale_x_date. Notice that I'm not using date_labels and date_breaks for this.

ggplot(data = z, aes(x=time,y=type)) +
    geom_point() + 
    scale_x_date(labels = labs, breaks = breaks_qtr, name = "Year") +
    theme_tufte() +
    theme(legend.position = "none")

这篇关于ggplot2中的date_minor_breaks的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！