gpt4 book ai didi

r - GridExtra:将文本向右对齐

转载 作者:行者123 更新时间:2023-12-04 11:46:54 29 4
gpt4 key购买 nike

我正在使用 R 的 gridExtra 包。
我想将第二列的数字向左对齐,而不改变第一列名称的对齐方式。是否可以?
谢谢!

library(gridExtra)
library(grid)

names=c("name1","name2","name3","long name","very long name")
values1=c(100000000,70000,20,600000000000000000,500)
values1=format(values1,big.mark=".",decimal.mark=",",scientific=FALSE)

d=data.frame(names=names,values1=values1)
g1 <- tableGrob(d)
grid.newpage()
grid.draw(g1)
enter image description here
谢谢你。

最佳答案

使用来自 gridExtra wiki 的表部分中的访问现有 grobs 的想法,可以直接编辑gtable的grob。

g1 <- tableGrob(d)

# identify the grobs to change
# third column of gtable and core foreground text
id <- which(grepl("core-fg", g1$layout$name ) & g1$layout$l == 3 )

# loop through grobs and change relevant parts
for (i in id) {
g1$grobs[[i]]$x <- unit(1, "npc")
g1$grobs[[i]]$hjust <- 1
}

grid.newpage()
grid.draw(g1)

enter image description here

关于r - GridExtra:将文本向右对齐,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/34962951/

29 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com