Hello,
Here is the example of the dataset and code I am working with. I have also
attached a photo of the graphs it produces. I am trying to get the x axis
to read the dates as dates not a count of the dates.
getwd()
[1] "C:/Users/Dot/Documents"
> setwd("c:/users/dot/desktop/r")
> list.files()
[1] "DEAL4_2_43531.csv" "DitchR" "karen_question.pptx"
[4] "LPB_PPT_R.csv" "LPB_R.csv" "LPB_R.xlsx"
[7] "R codes.docx" "Seasons_D4.csv" "test.R"
[10] "YearData.csv"
> DEAL4_2_43531<-read.csv("DEAL4_2_43531.csv")
> LPB_PPT_R<-read.csv("LPB_PPT_R.csv")
> LPB_PPT_R<-read.csv("LPB_PPT_R.csv", header=TRUE)
> attach(LPB_PPT_R)
> names(LPB_PPT_R)
[1] "Date" "Rain_cm" "Cum_PPT"
> class(LPB_PPT_R)
[1] "data.frame"
> as.Date(40007, origin = "1900-01-01")
[1] "2009-07-15"
plot.ts(LPB_PPT_R[,2:3], type="l", col="black", xlab="Date")
> head(LPB_PPT_R)
Date Rain_cm Cum_PPT
1 2009-07-15 0.0254 0.03
2 2009-07-16 0.0000 0.03
3 2009-07-17 0.0000 0.03
4 2009-07-18 0.0000 0.03
5 2009-07-19 0.0000 0.03
6 2009-07-20 0.0000 0.03
>
Any help would be greatly appreciated. Thanks!
On Wed, Apr 15, 2015 at 5:02 AM, Jim Lemon <drjimle...@gmail.com> wrote:
> Hi Dot,
> Jeff's guess is probably correct, but perhaps you could describe the
> crazy tick marks and the repeating labels a little more. I suspect
> that if "newdate" was a character variable you wouldn't get a plot at
> all, and if it is a factor, a few of the labels might identify what
> went wrong.
>
> Jim
>
> > On April 14, 2015 5:04:48 PM PDT, Dot Lundberg <dotlundb...@gmail.com>
> > wrote:
> >>New to R. Having trouble with the xaxis in this code. The tick marks
> >>are
> >>crazy and the labels repeat. Any suggestions?
> >>
> >>par(mar=c(5,5,5,5))
> >>
>
> >>plot(LPB_PPT_R$newdate,LPB_PPT_R$Rain_cm,pch=0,type="l",col="black",yaxt="n",ylim=c(0,8),ylab="")
> >>axis(side=2, at=c(0,2,4,6,8))
> >>mtext("Precipitation (cm)", side = 2, line=2.5, at=4)
> >>mtext("Date", side=1, line=2.5)
> >>axis.Date(1, at=seq(min(LPB_PPT_R$newdate),
> >>max(LPB_PPT_R$newdate),las=2,by="1 weeks"),format="%m-%Y")
> >>
> >>par(new=TRUE)
> >>
>
> >>plot(LPB_PPT_R$newdate,LPB_PPT_R$Cum_PPT,pch=1,type="l",col="grey",yaxt="n",ylim=c(0,100),
> >>ylab="")
> >>axis(side=4, at=c(0,50,100))
> >>mtext("Cumulative Precipitation (cm)", side=4, line=2.5, at=50,
> >>col="grey")
> >>
> >> [[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.
