Отображение второстепенных логарифмических делений в Ось x в R

У меня есть график нормального распределения и график гистограммы с осью x в логарифмической шкале, отображающей 0, 10 ^ 0, 10 ^ 1 ... Я хочу включить незначительные отметки между основные. На самом деле я смог изменить основной формат меток с 1, 2, 3 и так далее на 10 ^ 0, 10 ^ 1, 10 ^ 2, 10 ^ 3, используя решение, данное мне в моем предыдущем вопросе ]. Я использовал следующий код для основных отметок:

major.ticks <- axTicks(1)
labels <- sapply(major.ticks,function(i)
            as.expression(bquote(10^ .(i)))
          )
axis(1,at=major.ticks,labels=labels)

Можно ли отредактировать это, чтобы просто пометить второстепенные отметки без их маркировки?