Мне стыдно задавать этот простой вопрос, но я уже несколько дней ломаю голову всякий раз, когда создаю сюжет:
plot (x = 1:10, y = rnorm (10, 5, 2))
grid (10,10, lty = 6, col = "cornsilk2")
Я хочу расположить сетки прямо там, где помечены оси, то есть на 2, 4, 6, 8, 10 по оси x и аналогично 3, 4, 5, 6, 7, 8 по оси y.
Я хочу автоматизировать процесс, так как всякий раз, когда размер графика изменяется, поведение метки по умолчанию изменяется. См. следующий сюжет:
Из ?grid описания аргументов nx и ny:
Когда NULL, по умолчанию, сетка выравнивается по делениям на соответствующей оси по умолчанию (т. е. по делениям, вычисленным с помощью axTicks).
plot (x = 1:10, y = rnorm (10, 5, 2))
grid (NULL,NULL, lty = 6, col = "cornsilk2")
grid говорят только о том, что он будет выравниваться с тиками для оси по умолчанию, и ясно, что метод графика даты и времени делает что-то другое, чем то, что было бы возвращено axTicks.
- person joran; 21.11.2017
graphics:::axis.POSIXct.
- person joran; 21.11.2017
Для справки, есть способ управлять параметрами сетки и осей непосредственно из команды plot(), если мы не определяем пользовательский интервал тиков:
plot(x = 1:10, y = rnorm(10, 5, 2), xlim=c(1, 10), ylim=c(1, 10), panel.first=grid())
Документация plot.default() дает больше информации об этих параметрах.
При использовании пользовательского интервала тиков проще всего нарисовать сетку с помощью abline:
plot(x = 1:10, y = rnorm(10, 5, 2), xaxp=c(1, 10, 10), yaxp=c(1, 10, 10), axes=FALSE)
axis(1, 1:10)
axis(2, 1:10)
abline(h=1:10, v=1:10, col="gray", lty=3)
Дополнительные сведения о настраиваемых интервалах тиков см. в эта тема и здесь для выравнивания сетки.
Для потомков вот многословный способ сделать это вручную:
plot (x = 1:10, y = rnorm (10, 5, 2))
grid (lty = 6, col = "cornsilk2")
xaxp <- par("xaxp")
yaxp <- par("yaxp")
abline(v=seq(xaxp[1], xaxp[2], (xaxp[2]-xaxp[1])/xaxp[3]), lty=6, col = "cornsilk2")
abline(h=seq(yaxp[1], yaxp[2], (yaxp[2]-yaxp[1])/yaxp[3]), lty=6, col = "cornsilk2")
Ответ, предоставленный здесь, намного проще, хотя вам может не понравиться отсутствие "бесплатных пробел» на каждом конце осей. Вкратце,
Проблема в том, что grid помещает nx линий сетки в пользовательское пространство, а plot добавляет по 4% дополнительного пространства с каждой стороны. Вы можете взять это под контроль. Добавление
xaxs="i", yaxs="i"к вашему графику отключит дополнительное пространство. Но тогда ваша верхняя правая точка будет обрезана, поэтому вам нужно изменить значения xlim и ylim и изменить nx, чтобы они соответствовали
