Thanks so much!
Here is my code:
# Poster figure 1
stationmean=c(19.4833,10.8000)
fieldmean=c(14.6852, 15.5981)
plot(c(0,1),fieldmean,xaxt='n',type="b",pch=20,col="green3",
main="Foxtail Seeds Remaining vs.Field Type", ylab="Mean Number
Foxtail
Seeds Remaining",
xlab="Field Type",ylim=c(10,20),xlim=c(-.25,1.25))
axis(1,at=c(0,1),labels=c("Cover Crop","Wheat Stubble"))
# Poster figure 2
stationmean=c(19.4833,10.8000)
fieldmean=c(14.6852, 15.5981)
plot(c(0,1),stationmean,xaxt='n',type="b",pch=20,col="green3",
main="Foxtail Seeds Remaining vs. Station Type", ylab="Mean Number
Foxtail
Seeds Remaining",
xlab="Station Type",ylim=c(10,20),xlim=c(-.25,1.25))
axis(1,at=c(0,1),labels=c("Invertebrate Only","Open Access"))
# Poster figure 3
meantime=22.1
meancumrainfall=.4837
meanavelowt=35.4920071
meanavehight=55.3242738
meanvegcover=81.1729167
pred.veg = 33.3160 + -.2439*meantime - .8409*(.5) + 8.6833*(.5) +
.5427*(meancumrainfall)-.3087*(meanavehight) +
.01087*(seq(0,164.5,by=5))
pred.veg
plot(seq(0,164.5,by=5),pred.veg,type='l',col='blue',lwd=2,
main='Foxtail Seeds Remaining vs. Vegetative Cover Biomass',
xlab='Vegetative Cover Biomass (g / 0.25 m^2',
ylab='Mean Number Foxtail Seeds Remaining',ylim=c(10,22))
# Poster figure 4
meantime=22.1
meancumrainfall=.4837
meanavelowt=35.4920071
meanavehight=55.3242738
meanvegcover=81.1729167
pred.rain = 33.3160 + -0.2439*meantime - .8409*(.5) + 8.6833*(.5) -
1.0571*(seq(0,1.569,by=.1))-.3087*(meanavehight) +
.01087*(meanvegcover)
pred.rain
plot(seq(0,1.569,by=.1),pred.rain,type='l',col='blue',lwd=2,
main='Foxtail Seeds Remaining vs. Cumulative Rainfall',
xlab='Cumulative
Rainfall (in)',
ylab='Mean Number Foxtail Seeds Remaining',ylim=c(10,22))
# Poster figure 5
meantime=22.1
meancumrainfall=.4837
meanavelowt=35.4920071
meanavehight=55.3242738
meanvegcover=81.1729167
pred.high = 33.3160 + -.2439*meantime - .8409*(.5) + 8.6833*(.5) +
1.0571*(meancumrainfall)-.3087*(seq(37.733,74.38228571,by=1)) +
.01087*(meanvegcover)
pred.high
plot(seq(37.733,74.38228571,by=1),pred.high,type='l',col='blue',lwd=2,
main='Foxtail Seeds Remaining vs. Average Daily High Temp',
xlab='Average
Daily High Temperature (degrees F)',
ylab='Mean Number Foxtail Seeds Remaining',ylim=c(10,22))
# Poster figure 6
meantime=25.3333333
meancumrainfall=.4015
meanavelowt=37.9325
meanavehight=62.2579683
meanvegcover=77.6145833
meannumtotseedwt=.8708333
pred.seed = 24.4096 + -.1930*meantime - 3.5233*(.5) + 11.8611*(.5) -
2.7335*(meancumrainfall)-.1510*(meanavehight) +
.01286*(meanvegcover) - 3.2848*(seq(.2,1.6,by=.05))
pred.seed
plot(seq(.2,1.6,by=.05),pred.seed,type='l',col='blue',lwd=2,
main='Foxtail Seeds Remaining vs. Ambient Seed Load', xlab='Ambient
Seed
Load (g / 0.25 m^2',
ylab='Mean Number Foxtail Seeds Remaining',ylim=c(8,16))
--
View this message in context:
http://r.789695.n4.nabble.com/Easy-help-with-plots-font-size-tp3259270p3259270.html
Sent from the R help mailing list archive at Nabble.com.
______________________________________________
R-help@r-project.org mailing list
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.