blocks|key|4510597|text|看起来就是这样的.我刚刚手动创建了标签..。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|4510598|library("ggplot2")
library("scales")
set.seed(12345)
Date+<-+seq(as.Date("2010/1/1"),+as.Date("2014/1/1"),+"week")
Y+<-+rnorm(n=length(Date),+mean=100,+sd=1)
df+<-+data.frame(Date,+Y)

df$Year+<-+format(df$Date,+"%25Y")
df$Month+<-+format(df$Date,+"%25b")
df$Day+<-+format(df$Date,+"%25d")

df$MonthDay+<-+format(df$Date,+"%25d-%25b")
df$MonthDay2+<-+df$MonthDay
#+only+show+every+third+label...+otherwise+it's+too+crowded
df$MonthDay2[as.numeric(row.names(df))%25%253!=0]+<-+""
labels+<-+df$MonthDay2

p+<-+ggplot(data=df,+mapping=aes(x=MonthDay,+y=Y,+shape=Year,+color=Year))+%2B+geom_point()+%2Bgeom_line(aes(group+=+1))
p+<-+p+%2B+facet_grid(facets+=+Year+~+.,+margins+=+FALSE)+%2B+theme_bw()
p+%2B+scale_y_continuous()+%2B+scale_x_discrete(labels=labels)+%2B+
++theme(axis.text.x+=+element_text(angle+=+90,+vjust+=+0.5,+size+=+8))|code-block|syntax|javascript|4510599|​|4510600|📷|atomic|offset|length|4510601|4510602|entityMap|0|IMAGE|mutability|IMMUTABLE|imageUrl|https://ask.qcloudimg.com/http-save/yehe-900000/25ae6bea20ef6c5052b5c6928877bcac.png|imageAlt^0|0|0|0|0|1|0|0|0^^$0|@$1|2|3|4|5|6|7|X|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|Y|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|Z|8|@]|9|@]|A|$]]|$1|I|3|J|5|K|7|10|8|@]|9|@$L|11|M|12|1|13]]|A|$]]|$1|N|3|H|5|6|7|14|8|@]|9|@]|A|$]]|$1|O|3|-4|5|6|7|15|8|@]|9|@]|A|$]]]|P|$Q|$5|R|S|T|A|$U|V|W|-4]]]]

This seems to do it... I just manually created the labels...

<pre><code>library("ggplot2")
library("scales")
set.seed(12345)
Date &lt;- seq(as.Date("2010/1/1"), as.Date("2014/1/1"), "week")
Y &lt;- rnorm(n=length(Date), mean=100, sd=1)
df &lt;- data.frame(Date, Y)

df$Year &lt;- format(df$Date, "%Y")
df$Month &lt;- format(df$Date, "%b")
df$Day &lt;- format(df$Date, "%d")

df$MonthDay &lt;- format(df$Date, "%d-%b")
df$MonthDay2 &lt;- df$MonthDay
# only show every third label... otherwise it's too crowded
df$MonthDay2[as.numeric(row.names(df))%%3!=0] &lt;- ""
labels &lt;- df$MonthDay2

p &lt;- ggplot(data=df, mapping=aes(x=MonthDay, y=Y, shape=Year, color=Year)) + geom_point() +geom_line(aes(group = 1))
p &lt;- p + facet_grid(facets = Year ~ ., margins = FALSE) + theme_bw()
p + scale_y_continuous() + scale_x_discrete(labels=labels) + 
 theme(axis.text.x = element_text(angle = 90, vjust = 0.5, size = 8))
</code></pre>

<img src="https://i.stack.imgur.com/qzOkQ.png" alt="plot">

blocks|key|3112|text|坚持你的代码@MYaseen208来创建数据。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3113|绘制它时，使用x+=+Date并使用下面的代码|offset|length|style|CODE|3114|p+<-+ggplot(data+=+df,+aes(x+=+Date,+y+=+Y,+shape+=+Year,+color+=+Year))+%2B
++geom_point()+%2B+geom_line(aes(group+=+1))
++#adding+facet+and+using+facet_wrap+with+free+x+scales
++p+<-+p+%2B+facet_wrap(~Year,ncol=1,+scales+=+"free_x")+%2B+theme_bw()%2B
scale_y_continuous()+%2B+
scale_x_date(labels+=+date_format("%25d-%25b"),+breaks+=+date_breaks("2+weeks"))+%2B
+theme(axis.text.x+=+element_text(angle+=+90,+vjust+=+0.5,+size+=+8))|code-block|syntax|javascript|3115|我使用facet_wrap获取免费的x_axis+scales。当你划分你的数据时，我们不能得到每一年的相同的日-月组合。|3116|​|3117|📷|atomic|3118|3119|entityMap|0|IMAGE|mutability|IMMUTABLE|imageUrl|https://ask.qcloudimg.com/http-save/yehe-900000/abfcefe0082aff85999e355727a29e87.png|imageAlt^0|0|7|8|0|0|0|0|0|1|0|0|0^^$0|@$1|2|3|4|5|6|7|13|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|14|8|@$D|15|E|16|F|G]]|9|@]|A|$]]|$1|H|3|I|5|J|7|17|8|@]|9|@]|A|$K|L]]|$1|M|3|N|5|6|7|18|8|@]|9|@]|A|$]]|$1|O|3|P|5|6|7|19|8|@]|9|@]|A|$]]|$1|Q|3|R|5|S|7|1A|8|@]|9|@$D|1B|E|1C|1|1D]]|A|$]]|$1|T|3|P|5|6|7|1E|8|@]|9|@]|A|$]]|$1|U|3|-4|5|6|7|1F|8|@]|9|@]|A|$]]]|V|$W|$5|X|Y|Z|A|$10|11|12|-4]]]]

Sticking with your code @MYaseen208 for creating data.

When you plot it use <code>x = Date</code> and use the below

<pre><code>p &lt;- ggplot(data = df, aes(x = Date, y = Y, shape = Year, color = Year)) +
 geom_point() + geom_line(aes(group = 1))
 #adding facet and using facet_wrap with free x scales
 p &lt;- p + facet_wrap(~Year,ncol=1, scales = "free_x") + theme_bw()+
scale_y_continuous() + 
scale_x_date(labels = date_format("%d-%b"), breaks = date_breaks("2 weeks")) +
 theme(axis.text.x = element_text(angle = 90, vjust = 0.5, size = 8))
</code></pre>

I used facet_wrap, to get free x_axis scales. When you divide you data up, we can't get the same day-month combination for each year.

<img src="https://i.stack.imgur.com/FkMwj.png" alt="enter image description here">

blocks|key|4510782|text|你已经很接近了。您希望x轴是一年中您所处位置的度量，但您将其作为字符向量，因此会对每个点进行标记。如果你用一个连续变量来表示，你会得到更好的结果。一个连续变量是一年中的哪一天。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|4510783|df$DayOfYear+<-+as.numeric(format(df$Date,+"%25j"))
ggplot(data+=+df,
+++++++mapping+=+aes(x+=+DayOfYear,+y+=+Y,+shape+=+Year,+colour+=+Year))+%2B
++geom_point()+%2B
++geom_line()+%2B
++facet_grid(facets+=+Year+~+.)+%2B
++theme_bw()|code-block|syntax|javascript|4510784|​|4510785|📷|atomic|offset|length|4510786|4510787|可以使用适当的标签函数将轴设置为更像日期的格式，但是仍然没有以一种非常有日期意识的方式找到断点。(最重要的是，还有一个NA问题。)|style|CODE|4510788|ggplot(data+=+df,
+++++++mapping+=+aes(x+=+DayOfYear,+y+=+Y,+shape+=+Year,+colour+=+Year))+%2B
++geom_point()+%2B
++geom_line()+%2B
++facet_grid(facets+=+Year+~+.)+%2B
++scale_x_continuous(labels+=+function(x)+format(as.Date(as.character(x),+"%25j"),+"%25d-%25b"))+%2B
++theme_bw()|4510789|4510790|4510791|4510792|要获得好的日期间隔的好处，可以使用不同的变量。其中一个与原始数据具有相同的日期，但只有一年。在这种情况下，是2000年，因为它是一个闰年。这方面的问题主要与闰日有关，但如果您不关心这一点(非闰年的3月1日将与闰年的2月29日对齐，依此类推)您可以使用：|4510793|df$CommonDate+<-+as.Date(paste0("2000-",format(df$Date,+"%25j")),+"%25Y-%25j")
ggplot(data+=+df,
+++++++mapping+=+aes(x+=+CommonDate,+y+=+Y,+shape+=+Year,+colour+=+Year))+%2B
++geom_point()+%2B
++geom_line()+%2B
++facet_grid(facets+=+Year+~+.)+%2B
++scale_x_date(labels+=+function(x)+format(x,+"%25d-%25b"))+%2B
++theme_bw()|4510794|4510795|4510796|4510797|entityMap|0|IMAGE|mutability|IMMUTABLE|imageUrl|https://ask.qcloudimg.com/http-save/yehe-900000/b09154716b0b4617b2c4a566c8b59eb3.png|imageAlt|1|https://ask.qcloudimg.com/http-save/yehe-900000/00fcf42a98a74a7d268e2735565c9ae3.png|2|https://ask.qcloudimg.com/http-save/yehe-900000/87d1d913987895e416ab9d27e257c550.png^0|0|0|0|0|1|0|0|0|1N|2|0|0|0|0|1|1|0|0|0|0|0|0|1|2|0|0^^$0|@$1|2|3|4|5|6|7|1H|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|1I|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|1J|8|@]|9|@]|A|$]]|$1|I|3|J|5|K|7|1K|8|@]|9|@$L|1L|M|1M|1|1N]]|A|$]]|$1|N|3|H|5|6|7|1O|8|@]|9|@]|A|$]]|$1|O|3|P|5|6|7|1P|8|@$L|1Q|M|1R|Q|R]]|9|@]|A|$]]|$1|S|3|T|5|D|7|1S|8|@]|9|@]|A|$E|F]]|$1|U|3|H|5|6|7|1T|8|@]|9|@]|A|$]]|$1|V|3|J|5|K|7|1U|8|@]|9|@$L|1V|M|1W|1|1X]]|A|$]]|$1|W|3|H|5|6|7|1Y|8|@]|9|@]|A|$]]|$1|X|3|Y|5|6|7|1Z|8|@]|9|@]|A|$]]|$1|Z|3|10|5|D|7|20|8|@]|9|@]|A|$E|F]]|$1|11|3|H|5|6|7|21|8|@]|9|@]|A|$]]|$1|12|3|J|5|K|7|22|8|@]|9|@$L|23|M|24|1|25]]|A|$]]|$1|13|3|H|5|6|7|26|8|@]|9|@]|A|$]]|$1|14|3|-4|5|6|7|27|8|@]|9|@]|A|$]]]|15|$16|$5|17|18|19|A|$1A|1B|1C|-4]]|1D|$5|17|18|19|A|$1A|1E|1C|-4]]|1F|$5|17|18|19|A|$1A|1G|1C|-4]]]]

You are very close. You want the x-axis to be a measure of where in the year you are, but you have it as a character vector and so are getting every single point labelled. If you instead make a continuous variable represent this, you could have better results. One continuous variable would be the day of the year.

<pre><code>df$DayOfYear &lt;- as.numeric(format(df$Date, "%j"))
ggplot(data = df,
 mapping = aes(x = DayOfYear, y = Y, shape = Year, colour = Year)) +
 geom_point() +
 geom_line() +
 facet_grid(facets = Year ~ .) +
 theme_bw()
</code></pre>

<img src="https://i.stack.imgur.com/9vTMc.png" alt="enter image description here">

The axis could be formatted more date-like with an appropriate label function, but the breaks are still not being found in a very date-aware way. (And on top of that, there is an <code>NA</code> problem as well.)

<pre><code>ggplot(data = df,
 mapping = aes(x = DayOfYear, y = Y, shape = Year, colour = Year)) +
 geom_point() +
 geom_line() +
 facet_grid(facets = Year ~ .) +
 scale_x_continuous(labels = function(x) format(as.Date(as.character(x), "%j"), "%d-%b")) +
 theme_bw()
</code></pre>

<img src="https://i.stack.imgur.com/vLRDw.png" alt="enter image description here">

To get the goodness of nice date breaks, a different variable can be used. One that has the same day-of-the-year as the original data, but just one year. In this case, 2000 since it was a leap year. The problems with this have mostly to do with leap days, but if you don't care about that (March 1st of a non-leap year would align with February 29th of a leap year, etc.) you can use:

<pre><code>df$CommonDate &lt;- as.Date(paste0("2000-",format(df$Date, "%j")), "%Y-%j")
ggplot(data = df,
 mapping = aes(x = CommonDate, y = Y, shape = Year, colour = Year)) +
 geom_point() +
 geom_line() +
 facet_grid(facets = Year ~ .) +
 scale_x_date(labels = function(x) format(x, "%d-%b")) +
 theme_bw()
</code></pre>

<img src="https://i.stack.imgur.com/qtQeC.png" alt="enter image description here">

blocks|key|3307|text|对@Brian+Diggs的方法进行了修改，保留了原来的日期和月份(3月1日保留为3月1日，而不是2月29日)，强制将日期转换为字符串，然后替换年份：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3308|library(lubridate)
library(stringr)
df$CommonDate+<-+ymd(paste0("2000-",str_sub(as.character(df$Date),-5)))|code-block|syntax|javascript|3309|然后您可以继续执行以下操作：|3310|ggplot(data+=+df,
+++mapping+=+aes(x+=+CommonDate,+y+=+Y,+shape+=+Year,+colour+=+Year))+%2B
++geom_point()+%2B
++geom_line()+%2B
++facet_grid(facets+=+Year+~+.)+%2B
++scale_x_date(labels+=+function(x)+format(x,+"%25d-%25b"))+%2B
++theme_bw()|3311|entityMap^0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|N|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|O|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|K|3|-4|5|6|7|Q|8|@]|9|@]|A|$]]]|L|$]]

A modification to @Brian Diggs' approach that preserves the original day and month (March 1st is preserved as March 1st rather than Feb 29th) is to coerce the date into a string, then replace the year:

<pre><code>library(lubridate)
library(stringr)
df$CommonDate &lt;- ymd(paste0("2000-",str_sub(as.character(df$Date),-5)))
</code></pre>

You can then proceed with:

<pre><code>ggplot(data = df,
 mapping = aes(x = CommonDate, y = Y, shape = Year, colour = Year)) +
 geom_point() +
 geom_line() +
 facet_grid(facets = Year ~ .) +
 scale_x_date(labels = function(x) format(x, "%d-%b")) +
 theme_bw()
</code></pre>

I want to have both <code>month</code> and <code>day</code> in the x-axis of the time series plot when using <code>facet</code> for years in <code>ggplot2</code>. My MWE is below:

<pre><code>set.seed(12345)
Date &lt;- seq(as.Date("2010/1/1"), as.Date("2014/1/1"), "week")
Y &lt;- rnorm(n=length(Date), mean=100, sd=1)
df &lt;- data.frame(Date, Y)

df$Year &lt;- format(df$Date, "%Y")
df$Month &lt;- format(df$Date, "%b")
df$Day &lt;- format(df$Date, "%d")

df$MonthDay &lt;- format(df$Date, "%d-%b")


p &lt;- ggplot(data=df, mapping=aes(x=MonthDay, y=Y, shape=Year, color=Year)) + geom_point() +geom_line(aes(group = 1))
p &lt;- p + facet_grid(facets = Year ~ ., margins = FALSE) + theme_bw()
print(p)
</code></pre>

<img src="https://i.stack.imgur.com/j6NWR.png" alt="enter image description here"> 

I tried to control the x-axis labels with the following command

<pre><code>p + scale_y_continuous() + scale_x_date(labels = date_format("%d-%b"))
</code></pre>

But it throws the following error message. 

<pre><code>Error: Invalid input: date_trans works with objects of class Date only
</code></pre>

Dates with month and day in time series plot in ggplot2 with facet for years

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋 

腾讯云代码助手

CODING DevOps

Cloud Studio

SDK中心

API中心

命令行工具

当我在ggplot2中多年使用facet时，我希望month和day都在时间序列图的x轴上。我的MWE如下：set.seed(12345)Date <- seq(as.Date("2010/1/1"), as.Date("2014/1/1"), "week")Y <- rnorm(n=length(Date), mea...

问ggplot2中的日期和时间序列图中的月和日，以及年的分面
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问ggplot2中的日期和时间序列图中的月和日，以及年的分面EN