如何在不覆盖第一行的情况下包装colnames？

Question

如何绘制包裹和覆盖两行的文本，使其不覆盖下一行？这是一个例子：

library(gplots)

a <- data.frame(a = c(1,2,3), b = c(4,5,6))
colnames(a)[1] <- "wrap\ntext"
textplot(a)

可以很容易地看出，标题中的text一词涵盖了第一（1）。

Answer 1

使用rmar和cmar

?textplot：rmar，cmar： 行或列之间的空格，以字母大小的分数表示。

library(gplots)

a <- data.frame(a = c(1,2,3), b = c(4,5,6))
colnames(a)[1] <- "wrap\ntext"
textplot(a, cmar = 2, rmar = 2)

Answer 2

我肯定不得不回来解决这个问题。我认为最好的解决方案是插入一个空行并删除第一行名称。当然，如果你想扩展另一行，添加2个空行等等

library(gplots)

a <- data.frame(a = c(1,2,3), b = c(4,5,6))
colnames(a)[1] <- "wrap\ntext"
textplot(a)

## And here is the solution

a <- rbind(c("", ""), a)  ## Insert empty row
rownames(a)<- c("", 1:(dim(a)[1]-1)) ## delete first row name and name other indices
textplot(a)