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.