It works:
data<-data.frame(cbind(
sample(1:3, 100, replace = TRUE),
sample(1:4, 100, replace = TRUE)))
names(data)<-c('factor1', 'factor2')
g <- ggplot(data, aes(x=factor1, y=factor2))
g <- g + geom_point(position = position_jitter(w = 0.2,h = 0.2)) + scale_x_continuous("Factor 1", breaks = c(1,2,3)) + scale_y_continuous("Factor 2", breaks = c(1,2,3,4))
p <- ggplotly(g)
x <- list(title = "Category One",tickmode = "array",tickvals = c(1,2,3) , ticktext = c("A", "B", "C"))
y <- list(title = "Category Two",tickmode = "array",tickvals = c(1,2,3,4) , ticktext = c("A", "B", "C", "D"))
p <- p %>% layout(xaxis = x, yaxis = y)
p
source
share