如何在反应式Splom点阵图内包装文本？

Question

在我闪亮的应用程序中，我让用户选择n个要在splom()调用中绘制的属性，该属性基本上遵循以下步骤：

1. 用户选择一个数字。
2. 用户选择变量。
3. 代码根据用户的选择对我的数据集进行子集化。
4. Splom的调用非常简单，类似于： lplot <- splom(data_subset) 。

但是，由于splom()中的面板是根据属性名称（这是反应性的，所以我不能提前标记splom()进行标记，并且名称很长，您无法阅读它们。

有谁知道在splom面板输出中是否可以包装文本？ 包装将在属性反应值上完成，因此不会在字符串上完成。

这是我的输出结果：

Answer 1

在第3步中进行子设置后，您可以操纵数据子集的名称以适当地换行。

## Subset the data in whatever way shiny does (here's a reproducible example)
irisSub <- subset(iris, select = grepl("Width", names(iris)))

然后

1. 用空格替换 “单词”分隔符。 在您的示例中，您可能只需要"_"

    names(irisSub) <- gsub("\\\\.|_", " ", names(irisSub)) 

2. 将这些弦以相当窄的宽度包裹起来。 您可能需要在这里尝试其他宽度。

    wrapList <- strwrap(names(irisSub), width = 10, simplify = FALSE) 

3. 将这些字符串与之间的换行符（ \\n ） 粘贴回去，并将它们分配给数据子集的名称

    names(irisSub) <- vapply(wrapList, paste, collapse = "\\n", FUN.VALUE = character(1)) 

4. splom应该尊重换行符

    splom(irisSub)