如何去除R向量中的未知空格并解决图例显示异常问题

问题描述 #

我创建了如下R向量：

temp <- c("hyndman_ensemble","four_theta","tbats")

在R控制台打印该向量时，four_theta和tbats之间显示出明显的对齐空格（这是R控制台的自动对齐显示效果，并非字符串本身包含空格）：

[1] "hyndman_ensemble" "four_theta"       "tbats" 

但将该向量用于图例时，图例中出现多余空格，当列表包含5个元素时部分数据会丢失。我使用的图例自定义函数及调用代码如下：

add_legend <- function(...) {
  opar <- par(fig=c(0, 1, 0, 1), oma=c(0, 0, 0, 0),
              mar=c(0, 0, 0, 0), new=TRUE)
  on.exit(par(opar))
  plot(0, 0, type='n', bty='n', xaxt='n', yaxt='n')
  legend(...)
}

cl <- rainbow(3) 
# 空图用于展示图例的空格问题
plot(NULL, xlim=c(0,30), ylim=c(0,100000))
add_legend("topright", legend=c("test1",temp), lty=1,
                   col=c("orange", cl),
                   horiz=TRUE, bty='n', cex=0.8)

尝试用trimws()处理向量后，问题仍然存在。需要解决图例的多余空格问题，或找到其他能在图外正常显示图例的方案（图例位置不限制）。

解决方法 #

1. 排查并清理字符串中的隐形空白字符 #

如果trimws()无效，可能存在制表符、非打印ASCII等隐形空白字符，用以下代码检查并清理：

# 查看每个字符串的字符细节，排查隐形字符
sapply(temp, function(x) strsplit(x, "")[[1]])

# 清理所有类型的空白字符
temp_clean <- gsub("\\s+", "", temp)

2. 调整基础绘图图例的间距参数 #

图例的多余空格是legend()函数默认的自动宽度分配导致的，可通过以下参数精准控制：

• text.width：统一设置所有图例文本的宽度，避免自动拉伸
• x.intersp：缩小符号与文本之间的间距
• adj：设置文本左对齐，避免额外留白

修改后的图例调用代码：

add_legend("topright", legend=c("test1", temp_clean), lty=1,
           col=c("orange", cl),
           horiz=TRUE, bty='n', cex=0.8,
           text.width = max(strwidth(c("test1", temp))), # 用最长文本的宽度统一设定
           x.intersp = 0.8, # 缩小符号与文本的间距
           adj = 0) # 文本左对齐

3. 改用ggplot2包绘制（更灵活的图例控制） #

基础绘图的图例布局限制较多，用ggplot2可更精准控制图例的间距和位置：

library(ggplot2)

# 构造空图所需数据
df <- data.frame(
  x = 0:30,
  y = rnorm(31, 50000, 10000)
)

# 绘制空图并自定义图例
ggplot(df, aes(x, y)) +
  geom_blank() +
  scale_x_continuous(limits = c(0, 30)) +
  scale_y_continuous(limits = c(0, 100000)) +
  theme_minimal() +
  # 设置图例方向、位置
  guides(color = guide_legend(title = NULL, direction = "horizontal", position = "topright")) +
  # 指定图例颜色和标签
  scale_color_manual(values = c("orange", rainbow(3)), labels = c("test1", temp)) +
  # 调整图例间距和文本大小
  theme(legend.spacing.x = unit(0.2, "cm"),
        legend.text = element_text(size = 8))

4. 直接在基础绘图中添加图例（无需自定义函数） #

自定义的add_legend函数可能干扰布局，直接调整绘图边距后添加图例：

# 调整绘图边距，为图例留出空间
par(mar = c(5, 4, 4, 5) + 0.1)
plot(NULL, xlim = c(0, 30), ylim = c(0, 100000))
# 在右上角添加图例，控制位置和间距
legend("topright", legend = c("test1", temp), lty = 1,
       col = c("orange", cl),
       horiz = TRUE, bty = 'n', cex = 0.8,
       inset = c(-0.1, 0), # 调整图例位置避免超出绘图区
       text.width = strwidth("hyndman_ensemble")) # 统一文本宽度

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