小编Hoj*_*oju的帖子

在 x 轴 ggplot 中绘制长文本因子时，效果不佳。我想换一条新线，这样它更清晰（所以下图中的红色标记标签应该是一条线）。

我在这里的评论中找到了答案，但无法解决。代码是：

scale_x_discrete( labels = function( labels ) { 
fixedLabels <- c() for ( l in 1:length( labels ) ) { 
fixedLabels <- c( fixedLabels, paste0( ifelse( l %% 2 == 0, '', '\n' ), labels[l] ) ) } return( fixedLabels ) } )

测试数据：

library(ggplot2)

Group = c("D1", "D2", "D3", "D4", "D5", "D6", "D7", "D8", "D9", "D10", "D11", "D12", "D13", "D14")
x = c(141, 57, 38, 18, 13, 7, 5, 4, …