R：当字符串超出设定长度时，在grid.table内换行文本

Question

我使用gridExtra包内的grid.table以表格格式显示调查评论列表。当评论（字符串变量）超过给定的长度时，我希望它自动插入换行符“\ n”。

library(gridExtra) 
df<-data.frame(comments = c("Here is a short string", 
"Here is a long string that needs to be broken in half so that it doesn't run off the page", 
"Here is another short string")) 

grid.newpage() 
print(grid.table(df$comments)) 

如果此功能在其他位置可用，我愿意使用不同的表格包。

Answer 1

可以使用strwrap，

d = sapply(lapply(df$comments, strwrap, width=50), paste, collapse="\n") 
grid.table(d)