r - 使用 gridExtra 中的 tableGrob 在表格中包装文本

Question

我有一系列调查问题，正在报告学校、学校家庭和整个董事会的答复。有些问题很长——我想做的是让文本在专栏结束时自动换行。现在我必须手动添加换行符。这可能吗？我使用的是 R 版本 3.2.1 和 gridExtra_2.0.0。

部分代码:

library(gridExtra)
library(grid)
library(ggplot2)

key <- c("I feel close to other parents with children the same age", "I am comfortable asking for advice about parenting", "I take time out to take care of my own health and well−being")
SCH <- c(20,30,40)
FOS <- c(25,35,56)
BOARD <- c(32,44,58)

d <- data.frame(key, SCH, FOS, BOARD)

row.names(d) <- d[,1]
d[,1] <- NULL

g <- tableGrob(d)

g$widths <- unit (c(0.4, 0.1,0.1,0.1),"npc")
grid.newpage()
grid.draw(g)

Answer 1

您可以使用 strwrap 实现此目的

key <- c("I feel close to other parents with children the same age", "I am comfortable asking for advice about parenting", "I take time out to take care of my own health and well−being")

key_wraped <- strwrap(key, width = 30, simplify = FALSE) # modify 30 to your needs
key_new <- sapply(key_wraped, paste, collapse = "\n")

d <- data.frame(key_new, SCH, FOS, BOARD)

对我来说，这会导致: