0

As written now this produced a plot with both data sets on two y axes but does not reflect the difference in x range. y2 only has an x range of 1988 to 2014 and y1 has a range from 1969 to 2014. How do I fix this?

df1<-data.frame(Year=c(1969,1975,1983,1988,1994,2003,2011),y1=c(412,700,1625,4521,8180,10563,25712)) df2<-data.frame(Year=c(1988:2014), y2=c(55,141,82,75,364,771,312,191,120,273,330,291,343,321,313,339,264,312,295,429,217,548,535,654,863,1379,1025)) par(mar= c(5,4,4,4)) plot(y1 ~ Year, data = df1, xlim=c(1969,2020), pch = 16, cex = 1.2, xlab = "year", ylab = "") axis(2, ylim = c(0,27000)) mtext("y1", side = 2, line = 2.5) par(new = T) plot(y2 ~ Year, data = df2, pch = 1, cex = 1.2, xlab = "", ylab = "", axes = F, xlim = c(1988, 2014)) mtext("y2", side = 4, line = 2.5) axis(4, ylim = c(0, 1500))

The range for years of df2 should only be form 1988 to 2014 but how its plotted it looks like it for the whole range.

Improve this question
2
  • You can take a look at this. Commented Nov 27, 2015 at 22:28
  • I followed that example but I need that plots df1 and df2 in the same range of x (year) when df2 is on a smaller x range. See code for plot I included above. Commented Nov 27, 2015 at 23:24

1 Answer 1

Reset to default
1

You could use twoord.plot function in plotrix package.

library(plotrix) twoord.plot(df1$Year, df1$y1, df2$Year, df2$y2, xlab="Year", lylim = range(df1$y1) + c(-1000, 1000), rylim = range(df2$y2) + c(-100, 100), type = "o", ylab = "y1", rylab = "y2")

enter image description here

Improve this answer
Sign up to request clarification or add additional context in comments.

Comments

Start asking to get answers

Find the answer to your question by asking.

Ask question

Explore related questions

See similar questions with these tags.