Re: Adding Year-Month-Day to X axis

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
8 messages Options
Reply | Threaded
Open this post in threaded view
|

Re: Adding Year-Month-Day to X axis

Gregory Coats
Thanks. Regarding
axis(1,at=x_yyyymmdd,labels=format(x_yyyymmdd,"%Y-%m-%d"))

How do I get the text for YYYY-MM-DD to be drawn vertically, instead of horizontally?
Greg

> On May 6, 2018, at 11:54 PM, Jim Lemon <[hidden email]> wrote:
>
> axis(1,at=x_yyyymmdd,labels=format(x_yyyymmdd,"%Y-%m-%d"))


        [[alternative HTML version deleted]]

______________________________________________
[hidden email] 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.
Reply | Threaded
Open this post in threaded view
|

Re: Adding Year-Month-Day to X axis

Gregory Coats
Since the horizontal axis side=1 is year-month-day, how do I issue an abline command to draw dashed vertical lines, as a background grid, within the graph’s border? Similar to the abline command I call below, in blue, for dashed horizontal lines, as a background grid.
Greg

y_duration <- c (301.59050, 387.35700, 365.64366, 317.26150, 321.71883, 342.44950, 318.95350, 322.33233, 330.60333, 428.99516, 297.82066, 258.23166, 282.01816)
x_yyyymmdd <-as.Date(c ("2018-04-25", "2018-04-26", "2018-04-27", "2018-04-28", "2018-04-29", "2018-04-30", "2018-05-01", "2018-05-02", "2018-05-03", "2018-05-04", "2018-05-05", "2018-05-06", "2018-05-07"), format="%Y-%m-%d")
par     (mar=c(6,4,4,2))
plot    (x_yyyymmdd, y_duration, type="l", xaxt="n", yaxt="n", ylim=range(240,480), xlab="", ylab="", col="blue")
abline  (h=c(240,270,300,330,360,390,420,450,480,510,540), lty=3, lwd=1.0, col="grey50")
axis    (side=2, at=240, cex.axis=1.0, label="4:00")
axis    (side=2, at=300, cex.axis=1.0, label="5:00")
axis    (side=2, at=360, cex.axis=1.0, label="6:00")
axis    (side=2, at=420, cex.axis=1.0, label="7:00")
axis    (side=2, at=480, cex.axis=1.0, label="8:00")
axis    (side=1, at=x_yyyymmdd, labels=format(x_yyyymmdd, "%Y-%m-%d"), las=2)


        [[alternative HTML version deleted]]

______________________________________________
[hidden email] 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.
Reply | Threaded
Open this post in threaded view
|

Re: Adding Year-Month-Day to X axis

Eric Berger
abline  (v=x_yyyymmdd, lty=3, lwd=1.0, col="blue")


On Tue, May 8, 2018 at 5:23 PM, Gregory Coats <[hidden email]> wrote:

> Since the horizontal axis side=1 is year-month-day, how do I issue an
> abline command to draw dashed vertical lines, as a background grid, within
> the graph’s border? Similar to the abline command I call below, in blue,
> for dashed horizontal lines, as a background grid.
> Greg
>
> y_duration <- c (301.59050, 387.35700, 365.64366, 317.26150, 321.71883,
> 342.44950, 318.95350, 322.33233, 330.60333, 428.99516, 297.82066,
> 258.23166, 282.01816)
> x_yyyymmdd <-as.Date(c ("2018-04-25", "2018-04-26", "2018-04-27",
> "2018-04-28", "2018-04-29", "2018-04-30", "2018-05-01", "2018-05-02",
> "2018-05-03", "2018-05-04", "2018-05-05", "2018-05-06", "2018-05-07"),
> format="%Y-%m-%d")
> par     (mar=c(6,4,4,2))
> plot    (x_yyyymmdd, y_duration, type="l", xaxt="n", yaxt="n",
> ylim=range(240,480), xlab="", ylab="", col="blue")
> abline  (h=c(240,270,300,330,360,390,420,450,480,510,540), lty=3,
> lwd=1.0, col="grey50")
> axis    (side=2, at=240, cex.axis=1.0, label="4:00")
> axis    (side=2, at=300, cex.axis=1.0, label="5:00")
> axis    (side=2, at=360, cex.axis=1.0, label="6:00")
> axis    (side=2, at=420, cex.axis=1.0, label="7:00")
> axis    (side=2, at=480, cex.axis=1.0, label="8:00")
> axis    (side=1, at=x_yyyymmdd, labels=format(x_yyyymmdd, "%Y-%m-%d"),
> las=2)
>
>
>         [[alternative HTML version deleted]]
>
> ______________________________________________
> [hidden email] 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.
>

        [[alternative HTML version deleted]]

______________________________________________
[hidden email] 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.
Reply | Threaded
Open this post in threaded view
|

Re: Adding Year-Month-Day to X axis

Gregory Coats
I do not see any difference between the x versus y plot drawn in blue, and the y only plot drawn in red. Is the correct?
Greg

y_duration <- c (301.59050, 387.35700, 365.64366, 317.26150, 321.71883, 342.44950, 318.95350, 322.33233, 330.60333, 428.99516, 297.82066, 258.23166, 282.01816, 280.00000)
x_yyyymmdd <-as.Date(c ("2018-04-25", "2018-04-26", "2018-04-27", "2018-04-28", "2018-04-29", "2018-04-30", "2018-05-01", "2018-05-02", "2018-05-03", "2018-05-04", "2018-05-05", "2018-05-06", "2018-05-07", "2018-05-08)"), format="%Y-%m-%d")
plot (x_yyyymmdd, y_duration, type="l", xaxt="n", yaxt="n", ylim=range(240,480), xlab="", ylab="", col="blue")
plot (            y_duration, type="l", xaxt="n", yaxt="n", ylim=range(240,480), xlab="", ylab="", col="red" )


        [[alternative HTML version deleted]]

______________________________________________
[hidden email] 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.
Reply | Threaded
Open this post in threaded view
|

Re: Adding Year-Month-Day to X axis

Jim Lemon-4
Hi Greg,
This is because both plots have equally spaced x values. To see the
difference, try this:

plot (x_yyyymmdd, y_duration, type="l", xaxt="n", yaxt="n",
ylim=range(240,480), xlab="", ylab="", col="blue")
axis(1)
plot (            y_duration, type="l", xaxt="n", yaxt="n",
ylim=range(240,480), xlab="", ylab="", col="red" )
axis(1)

Jim

On Wed, May 9, 2018 at 9:00 AM, Gregory Coats <[hidden email]> wrote:

> I do not see any difference between the x versus y plot drawn in blue, and
> the y only plot drawn in red. Is the correct?
> Greg
>
> y_duration <- c (301.59050, 387.35700, 365.64366, 317.26150, 321.71883,
> 342.44950, 318.95350, 322.33233, 330.60333, 428.99516, 297.82066, 258.23166,
> 282.01816, 280.00000)
> x_yyyymmdd <-as.Date(c ("2018-04-25", "2018-04-26", "2018-04-27",
> "2018-04-28", "2018-04-29", "2018-04-30", "2018-05-01", "2018-05-02",
> "2018-05-03", "2018-05-04", "2018-05-05", "2018-05-06", "2018-05-07",
> "2018-05-08)"), format="%Y-%m-%d")
> plot (x_yyyymmdd, y_duration, type="l", xaxt="n", yaxt="n",
> ylim=range(240,480), xlab="", ylab="", col="blue")
> plot (            y_duration, type="l", xaxt="n", yaxt="n",
> ylim=range(240,480), xlab="", ylab="", col="red" )
>

______________________________________________
[hidden email] 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.
Reply | Threaded
Open this post in threaded view
|

Re: Adding Year-Month-Day to X axis

Jayaganesh
In reply to this post by Gregory Coats
Actually I would like to get an output on the below snapshot. I have tried various method like points, labels.. but nothing works. Attached is the data for your reference.



On May 09, 2018, at 09:59 AM, Gregory Coats <[hidden email]> wrote:

I do not see any difference between the x versus y plot drawn in blue, and the y only plot drawn in red. Is the correct?
Greg

y_duration <- c (301.59050, 387.35700, 365.64366, 317.26150, 321.71883, 342.44950, 318.95350, 322.33233, 330.60333, 428.99516, 297.82066, 258.23166, 282.01816, 280.00000)
x_yyyymmdd <-as.Date(c ("2018-04-25", "2018-04-26", "2018-04-27", "2018-04-28", "2018-04-29", "2018-04-30", "2018-05-01", "2018-05-02", "2018-05-03", "2018-05-04", "2018-05-05", "2018-05-06", "2018-05-07", "2018-05-08)"), format="%Y-%m-%d")
plot (x_yyyymmdd, y_duration, type="l", xaxt="n", yaxt="n", ylim=range(240,480), xlab="", ylab="", col="blue")
plot ( y_duration, type="l", xaxt="n", yaxt="n", ylim=range(240,480), xlab="", ylab="", col="red" )


       [[alternative HTML version deleted]]

______________________________________________
[hidden email] 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.
______________________________________________
[hidden email] 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.
Reply | Threaded
Open this post in threaded view
|

Re: Adding Year-Month-Day to X axis

Jayaganesh
In reply to this post by Gregory Coats
Helo Greg - I got it with help of your code and I would like to add the value into the boxplot chart. How to do that.

y_duration <- c (16.438, 15.321, 12.700, 12.397,
10.795, 9.928, 10.386)




On May 09, 2018, at 10:06 AM, Jayaganesh Anbuganapathy <[hidden email]> wrote:

Actually I would like to get an output on the below snapshot. I have tried various method like points, labels.. but nothing works. Attached is the data for your reference.



On May 09, 2018, at 09:59 AM, Gregory Coats <[hidden email]> wrote:

I do not see any difference between the x versus y plot drawn in blue, and the y only plot drawn in red. Is the correct?
Greg

y_duration <- c (301.59050, 387.35700, 365.64366, 317.26150, 321.71883, 342.44950, 318.95350, 322.33233, 330.60333, 428.99516, 297.82066, 258.23166, 282.01816, 280.00000)
x_yyyymmdd <-as.Date(c ("2018-04-25", "2018-04-26", "2018-04-27", "2018-04-28", "2018-04-29", "2018-04-30", "2018-05-01", "2018-05-02", "2018-05-03", "2018-05-04", "2018-05-05", "2018-05-06", "2018-05-07", "2018-05-08)"), format="%Y-%m-%d")
plot (x_yyyymmdd, y_duration, type="l", xaxt="n", yaxt="n", ylim=range(240,480), xlab="", ylab="", col="blue")
plot ( y_duration, type="l", xaxt="n", yaxt="n", ylim=range(240,480), xlab="", ylab="", col="red" )


       [[alternative HTML version deleted]]

______________________________________________
[hidden email] 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.
______________________________________________
[hidden email] 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.
Reply | Threaded
Open this post in threaded view
|

Re: Adding Year-Month-Day to X axis

Jim Lemon-4
Hi Jayaganesh,
I'm not sure this will help, but here is a simple example using box.heresy:

y_duration <- c (16.438, 15.321, 12.700, 12.397, 10.795, 9.928, 10.386)
library(plotrix)
box.heresy(1,mean(y_duration),uinner=std.error(y_duration)
 ,ulim=sd(y_duration),intervals=TRUE)
#add the median as a circle symbol
points(1,median(y_duration))

Jim


On Wed, May 9, 2018 at 3:25 PM, Jayaganesh Anbuganapathy
<[hidden email]> wrote:

> Helo Greg - I got it with help of your code and I would like to add the
> value into the boxplot chart. How to do that.
>
> y_duration <- c (16.438, 15.321, 12.700, 12.397, 10.795, 9.928, 10.386)
>
>
>
>
> On May 09, 2018, at 10:06 AM, Jayaganesh Anbuganapathy <[hidden email]>
> wrote:
>
> Actually I would like to get an output on the below snapshot. I have tried
> various method like points, labels.. but nothing works. Attached is the data
> for your reference.
>
>
>
> On May 09, 2018, at 09:59 AM, Gregory Coats <[hidden email]> wrote:
>
> I do not see any difference between the x versus y plot drawn in blue, and
> the y only plot drawn in red. Is the correct?
> Greg
>
> y_duration <- c (301.59050, 387.35700, 365.64366, 317.26150, 321.71883,
> 342.44950, 318.95350, 322.33233, 330.60333, 428.99516, 297.82066, 258.23166,
> 282.01816, 280.00000)
> x_yyyymmdd <-as.Date(c ("2018-04-25", "2018-04-26", "2018-04-27",
> "2018-04-28", "2018-04-29", "2018-04-30", "2018-05-01", "2018-05-02",
> "2018-05-03", "2018-05-04", "2018-05-05", "2018-05-06", "2018-05-07",
> "2018-05-08)"), format="%Y-%m-%d")
> plot (x_yyyymmdd, y_duration, type="l", xaxt="n", yaxt="n",
> ylim=range(240,480), xlab="", ylab="", col="blue")
> plot ( y_duration, type="l", xaxt="n", yaxt="n", ylim=range(240,480),
> xlab="", ylab="", col="red" )
>
>
>        [[alternative HTML version deleted]]
>
> ______________________________________________
> [hidden email] 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.
> ______________________________________________
> [hidden email] 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.

______________________________________________
[hidden email] 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.