在 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位於右側。