如何包装一个特定列的每一行中gridExtra :: tableGrob（）

，我有以下的数据帧如何包装一个特定列的每一行中gridExtra :: tableGrob（）

df <- structure(list(section_name = c("WWW", "WWW:XXX:YYY", 
"WWW:ZZZ", "WWW:ZZZ:YYY", "WWW:YYY", 
"XXX", "XXX:ZZZ:YYY", "XXX:YYY", 
"ZZZ", "YYY"), member = c("BATF, TEAD1, RUNX2, POL003.1_GC-box, NFIC, EBF, Rfx5, PB0194.1_Zbtb12_2, E2F7", 
"Atf1", "PB0182.1_Srf_2, PB0156.1_Plagl1_2", "MF0010.1_Homeobox_class, MEF2A, CRX", 
"BORIS, ETS1, CEBPE", "TEAD4, NFATC3, Mef2b, Sp1, PB0099.1_Zfp691_1, NFY, PH0170.1_Tgif2, PB0117.1_Eomes_2, NFY, LEF1, PB0024.1_Gcm1_1", 
"RUNX, CTCF", "JunB", "AP-1, TEAD, KLF5, Fli1, Atf2, NFIA, GFY, POL001.1_MTE, PB0135.1_Hoxa3_2, Ahr::Arnt, NFYA, Arnt:Ahr", 
"TEAD3, NFIX, KLF3, Rbpj1, SPDEF, Mef2c, Foxf1, PB0203.1_Zfp691_2, SOX9, HOXC13" 
)), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, 
-10L), .Names = c("section_name", "member")) 

df 
#> section_name 
#> 1   WWW 
#> 2 WWW:XXX:YYY 
#> 3  WWW:ZZZ 
#> 4 WWW:ZZZ:YYY 
#> 5  WWW:YYY 
#> 6   XXX 
#> 7 XXX:ZZZ:YYY 
#> 8  XXX:YYY 
#> 9   ZZZ 
#> 10   YYY 
#>                            member 
#> 1         BATF, TEAD1, RUNX2, POL003.1_GC-box, NFIC, EBF, Rfx5, PB0194.1_Zbtb12_2, E2F7 
#> 2                            Atf1 
#> 3                    PB0182.1_Srf_2, PB0156.1_Plagl1_2 
#> 4                    MF0010.1_Homeobox_class, MEF2A, CRX 
#> 5                        BORIS, ETS1, CEBPE 
#> 6 TEAD4, NFATC3, Mef2b, Sp1, PB0099.1_Zfp691_1, NFY, PH0170.1_Tgif2, PB0117.1_Eomes_2, NFY, LEF1, PB0024.1_Gcm1_1 
#> 7                          RUNX, CTCF 
#> 8                            JunB 
#> 9    AP-1, TEAD, KLF5, Fli1, Atf2, NFIA, GFY, POL001.1_MTE, PB0135.1_Hoxa3_2, Ahr::Arnt, NFYA, Arnt:Ahr 
#> 10         TEAD3, NFIX, KLF3, Rbpj1, SPDEF, Mef2c, Foxf1, PB0203.1_Zfp691_2, SOX9, HOXC13

在这我想创建表为图像。我使用此代码做到这一点：

library(gridExtra) 
p <- gridExtra::tableGrob(df) 
grid.arrange(p)

将会产生这种

我的问题是我怎么能每一行member列换到一定的列宽？

来源

2017-10-12 scamander

如果向文本添加换行符，则列宽将基于最长的最小连续字符串的长度。自动设置换行符的一种方法是使用stringr软件包中的str_wrap。例如：

library(gridExtra) 
library(stringr) 

df$member = str_wrap(df$member, 40) 

p <- gridExtra::tableGrob(df) 
grid.arrange(p)

只是为了保持完整性，我要指出，这是可以直接设置表列的宽度，但文本不会自动换行，并因此被截断。但是，结合文本换行，这可以让您对列宽进行额外的控制。下面是显示展开串截断的例子：

library(grid) 

# Starting with the original (unwrapped) version of df 
p <- tableGrob(df, rows=NULL) 
p$widths = unit(c(0.2, 0.5), "npc") 

grid.arrange(p)

更多关于格式化表格grobs，看到the Vignette。

来源

2017-10-12 05:24:00 eipi10

你的后一种方式截断'member'列。 – scamander

是的，这就是为什么我指出文本不会自动包装。我会更新以使其更加明确。 – eipi10

也有在tableGrob一个鲜为人知的功能，让你覆盖默认功能绘制的标签，

library(gridExtra) 

text_wrap <- function(label, ...){ 
    labwrap <- stringr::str_wrap(label, 40) 
    gridExtra:::text_grob(label=labwrap, ...) 
} 
tt <- ttheme_default(core=list(fg_fun = text_wrap)) 
grid.table(df, theme=tt)

来源

2017-10-12 07:46:05 baptiste

如何包装一个特定列的每一行中gridExtra :: tableGrob（）

回答

相关问题