Rscript没有´;不要正确地画线

Rscript没有´;不要正确地画线,r,bash,plot,rscript,R,Bash,Plot,Rscript,我正在尝试从bash运行R-script,以绘制.png图像(MacOSX10.6.8上的R版本3.0.2)。因此,我正在使用命令 R CMD批处理脚本.R 令人惊讶的是,这会生成一个.png文件,其中包括所有内容,但不包括Matline。更具体地说,它绘制一条单独的黑色matline,表示八条已定义(彩色)matline中的第一条。如果我从bash命令行调用R,并复制/粘贴R脚本中的代码,所有Matline都会正确打印 R脚本包含以下内容: #!/usr/bin/env Rscript te

我正在尝试从bash运行R-script,以绘制.png图像(MacOSX10.6.8上的R版本3.0.2)。因此,我正在使用命令

R CMD批处理脚本.R

令人惊讶的是,这会生成一个.png文件,其中包括所有内容,但不包括Matline。更具体地说,它绘制一条单独的黑色matline,表示八条已定义(彩色)matline中的第一条。如果我从bash命令行调用R,并复制/粘贴R脚本中的代码,所有Matline都会正确打印

R脚本包含以下内容:

#!/usr/bin/env Rscript

temp.table <- read.table("/path/to/firstTable.txt", 
header=TRUE, sep="\t", na.strings="-999.66", dec=".", 
strip.white=TRUE)

colbind <- cbind(temp.table$column1,temp.table$column2,temp.table$column3,temp.table$column4,temp.table$column5,temp.table$column6,temp.table$column7)

colbind.cor <- colbind + 4.7

time <- 1:1020

table.n <- cbind(time,colbind.cor)

colnames(table.n) <- c("time","column1","column2","column3","column4","column5","column6","column7")


para.col <- read.table("/path/to/secondTable.txt", header=TRUE, sep="\t", na.strings="-999.66", dec=",", strip.white=TRUE)

png("/path/to/plot/plot.png", width = 800, height = 400)

plot(table.n, axes=F, xlim=c(0,1020+1), ylim=c(5,40), type='l', ann=F)

par(tcl= -0.2)
axis(2, at=seq(5, 40, by=1), labels=F, lwd=1, lwd.ticks=1)

par(tcl= -0.5)
axis(2, at=seq(5, 1 + 40, by=5), labels=seq(5,40,5), lwd=0, lwd.ticks=2)

par(tcl= -0.2)
axis(1, at=seq(1, 1020, by=10), labels=F, lwd=1, lwd.ticks=1)

par(tcl= -0.5)
axis(1, at=seq(1, 1 + 1020, by=60), labels=seq(0,1020/60,1), lwd=0, lwd.ticks=2)

abline(v=(seq(0,1020,60))+1, col="lightgray", lty="dotted")
abline(h=(seq(5,40,2)), col="lightgray", lty="dotted")

title(sub="title", ylab="Temperature [°C]", xlab="time [min]")

matlines (para.col$column8, type = "l", lty = 1:1, lwd = 1, pch = NULL, col=("#00E1FF"))

matlines (table.n[,c(2,3,4,5,6,7,8)], type = "l", lty = 1:1, lwd = 1, pch = NULL, col=(c("#FF0000","#FF9D00","#A31E00","#362F2A","#B3B3B3","#F5A882","#128794")))

legend("bottomright",legend = c("column1","column2","column3","column4","column5","column6","column7","column8"), lty=c(1,1), lwd=c(2.5,2.5), col=c("#FF0000","#FF9D00","#A31E00","#362F2A","#B3B3B3","#F5A882","#00E1FF","#128794"), text.font=2, cex=0.64) 

dev.off()

rm(list=ls())
#/usr/bin/env Rscript

temp.table请编辑您的示例,以便(1)它在我的机器上运行而不进行编辑,(2)它再现您试图修复的问题。例如,我遇到以下错误:
无法打开文件“/path/to/first/table.txt”:没有这样的文件或目录,也没有输出。感谢您的快速回复。我将第一个和第二个表的内容上传到(第一个表第1部分),(第一个表第2部分)和(第二个表完整)。由于TextUploader.com上的字符限制,firstTable分为两部分。为了让它更直观,两个表都可以在下载时作为压缩的txt文件下载。请原谅混淆。