R Plotly - xaxis labels ever other tick, change to all

[Who_146]

I am trying to get all the labels to appear on every tick on the x-axis, but as you can see in the picture below they printed everyone tick.

This is the code I currently have

    fig <- plot_ly(width = 1000 )
    fig <- fig %>% 
      add_bars(data=filter(mbt, ANIMAL == 'CAT'),
               x = ~as.Date(paste0("01-",TITLE),format = "%d-%b-%y"), y = ~count, type = 'bar', text = ~count,
               textposition = 'auto', marker = list(color = 'rgb(113,88,143)'), name = "Cat", yaxis = "y2")
    fig <- fig %>% 
      add_bars(data=filter(mbt, ANIMAL == 'DOG'),
               x = ~as.Date(paste0("01-",TITLE),format = "%d-%b-%y"), y = ~count, type = 'bar', text = ~count,
               textposition = 'auto',marker = list(color = 'rgb(65,152,175)'), name = "Dog",yaxis = "y2")
    fig <- fig %>%
      add_lines(data=filter(mbt, ANIMAL == 'CAT'),
                x = ~as.Date(paste0("01-",TITLE),format = "%d-%b-%y"),y=~percentage, line = list(color = 'rgb(113,88,143)'),name = "P - Cats", yaxis ="y")
    fig <- fig %>%
      add_lines(data=filter(mbt, ANIMAL == 'DOG'),
                x = ~as.Date(paste0("01-",TITLE),format = "%d-%b-%y"),y=~percentage,  line = list(color = 'rgb(65,152,175)'),name = "P - Dogs", yaxis ="y")
    fig <- fig %>%
      add_lines(data=filter(mbt, ANIMAL == 'Total'),
                x = ~as.Date(paste0("01-",TITLE),format = "%d-%b-%y"),y=~percentage,  line = list(color = 'rgb(255,0,0)'), name = "Total", yaxis ="y")
    fig <- fig %>%
      add_lines(data=mbt,
                x = ~as.Date(paste0("01-",TITLE),format = "%d-%b-%y"),y=~percent_target, name="Target",yaxis ="y",line = list(color = 'rgb(0, 0, 0)')) 
    fig <- fig %>%
      layout( barmode = 'stack',
              yaxis2 = list(title ="", side = "right", tickprefix="<b>",ticksuffix = "</b>", range=c(0,24000),dtick = 2000, tickformat = "digits",showgrid = FALSE, zeroline = FALSE),
              yaxis = list(title = "", tickformat= ".1f", tickprefix="<b>",ticksuffix = "%</b>", overlaying = "y2",side = 'left',range = c(97,100.01)),
              xaxis = list(title = "", tickmode = "array", tickvals = ~as.Date(paste0("01-",TITLE),format = "%d-%b-%y"), tickformat = "%b-%y",tickfont = list(size = 10), tickprefix="<b>",ticksuffix = "</b>"),
              legend = list(orientation = "h", xanchor="center", x = 0.5),
              margin = list(l = 20, r = 50, b = 10, t = 100),
              annotations=list(text="Cat/Dog",xref="paper",x=0.5,
                               yref="paper",y=1,yshift=100,showarrow=FALSE, 
                               font=list(size=26))) %>%
      config(displayModeBar = FALSE)
    
    fig

[Who_146]

Does anyone have any ideas?

[zac-garland]

Try out combinations of modifying the dtick argument inside the axis definition, or alternative, you can supply custom tick values. The below should be a helpful resource for both of these.

Formatting

[Who_146]

I could not get any to work. If I drag the x-axis so fewer bars on the plot the all the ticks show up. Just can't get them to all show when there are 14 months on the plot.

[nirgrahamuk]

I'd try changing them from dates to factors.