Я пытаюсь следовать инструкциям здесь о том, как создать график с двойной осью Y (да, я знаю). Мой код здесь.

Однако в выходных данных некоторые из основных линий сетки немного смещены (см. красную рамку), тогда как некоторые из них идеально выровнены. Я не уверен, что вызывает такое расширение одного из участков. Я переписал код на этом сайте, чтобы лучше его понять, и, возможно, где-то допустил ошибку.

Легким решением было бы отключить линии сетки на одном из графиков, но это, похоже, скрывает проблему, а не устраняет ее.

Редактировать:

Я попытался запустить здесь исходный код без изменений. , и я столкнулся со следующей ошибкой в ​​​​строке 130.

> ticks$grobs[[1]]$x <- ticks$grobs[[1]]$x - unit(1, "npc") + tml
Error in Ops.unit(ticks$grobs[[1]]$x, unit(1, "npc")) : 
  both operands must be units

Таким образом, я не могу проверить, является ли проблема ошибкой, которую я внес во время транскрипции.