0
У меня есть карта корреляции, после чего я хочу добавить на него горизонтальную линию с учетомКонтур добавить к карте условный
(i). для положительной корреляции, заключенной в сплошной линии
(ii). для отрицательной корреляции, приложенной пунктирной линией
Вот моя сума просто изменить линию контура согласно вышеуказанных критериям
image.plot(lons,lats,cor5FMAM,zlim=c(-0.6,0.6))
contour(lons,lats,cor5FMAM,add=T,at=c(-0.6,0.6,0.2),lwd=0.2)
Дорогой Бен! Спасибо за информацию. Я попытался сделать следующий цикл, но он не работает для меня. Любая помощь! image.plot (lons, lats, cora1, zlim = c (-0.6,0.6)) map ('world2', interior = T, add = TRUE) n <- 1 для (i в seq (1, length (lons), 1)) { k <- 1 для (j in seq (1, length (lats), 1)) { if (cora1 [i, j]> 0,1) {contour (lons, lats, cora1, add = TRUE, lwd = 2, lty = 3)} else {contour (lons, lats, cora1, add = TRUE, lwd = 2, lty = 1)} k <- k + 1 } n <- n + 1 } – tokicha
Что означает «не работает»? предупреждение, ошибка, график не выходит по желанию? Можете ли вы изменить свой вопрос выше, чтобы включить этот код и сделать его [воспроизводимым] (http://tinyurl.com/reproducible-000)? –
!! Я имею в виду, что я не могу получить график, как я желаю. Я хочу, чтобы первое условие с контуром 3 и остальным lty 2, но я получил то же самое для всей библиотеки условий (поля) lats <-seq (0,20,5) lons <-seq (20,60,5) a <- массив (runif (9 * 5), c (9,5)) image.plot (lons, lats, a) map ('world2', interior = T, add = TRUE) n < (1, длина (латы), 1)) { , если (a [i, 1, j]> 0,6) {contour (lons, lats, a, add = TRUE, lwd = 2, lty = 3, col = 'red')} else {contour (lons, lats, a, add = TRUE, lwd = 2, lty = 2, col = 'blue')} k <- k + 1 } n <- n + 1 } – tokicha