r - 如何删除向量中的未知空格？

Question

我有一个向量

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

当我打印温度时。在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) 
#Null plot just to display what is happening with the spaces in legend
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()，我也会得到空格(见图)

谁能告诉我如何删除这些空格或任何替代方法，我可以在没有任何空格的情况下在图外打印图例(图例不是必须在顶部)

Answer 1

您可以将text.width参数设置为“NA”，默认为NULL:

plot(NULL, xlim=c(0,30), ylim=c(0,100000))
add_legend("topright", legend=temp, lty=1,
           col=c("orange", cl),
           horiz=TRUE, bty='n', cex=0.8, xjust= 0, text.width=NA)

我的理解是你只有一个 text.width = NULL 的值，它对应于你最长输入所需的宽度。这是“hyndman_ensemble”。如果将其设置为“NA”，那么在这种情况下，您将获得一个包含 4 个条目的向量。每个条目指定每个图例条目所需的长度。

来源在这里:https://stat.ethz.ch/R-manual/R-devel/library/graphics/html/legend.html