customize axis ticks in ggplot2

Question

I have the following data

df <- data.frame(dose=c("D0.5", "D1", "D2"),
                 len=c(4.2, 10, 29.5))

library(ggplot2)
# Basic barplot
p<-ggplot(data=df, aes(x=dose, y=len)) +
  geom_bar(stat="identity") + 
  theme(axis.ticks.y = element_blank())
p
# Horizontal bar plot
p + coord_flip()

which gives me the following charts

I want to add ticks in positions shown in the following using with the black ticks

Please can someone suggest how I can achieve this in ggplot2.

I do not understand the question. Care to elaborate further? — mnm, May 24 '18 at 12:39
@Ashish - I have updated the question, let me know if it is clear now. — Vik G, May 24 '18 at 12:46

score 0 · Answer 1 · answered May 24 '18 at 13:20

You can try similar to this answer

library(grid)
# the plot
g <- ggplot(data=df, aes(x=as.numeric(dose), y=len)) +
      geom_col() + coord_flip() +
        scale_x_continuous(breaks = seq(0.5, 3.5,0.5), 
                           labels = c("", "D0.5", "", "D1", "", "D2","")) +
      xlab("")

# Change the lengths of the tick marks
g = ggplotGrob(g)

# Get the x axis on the left side
xaxis <- g$grobs[[which(g$layout$name == "axis-l")]]  

# Get the tick marks and tick mark labels   
ticks <- xaxis$children[[2]]

# Get the tick marks
marks = ticks$grobs[[2]]

# change the length in an alternating way

long <- unit.c(unit(1, "npc") - unit(40, "pt"), unit(1, "npc"))
short <- unit.c(unit(1, "npc") - unit(3, "pt"), unit(1, "npc"))

# update the length
marks$x = unit.c(rep(unit.c(long, short), 3), long)

# Put the tick marks back into the plot
ticks$grobs[[2]] = marks
xaxis$children[[2]] = ticks
g$grobs[[which(g$layout$name == "axis-l")]]  = xaxis

# Draw the plot
grid.draw(g)

customize axis ticks in ggplot2

1 Answers1