Я пытаюсь построить три графика вместе, один под другим. Я хотел бы сделать высоту первой диаграммы в два раза больше, чем у других, используя номинал, но у меня возникают трудности с параметром высоты.
par(mfrow = c(3, 1),mar=c(2, 4, 2, 0.2), heights=c(2,1,1))
plot(x=1:100,y=cumsum(sample(c(-1, 1), 100, TRUE)), type="l")
plot(x=1:100,y=cumsum(sample(c(-1, 1), 100, TRUE)), type="l")
plot(x=1:100,y=cumsum(sample(c(-1, 1), 100, TRUE)), type="l")
Спасибо за помощь.
Вы можете использовать layout для этого:
#the first argument is a matrix that shows the order of the graphs
#in this case the matrix has 1 column and 3 rows. therefore, graphs 1,2,3
#will be ploted in this order, one below the other
#you then need to adjust the heights and the widths for each plot
nf <- layout(matrix(c(1,2,3),ncol=1), widths=c(4,4,4), heights=c(2,1,1), TRUE)
#typing the below command will let you see how the plots will be filled in.
#layout.show(nf)
#then you just run your plots
plot(x=1:100,y=cumsum(sample(c(-1, 1), 100, TRUE)), type="l")
plot(x=1:100,y=cumsum(sample(c(-1, 1), 100, TRUE)), type="l")
plot(x=1:100,y=cumsum(sample(c(-1, 1), 100, TRUE)), type="l")
