Displaying Hebrew and RTL Languages

Although ggplotly does display Hebrew text correctly, when I try to use str_wrap or other means to wrap titles, it doesnt display the text properly. It appears to wrap the text incorrectly, breaking the sentence up at the wrong points.

Heres a minimal working example:

library(plotly)
# DB
Occupation = c("תל אביב", "באר שבע", "רמת גן", "גבעתיים", "ירושלים", "אילת", "טבריה", "אשקלון", "שם ארוך מאוד")
df <- as.data.frame(Occupation) %>% 
  mutate(n = row_number()*10)

df$Occupation <- str_wrap(df$Occupation, width = 6) %>% as.factor()

# PLOT
plot <- df %>% ggplot(aes(x = Occupation, y = n)) +
  geom_col()

ggplotly(plot)

ggplot:

ggplotly:

str_wrap、ggplot、ggplotlyを使用した最小限のR例から始め、ヘブライ語ラベルについてggplotとggplotlyのスクリーンショットを比較します。誤った折り返しを再現し、ggplotlyのレンダリング経路を調査します。インタラクティブプロットでヘブライ語やその他のRTLタイトルが正しい位置で折り返されれば完了です。