Issue matching layout with layoutAttributes spec

[cpsievert]

Found via https://stackoverflow.com/questions/45983712/converting-ggplot-graph-with-ggplotly-function

(xaxis3.ticktext/xaxis3.tickvals aren't being treated as arrays)

[cpsievert]

There's still a problem with >10 facets

b <- data.frame(ID_Miseq = c(rep("P1",80)),
                 Condition1 = c(rep("A", 8), rep("B",8), rep("C", 8), rep("D", 8), rep("E", 8), rep("F", 8), rep("G", 8), rep("H", 8), rep("I", 8), rep("J", 8)),
                 Taxon = c(rep(paste0("T",1:8),10)),
                 Percent = sample(seq(1,25,0.1),80))
 library(ggplot2)
 gg <- ggplot(b, aes(x = ID_Miseq, y = Percent, fill = Taxon))
 gg <- gg + geom_bar(stat = "identity", position = "stack")
 factors <- "~Condition1"
 gg <- gg + facet_grid(factors, scales = "free", space = "free_x")
library(plotly)
ggplotly(gg)