在 R 中使用 plotly 错开 X 轴标签

Question

使用 ggplot 我可以使用 scale_x_discrete function 错开 x 轴标签

library(tidyverse)
tibble(A = factor(LETTERS[1:5]), B = c(abs(rnorm(5)))) %>% 
  ggplot(aes(x=A, y=B))+
  geom_bar(stat="identity")+
  scale_x_discrete(guide = guide_axis(n.dodge = 2))

但是，我希望在 R 环境中的 plotly 中进行相同的编程（即不使用 ggplotly 包装函数）。 有谁知道我应该使用什么 function ？

Answer 1

要生成这种类型的标签，您可以使用ticktext 。 但是，您必须包含tickvals才能使其工作。 除了默认的 colors 之外，我生成了一个 Plotly 版本，它与您问题中的ggplot图非常相似。

set.seed(23)
df1 <- tibble(A = factor(LETTERS[1:5]), B = c(abs(rnorm(5))))

plot_ly(type = "bar", data = df1, x = ~A, y = ~B) %>% 
  layout(xaxis = list(tickmode = "array",
                      tickvals = df1$A,
                      ticktext = c("A", "\nB", "C", "\nD", "E"),
                      ticklen = 5, ticks = "outside"))

ggplot在左边； plotly位于右侧。