固定宽度后用 cat 创建换行符答案

【问题标题】：Creating newlines with cat after fixed width固定宽度后用 cat 创建换行符
【发布时间】：2014-03-25 08:56:35
【问题描述】：

我正在尝试使用paste() 和cat() 为我设置一些文本格式。我有以下变量和矩阵。

z = 7
b = 2
dest <- 1

dummy_data <- matrix(nrow = b*dest, ncol= z)
dummy_data[is.na(dummy_data)] <- "_"
dummy_data <- paste(dummy_data,collapse=", ")

然后我想要在 dummy_data 变量上使用 cat() 并在 z 元素之后换行。使用fill=TRUE 选项似乎应该可以做到这一点，但我不知道怎么做。我有的是这个

> cat(dummy_data,"\n")
_, _, _, _, _, _, _, _, _, _, _, _, _, _

我想要的是这个

_, _, _, _, _, _, _,
_, _, _, _, _, _, _

我怎样才能使用cat() 或类似的东西来完成这个？

【问题讨论】：

告诉我们你真正想要做什么。您实际上是在尝试打印出矩阵，还是仅创建 dummy_data 矩阵来说明您要做什么？为什么不试试rep() 功能？

标签： r paste cat

【解决方案1】：

您好，也许有更好的方法，但您可以这样做：

dummy_data <- matrix(nrow = b*dest, ncol= z)
dummy_data[is.na(dummy_data)] <- "_"
dummy_data <- paste(apply(dummy_data, 1, paste, collapse=", "), collapse="\n")
cat(dummy_data)

_, _, _, _, _, _, _
_, _, _, _, _, _, _

【讨论】：

添加后：dummy_data <- paste(apply(dummy_data, 1, paste, collapse=", "), collapse=",\n")