график 2 кривых; сплошные линии вместо пунктирных

Question

Я хотел бы построить две функции в графе.

r <- rnorm(20,0,1) 
z <- c(1,1,1,1,1,-1,-1,-1,1,-1,1,1,1,-1,1,1,-1,-1,1,-1) 
data <- as.data.frame(na.omit(cbind(z, r))) 
series1 <- ts(cumsum(c(1,data[,2]*data[,1]))) 
series2 <- ts(cumsum(c(1,data[,2]))) 

Сюжет серии 2 выглядит следующим образом.

Объединение двух кривых на одном графике с

matplot(cbind(series1, series2), xaxt = "n", xlab = "Time", ylab = "Value", col = 1:3, ann = FALSE, type = 'l') 

дает следующее:

Кривая Series2 теперь пунктирная линия.

У меня есть два вопроса:

1) Как я могу изменить пунктирную линию в виде сплошной линии?

2) Заголовки для оси не показаны ни на одном из графиков. Как я могу это исправить?

Заранее спасибо.

Answer 1

ниже код должен дать вам желаемые результаты:

matplot(cbind(series1, series2), xaxt = "n", xlab = "Time", 
     ylab = "Value", col = 1:3, ann = TRUE, type = 'l', 
     lty = 1) 

Ключевые параметры являются:

• ann = TRUE
• type = 'l'

Answer 2

В качестве альтернативы matplot можно использовать plot в сочетании с lines:

plot(series1, xlab="Time", ylab="Value", xaxt="n") 
lines(series2, col="red") 

это дает:

---

На стороне записки: всегда используйте set.seed() при использовании беспорядочно разрозненные значения. Вы можете сделать это вот так:

set.seed(1) 
r <- rnorm(20,0,1) 
z <- c(1,1,1,1,1,-1,-1,-1,1,-1,1,1,1,-1,1,1,-1,-1,1,-1) 
data <- as.data.frame(na.omit(cbind(z, r))) 
series1 <- ts(cumsum(c(1,data[,2]*data[,1]))) 
series2 <- ts(cumsum(c(1,data[,2]))) 

Это облегчает повторную копию данных для примера.