Scott: This may work for you. Just include the statement par.settings <- par.set1 in your wire graph statement par.set1 <-list( axis.line=list(col="transparent"), # Get rid of box around fig? clip=list(panel=FALSE), # disarm lurking panel settings? ) Dr. Seth W. Bigelow Biologist, USDA-FS Pacific Southwest Research Station 1731 Research Park Drive, Davis California sbigelow@fs.fed.us / ph. 530 759 1718 [[alternative HTML version deleted]]