That's not too hard: x11(width=7,height=5) par(cex.axis=.8) fin_month<-month fin_month[fin_month>6]<-fin_month[fin_month>6]-12 fin_month<-fin_month+6 plot(fin_month~year,axes=FALSE,type="l", ylab="Month", xlab="Year", main="Month of occurrence in year") axis(1,at=seq(1981,2014,3)) fin_months<-month.abb[c(7:12,1:6)] axis(2,at=1:12,labels=month.abb[c(7:12,1:6)]) library(plotrix) boxed.labels(year,fin_month,month.abb[month],border=NA,cex=0.7)
Jim On Thu, Nov 7, 2019 at 3:35 PM ani jaya <gaaa...@gmail.com> wrote: > > Dear Jim, > > Thank you very much for nice suggestion and figure there. But what I need is > the y axis start from let say 7 (July) and end at 6 (June). > In those sense, I can said clearly that the occurrence, minima in this case, > is fall during winter season, because Jan and Dec close to each other. > Actually everything is good, but I want to 'kill' my curiosity. > > year<-c(1981:2015) > month<-c(3, 1, 12, 11, 2, 1, 12, 1, 2, 1, 12, 3, 2, 12, 2, 7, 2, 6, 2, 1, 1, > 12, 3, 12, 3, 12, 2, 2, 9, 2, 1, 4, 12, 3, 4) > plot(month~year,xaxt="n", type="b", ylab="Month", xlab="Year") > axis(1, at=1981:2015,cex.axis=.8) > > Best, > Ani > > > On Thu, Nov 7, 2019 at 12:15 PM Jim Lemon <drjimle...@gmail.com> wrote: >> >> Hi Ani, >> There are a number of ways to modify this sort of plot. Here is one: >> >> x11(width=7,height=5) >> par(cex.axis=.8) >> plot(month~year,xaxt="n", type="l", ylab="Month", xlab="Year", >> main="Month of occurrence in year") >> axis(1,at=seq(1981,2014,3)) >> library(plotrix) >> boxed.labels(year,month,month.abb[month],border=NA,cex=0.7) >> >> Jim >> >> On Thu, Nov 7, 2019 at 1:24 PM ani jaya <gaaa...@gmail.com> wrote: >> > >> > Dear R-Help, >> > >> > I have 35 data that is month when the annual minima happened. So I want to >> > plot those data but the order of y axis is not from 1 to 12, but let say >> > start from 9,10,11,12,1,..8. The reason to do this is when 12 (Dec) meet 1 >> > (Jan) in the following year the graph is not quite good (for me). >> > >> > >> > year<-c(1981:2015) >> > month<-c(3, 1, 12, 11, 2, 1, 12, 1, 2, 1, 12, 3, 2, 12, 2, 7, 2, 6, 2, 1, >> > 1, 12, 3, 12, 3, 12, 2, 2, 9, 2, 1, 4, 12, 3, 4) >> > plot(month~year,xaxt="n", type="b", ylab="Month", xlab="Year") >> > axis(1, at=1986:2015,cex.axis=.8) >> > >> > >> > Any lead or comment is appreciate. >> > >> > Best, Ani >> > >> > [[alternative HTML version deleted]] >> > >> > ______________________________________________ >> > R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see >> > https://stat.ethz.ch/mailman/listinfo/r-help >> > PLEASE do read the posting guide >> > http://www.R-project.org/posting-guide.html >> > and provide commented, minimal, self-contained, reproducible code. ______________________________________________ R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.
