Как сделать так, чтобы мои галочки оси были направлены внутрь в ggplot2

Question

Я сделал гистограмму, используя ggplot2, а журнал, в который я должен представить, требует, чтобы ось тика была направлена ​​внутрь.

Это текстовое представление моих данных (dput)

Mean.Inc.melt<-structure(list(Var1 = structure(c(1L, 2L, 1L, 2L, 1L, 2L), .Label = c("Harvest","Pre-Harvest"), class = "factor"), Var2 = structure(c(1L, 1L, 2L, 2L, 3L, 3L), .Label =c("Dip A", "Trip A", "Trip B"), class = "factor"), value = c(2, 34, 1, 36, 3, 46)), .Names =c("Var1", "Var2", "value"), row.names = c(NA, -6L), class = "data.frame")

Включая стандартную ошибку

SEM.Inc.melt<-structure(list(Var1 = structure(c(1L, 2L, 1L, 2L, 1L, 2L), .Label = c("Harvest", "Pre-Harvest"), class = "factor"), Var2 = structure(c(1L, 1L, 2L, 2L, 3L, 3L), .Label = c("Dip A", "Trip A", "Trip B"), class = "factor"), value = c(1, 12, 1, 2, 1, 6)), .Names = c("Var1", "Var2", "value"), row.names = c(NA, -6L), class = "data.frame")

Это сценарий, который я использовал для создания сюжета:

ggplot(Mean.Inc.melt,aes(x=Var2,y=value,fill=Var1))+
  geom_bar(stat='identity',position=position_dodge(),colour='black')+
  scale_fill_manual(values=c('#000000','#FFFFFF'))+
  geom_errorbar(aes(ymin=Mean.Inc.melt$value-SEM.Inc.melt$value,
                    ymax=Mean.Inc.melt$value+SEM.Inc.melt$value),width=.1,
                    position=position_dodge(.9))+
  xlab('Treatment')+
  ylab('Percentage Incidence (%)')+
  ylim(0,60)+
  scale_y_continuous(expand=c(0,0),limits=c(0,60))+
  scale_x_discrete(expand=c(0,0))+
  theme_bw()+
  theme(axis.line=element_line(colour='black'),panel.grid.major=element_blank(),
        panel.grid.minor=element_blank(),panel.border=element_blank(),
        panel.background=element_blank())+
  geom_vline(xintercept=0)+theme(legend.position='none')

Я думаю, дело в том - кто-нибудь знает, есть ли способ, которым я могу повернуть свою ось внутрь?

Answer 1

Хотя я не понимаю, что журналы хотят иметь отметки внутри, это довольно просто сделать с ggplot,

axis.ticks.length аргумент theme позволяет установить длину отметок. Если для этого параметра установлено отрицательное значение, отметки будут нанесены внутрь. Например (репост решения Дениса Мерфи здесь):

library(ggplot2)
library(grid)
ggplot(mtcars, aes(disp, mpg)) + geom_point() + 
  theme(axis.ticks.length=unit(-0.25, "cm"), axis.ticks.margin=unit(0.5, "cm"))

Как и в приведенном выше примере, вам также необходимо отрегулировать положение меток axis.ticks.margin,

Обратите внимание, что значение должно быть передано как unit объект, который требует, чтобы grid пакет (предварительно установленный с R) загружен.