在R中创建pdf时使用粘贴

Question

当我使用pdf函数保存文件时，我想在R中使用paste函数，但我得到此错误:

filename too long in pdf()

我能做什么来克服这个问题?

下面是我的脚本:

for (chromo in 1:22){
read.table(paste("locfile_less_chrloc_file_chr", chromo, ".txt.txt" , sep=""))-> chr
t(chr) -> chr_t
as.matrix(chr_t) -> chr_t_m
length(chr_t_m) -> len
pdf(paste("chr",chromo,".pdf", sep=""))
plot(1:len,chr_t_m, type= "l")
dev.off()
}

所以，我的猜测是pdf函数不允许使用paste函数。对吗?

Answer 1

为什么不将pdf文件名存储在一个额外的对象中?

chr<-"a"
pdfname<-paste0("chr",chr,".pdf")
pdf(file=pdfname)

这可以直接工作:pdf(file=paste0("chr",chr,".pdf"))

要获得更短的文件名，请尝试:pdf(file=paste0("chr",names(chr)[1],".pdf"))

用1代替相应的列号