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 に答える