tableGrob：设置grid.table的高度和宽度 [英] tableGrob: set the height and width of a grid.table
问题描述
我试图制作一个功能，可以为我提供一个适合于indesign，illustrator或inkscape的情节。在试图这样做时，我遇到了两个我无法解决的问题。
<1>设置我的绘图的宽度和高度（或者只是grobTable）：
我得到的输出非常小，并且在illustrator中将其升级字体随之而来，并成为大的方式。因此我想用手动定义的宽度和高度进行绘图。 2）有时标题，音符和流行音乐会被放错位置（详情请参见图1和2之间的区别）。当rownames短暂时会发生。
库（gridExtra）
库（ggplot2）
数据（钻石）
##绘图函数
kryds.row< - 函数（x，y，p = 100，decor =％，digits = 3，
titel = ，note =，red = 219，green = 55，blue = 153）{
c< - table（x，y）
s< - as.character （c））
s < - paste（Antal svarpersoner =，s，sep =）
j < - prop.table（c，1）
r < - c （j），Total）
k <-c（colnames（j），Total）
j < - addmargins（j，margin = 2，FUN = sum）
j < - round（j，digits）
j [] <-paste（j * p，decor，sep =）
farve < - rgb（红色，绿色，蓝色，maxColorValue = 255）
table< - tableGrob（j，
cols = k，
gpar.coretext = gpar（fontsize = 12），
gpar。 coltext = gpar（fontsize = 12，col =white），
gpar.rowtext = gpar（fontsize = 12，fontface =bold），
gpar.corefill = gpar（fill = rgb（255,255,255，maxColorValue = 255），alpha = 1，col = NA），
gpar.rowfill = gpar（fill = rgb（255,255,255，maxColorValue = 255） ，alpha = 1，col = NA），
gpar.colfill = gpar（fill = 0，alpha = 1，col =white），
equal.width = TRUE，
显示.rownames = TRUE，
show.rsep = TRUE，
show.hlines = TRUE，
show.csep = FALSE，
show.vlines = FALSE，
显示.box = FALSE，
padding.h =单位（15，mm），
padding.v =单位（8，mm），
core.just =center ，
row.just =left，
separator = farve）
hh< - grobHeight（table）
ww< - grobWidth（table）
border < - roundrectGrob（x = 0.5，y = 0.5，width = ww，height = hh，
default.units =npc，
r = unit（0.1，snpc）） ，
just =center，
name = NULL，gp = gpar（col =white，fill = farve，vp = NULL））
border2< - roundrectGrob（x = 0.5，y = 0.5，width = ww，height = hh，
default.units =npc，
r = unit（0.1，snpc），
just = 中心，
name = NULL，gp = gpar（fill = NA，col = farve，vp = NULL））
title< - textGrob（titel，
x =单位（0.5，npc）-0.5 * ww +单位（5，mm），
y =单位（0.5，npc）+ 0.5 * hh +单位b $ b vjust = 0，hjust = 0，gp = gpar（fontsize = 12，fontface =bold））
脚注< - textGrob（注：
x =单位（0.5，npc） - 0.5 * ww +单位（5，mm），
y =单位（0.5，npc） - 0.5 * hh，
vjust = 1，hjust = 0，gp = gpar（fontsize = 10））
svarpersoner< - textGrob（s，
x = unit（0.5，npc）+ 0.5 * ww - 单位（2，mm），
y =单位（0.5，npc）+ 0.5 * hh +单位（2，mm），
vjust = 0，hjust = 1，gp = gpar（fontsize = 10））
grid.newpage（）
gt< - gTree（children = gList（border，table，border2，title，footnote，svarpersoner））
grid.draw（gt）
}
＃绘制
kryds.row（钻石$ color，diamonds $ cut ，titel =title，note =note）＃plot 1
kryds.row（diamonds $ cut，diamonds $ color，titel =title，note =note）＃plot 2
＃问题
＃1：标题，注释和row.text中的j在plot 1中非常糟糕，但不是plot 2
＃2我无法设置我的ta的宽度和高度ble
我还没有清理过我的代码，所以请随身携带！
我用的解决方案是操纵像这样的级别长度：
< （i（1）：长度（水平（x）））{$ b最长时间< - 0
最长数字< - 0
$ b if（最长< nchar（levels（x））[i]）{
最长< -nchar（levels（x））[i]
最长号码< -i
}
} $ （i为1 :( 100-最长））{
等级（x）[最长编号]< - 粘贴（等级（x）[最长编号]，，sep =b
$ b ）
}
这样我就可以控制表格的宽度
I'm trying to make a function that will give me a plot ready for indesign, illustrator or inkscape. In trying to do so, I have 2 problems I cannot solve.
1) set the width and height of my plot (or just the grobTable): The output I get is very small and when upscaling it in illustrator the font follows and become way to big. Therefore I want to make plots with manually defined widths and heights.
2) Sometimes the title, note and rownames gets "misplaced" (see the difference between plot 1 and 2 for details). It happens when the rownames are short.
library(gridExtra)
library(ggplot2)
data(diamonds)
## plot function
kryds.row <- function(x,y, p=100, decor="%", digits=3,
titel="", note="", red=219, green=55, blue= 153){
c <- table(x, y)
s <- as.character(sum(c))
s <- paste("Antal svarpersoner=", s, sep=" ")
j <- prop.table(c,1)
r <- c(rownames(j),"Total")
k <- c(colnames(j), "Total")
j <- addmargins(j, margin =2, FUN = sum)
j <- round(j, digits)
j[]<-paste(j*p, decor, sep=" ")
farve <- rgb(red,green,blue, maxColorValue =255)
table <- tableGrob(j,
cols = k,
gpar.coretext = gpar(fontsize = 12),
gpar.coltext = gpar(fontsize = 12,col="white"),
gpar.rowtext = gpar(fontsize = 12, fontface="bold"),
gpar.corefill = gpar(fill = rgb(255,255,255, maxColorValue =255), alpha = 1, col = NA),
gpar.rowfill = gpar(fill = rgb(255,255,255, maxColorValue =255), alpha = 1, col = NA),
gpar.colfill = gpar(fill = 0, alpha = 1 ,col= "white"),
equal.width = TRUE,
show.rownames = TRUE,
show.rsep = TRUE,
show.hlines = TRUE,
show.csep = FALSE,
show.vlines = FALSE,
show.box = FALSE,
padding.h = unit(15, "mm"),
padding.v = unit(8, "mm"),
core.just = "center",
row.just = "left",
separator = farve)
hh <- grobHeight(table)
ww <- grobWidth(table)
border <- roundrectGrob(x=0.5, y=0.5, width=ww, height=hh,
default.units="npc",
r=unit(0.1, "snpc"),
just="centre",
name=NULL, gp=gpar(col="white", fill=farve, vp=NULL))
border2 <- roundrectGrob(x=0.5, y=0.5, width=ww, height=hh,
default.units="npc",
r=unit(0.1, "snpc"),
just="centre",
name=NULL, gp=gpar(fill=NA, col=farve, vp=NULL))
title <- textGrob(titel,
x=unit(0.5,"npc") -0.5*ww + unit(5, "mm"),
y=unit(0.5,"npc") +0.5*hh + unit(2, "mm"),
vjust=0,hjust=0, gp=gpar(fontsize=12, fontface="bold"))
footnote <- textGrob(note,
x=unit(0.5,"npc") - 0.5*ww + unit(5,"mm"),
y=unit(0.5,"npc") - 0.5*hh,
vjust=1, hjust=0,gp=gpar( fontsize=10))
svarpersoner <- textGrob(s,
x=unit(0.5,"npc") + 0.5*ww -unit(5, "mm"),
y=unit(0.5,"npc") + 0.5*hh + unit(2, "mm"),
vjust=0, hjust=1,gp=gpar( fontsize=10))
grid.newpage()
gt <- gTree(children=gList(border,table,border2, title, footnote, svarpersoner))
grid.draw(gt)
}
# Plot it
kryds.row(diamonds$color, diamonds$cut, titel="title", note="note") # plot 1
kryds.row(diamonds$cut, diamonds$color, titel="title", note="note") # plot 2
# Problems
#1: The title, note and the j in the row.text is very badly placed in plot 1 but not plot 2
#2 I cannot set the width and height of my table
I have not cleaned up in my code yet, so please bare with it!
The solution I went with was to manipulate the length of the levels like this:
longest <- 0
longestnumber <- 0
for (i in 1:length(levels(x))){
if (longest < nchar(levels(x))[i]){
longest <- nchar(levels(x))[i]
longestnumber <- i
}
}
for (i in 1:(100-longest)){
levels(x)[longestnumber] <- paste(levels(x)[longestnumber], " ", sep="")
}
That way I can control the width of the table
这篇关于tableGrob：设置grid.table的高度和宽度的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
