如何在ggplot中换行来自数据框的长文本标签？

要实现数据框中标签文本的自动换行，可以通过两种方式处理：

方法一：自动按字符宽度换行 #

使用stringr包的str_wrap()函数，按指定字符宽度将长文本拆分为多行，Plotly会识别并显示换行后的内容：

1. 先加载stringr包（未安装的话先运行install.packages("stringr")）
2. 修改代码中的label参数：

library(stringr)

output$plotly_1 <- renderPlotly ({    
  inherent + geom_jitter (data = dataframe, aes(x = column_1, y = column_2,
                                                label = str_wrap(column_3, width = 20),  # width控制每行最大字符数
                                                color = column_4))+
    theme(legend.position = "bottom", legend.box = "horizontal") +
    scale_color_discrete(NULL) +
    guides(color = guide_legend(nrow = 1))
})

根据实际需求调整width参数的数值，控制每行显示的字符长度。

方法二：指定位置手动换行 #

如果需要在特定字符（比如逗号、空格）处换行，用str_replace_all()将目标字符替换为HTML换行标签<br>，Plotly支持解析HTML格式的文本：

library(stringr)

output$plotly_1 <- renderPlotly ({    
  inherent + geom_jitter (data = dataframe, aes(x = column_1, y = column_2,
                                                label = str_replace_all(column_3, ",", "<br>"),  # 将逗号替换为换行
                                                color = column_4))+
    theme(legend.position = "bottom", legend.box = "horizontal") +
    scale_color_discrete(NULL) +
    guides(color = guide_legend(nrow = 1))
})

把代码中的,换成你需要的分隔字符即可。

内容的提问来源于stack exchange，提问作者Sami Khamash