我正在使用 R 绘制折线图,使用以下命令
data <- read.table("input_data.txt", header=T, sep="\t")
ind=seq(1,nrow(data),by=2)
pdf(file="result.pdf")
plot_colors <- c("black","red","green","blue","purple","red")
plot(data$column_one, type="l", lty=1, col=plot_colors[1], ann=FALSE)
lines(data$column_two, type="l", lty=2, col=plot_colors[2])
lines(data$column_three, type="o", pch=1, lty=0, col=plot_colors[3], cex=1)
lines(data$column_four, type="o", pch=3, lty=0, col=plot_colors[4], cex=1)
lines(data$column_five, type="o", pch=2, lty=0, col=plot_colors[5], cex=1)
lines(data$column_six, type="o", pch=4, lty=1, col=plot_colors[6], cex=1)
box()
dev.off()
问题是,我有 500 个数据点,而且符号标记都被混搭在了线上,紧紧地压在了线上。我看不到线路上的符号。
有没有办法只以固定的间隔显示符号标记,而不会使它们杂乱无章?