Why not store the pdf filename in an extra object?
chr<-"a"
pdfname<-paste0("chr",chr,".pdf")
pdf(file=pdfname)
This works directly by the way:
pdf(file=paste0("chr",chr,".pdf"))
To get a shorter filename, try:
pdf(file=paste0("chr",names(chr)[1],".pdf"))
Substitute 1 for the appropriate column number.