[R] (no subject)

Dot Lundberg dotlundberg at gmail.com
Mon May 4 01:31:59 CEST 2015


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 <drjimlemon at 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 <dotlundberg at 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 at 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.
>


More information about the R-help mailing list