1

我正在使用 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 个数据点,而且符号标记都被混搭在了线上,紧紧地压在了线上。我看不到线路上的符号。

有没有办法只以固定的间隔显示符号标记,而不会使它们杂乱无章?

在此处输入图像描述

4

1 回答 1

2

使用类似的东西:

lines(data$column_three, type="o", pch=c(1,NA,NA,NA,NA), lty=0, col=plot_colors[3], cex=1)

对于 pch 命令:数字(此处为“1”)像以前一样定义您的符号。“NA”表示这些点没有符号。这个向量将被重复使用,直到你的情节结束。在这里,每 5 个点用符号 1 绘制。

于 2014-11-27T19:55:00.807 回答