x 축이 이산되어있을 때 음영의 수평선

Question

bar plot (plotly 패키지 포함)을 만들고 싶습니다. (몇 달 동안) red horizontal line (얻을 수있는 이득)이됩니다. 아래 그림은 내 문제를보다 정확하게 보여줍니다.

코드 및 데이터 첫번째 플롯을 얻기 위해 필요한 :

library("plotly") 
library("dplyr") 

data.frame(miesiac_label = as.character(as.roman(c(1:12))), 
      miesiac = c(1:12), 
      ile = c(12000, 12100, 11100, 12000, 12000, 11900, 12200, 12100, 6000, 12100, 12100, 12100), 
      gain = c(rep(NA, 7), 11000, 12000, 12000, 12000, 12000)) -> dane 
dane$miesiac_label <- factor(dane$miesiac_label, levels = dane[["miesiac_label"]]) 

plot_ly(dane) %>% 
    add_trace(x = ~miesiac_label, y = ~ile, 
       type = 'bar', marker = list(color = '#99d3df')) %>% 
    add_trace(x = ~miesiac_label, y = ~gain, name = 'Gain', 
       type = "scatter", mode='lines+markers', marker = list(color = 'red'), 
       line = list(color = 'red')) 

내가이 일을 지속적으로 규모를 가지고 있고,이 후 단지 x axis labels을 변경해야한다고 생각하지만, 나는 방법을 모른다 그 레이블을 바꾸려면 (물론 Google에서 먼저 찾으려고 노력했습니다.) ...

도움을 주셔서 감사합니다.

Answer 1

그런 점이 좋을까요? 숫자는 add_segments으로 조정할 수 있습니다.

a <- list(
    title = "miesiac_label", 
    showticklabels = TRUE, 
    tickmode= "array", 
    ticktext = as.character(as.roman(c(1:12))), 
tickvals = c(1:12) 
) 

plot_ly(dane) %>% 
    add_bars(x = ~miesiac, y = ~ile) %>% 
    add_segments(x = 7.5, xend = 8.5, y = 10000, yend = ~10000, line = list(dash = "dash")) %>% 
    add_segments(x = 8.5, xend = 12.5, y = 12000, yend = ~12000, line = list(dash = "dash")) %>% 
    layout(showlegend = FALSE, xaxis = a) 

Answer 2

난 당신이 가져가에 무시 무시한 도구 설명에 이르게 ggplot 표준을 위해 일반적으로 그 일을 ggplot와 환상적인 ggplotly()

를 사용하여 원하는 구성 관리해야하지만이 text 미적과의 tooltip 인수 불통 될 수있다 ggplotly 전화

예를 들어

:

다음 플롯 결과

ggplot(dane, aes(x = miesiac_label, y = ile)) + 
    geom_bar(aes(text = paste("x:", miesiac_label, "y:",ile)), 
          stat = "identity", fill = "#99d3df") + 
    geom_segment(aes(x = miesiac - 0.5, xend = miesiac + 0.5, 
        y = gain, yend = gain, 
        text = paste0("gain: ",gain)) 
       , colour = "red" 
       , linetype = 2) 

ggplotly(tooltip = "text") 

: