Добавление аннотаций для гистограммы в Plotly R - PullRequest
Новая
       30

Добавление аннотаций для гистограммы в Plotly R

1 голос
/ 28 апреля 2020

Мне нужно добавить аннотации к диаграмме на 2019 и 2020 годы. У меня проблема с переходом на 2020 год. Я хотел сделать это, как показано ниже, но текст перекрывается с текстом 2019.

enter image description here

quarter <- c("Q1", "Q2", "Q3")
y_18 <- c(10, 16, 23)
y_19 <- c(12, 20, 29)
y_20 <- c(14, NA, NA)
TD <- data.frame(quarter, y_18, y_19, y_20)

fig <- plot_ly(TD, x = ~quarter, y = ~y_18, type = 'bar', name = '2018')
fig <- fig %>% add_trace(y = ~y_19, name = '2019')
fig <- fig %>% add_trace(y = ~y_20, name = '2020')
fig <- fig %>% layout(yaxis = list(title = 'count'), barmode = 'group')
fig <- fig %>% add_annotations( x = TD$quarter,
                                y = TD$y_19,
                                text = c("+2","+4","+6"),
                                xref = "x",
                                yref = "y",
                                showarrow = TRUE)


#my solutions:
fig <- fig %>% add_annotations( x = TD[1,1],
                                y = TD[1,3],
                                text = "+2",
                                xref = "x",
                                yref = "y",
                                showarrow = TRUE)

1 Ответ

1 голос
/ 28 апреля 2020

С небольшим ручным вмешательством вы можете определить подходящие координаты y (см. Ниже). Я оставил во всех 3 координатах, поэтому, если вы хотите пометить их с помощью NA, просто замените пустые аннотации и логику showarrow FALSE в коде: 

library(plotly)
quarter <- c("Q1", "Q2", "Q3")
y_18 <- c(10, 16, 23)
y_19 <- c(12, 20, 29)
y_20 <- c(14, NA, NA)
TD <- data.frame(quarter, y_18, y_19, y_20)

fig <- plot_ly(TD, x = ~quarter, y = ~y_18, type = 'bar', name = '2018')
fig <- fig %>% add_trace(y = ~y_19, name = '2019')
fig <- fig %>% add_trace(y = ~y_20, name = '2020')
fig <- fig %>% layout(yaxis = list(title = 'count'), barmode = 'group')
fig <- fig %>% add_annotations( x = TD$quarter,
                                y = TD$y_19,
                                text = c("+2","+4","+6"),
                                xref = "x",
                                yref = "y",
                                showarrow = TRUE)

fig %>% add_annotations( x = c(.25, 1.25, 2.25),
                         y = TD$y_20,
                         text = c("+2","",""),
                         xref = "x",
                         yref = "y",
                         showarrow = c(TRUE, FALSE, FALSE))

image

...