ggplot2: убрать мелкие галочки на оси x, но сохранить основные галочки

Question

Я начинаю со следующего кода R для ggplot2 (взятого из /questions/18243324/dobavte-vtorichnyie-metki-osi-x-v-ggplot-s-odnoj-osyu-x/18243330#18243330 с небольшими изменениями):

lims = c(0,100)

breaks.major <- c(0,15,37.5,52.5,67.5,82.5,95) #defines the midpoints of the categories (label locations)
breaks.minor <- c(30,45,60,75,90,100)   #defines the edges of the categories (second label set I need)

breaks.comb <- sort(c(breaks.major2, breaks.minor2 - 1.0E-6))  # avoid the just same value as minor
label.comb <- c(0, "\nExtremely \nDissatisfied", 30, "\nDissatisfied", 45, "\nUncertain", 60, 
                "\nSatisfied", 75, "\nVery \nSatisfied", 90, "\nExtremely \nSatisfied", 100)

library(ggplot2)
g <- ggplot(mpg, aes(class))+
  geom_bar()+
  coord_flip()+
  scale_y_continuous(limit = lims, minor_breaks = breaks.minor, breaks = breaks.comb, 
                     labels = label.comb, expand = c(0,0)) +
  theme(panel.grid.major.x = element_blank()) +
  theme(panel.grid.major.y = element_blank()) +
  #theme(axis.ticks.x=element_blank()) + #Hides ALL ticks!
  theme(axis.title= element_blank()) +
  theme(plot.margin = unit(c(0.5, 0.5, 0.5, 0.5), "lines"))
g

Я хотел бы скрыть (некоторые из) галочки на оси х. Я знаю, что это можно сделать с помощью:

theme(axis.ticks.x=element_blank())

но я хотел бы скрыть только второстепенные тики (как указано в minor_breaks), но не основные тики. Есть ли способ скрыть только второстепенные тики и / или указать, какие второстепенные / основные тики следует показывать, а какие нет?