R을 사용하여 플롯 된 선에서 마커 기호를 줄이는 방법?

Question

나는 다음과 같은 명령을 문제가

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() 

으로, 라인 차트를 플롯 R을 사용하고, 나는 500 데이터 포인트를 가지고 있고, 기호 마커는 모든 라인에 단단히 컴팩트 라인에 으깬있다. 나는 선상의 상징을 볼 수 없었다.

고정 된 간격으로 기호 마커를 표시하는 방법이 있습니까? 그런

Answer 1

사용 무언가 : PCH의 명령에 대한

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

: (여기에 "1") 수는 전에 기호를 정의합니다. "NA"는 이러한 점들이 기호없이 그려져 있음을 의미합니다. 이 벡터는 플롯이 끝날 때까지 반복적으로 사용됩니다. 여기서 5 번째 점마다 기호 1로 그려집니다.