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

Question

我正在尝试使用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=", ")

我希望在cat()变量上使用dummy_data并在z元素之后使用换行符。看起来应该可以使用fill=TRUE选项，但我无法弄清楚如何。我拥有的是这个

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

我想要的是这个

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

我如何使用cat()或类似的东西来完成此任务？

Answer 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)

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