플롯: R 및 Shiny를 사용하여 서브플롯에 대한 단일 y축 레이블을 만드는 방법은 무엇입니까?

비슷한 질문이 Python에 대해 묻고 답변되었습니다. 솔루션은 R에서도 동일합니다. 표준 축 레이블을 삭제하고 원하는 정보를 대신 주석으로 표시하기만 하면 됩니다. 다음 그림은 아래의 미리보기 및 삽입에 수직 주석에 의해 생산 y=0.5및x=-0.2

완전한 코드:

library(plotly)
fig1 <- plot_ly(economics, x = ~date, y = ~unemploy)
fig1 <- fig1 %>% add_lines(name = ~"unemploy")
fig2 <- plot_ly(economics, x = ~date, y = ~uempmed)
fig2 <- fig2 %>% add_lines(name = ~"uempmed")
fig <- subplot(nrows=2,fig1, fig2)



# make room for both main title and y-axis titles
m <- list(
  l = 100,
  r = 25,
  b = 25,
  t = 125
  #pad = 4
)
fig <- fig %>% layout(title=list(text='Main figure title', font = list(color = "red",size = 24)),
                      autosize = F,
                      #width = 500, height = 500,
                      margin = m)

  
# your axis title
fig <- fig %>% layout(annotations = list(
                list(x = -0.15 , y = 0.5, text = "Thousands of people",
                     font = list(color = "blue",size = 18),
                     textangle = 270,
                     showarrow = F, xref='paper', yref='paper', size=48)
                
                ))

fig