在R中使用tableGrob或grid.table时对齐文本

使用tableGrob或grid.table创建表时。 有没有办法将表格内的文字对齐？第一列在左边，其他列在右边？而不是默认的“中心”

谢谢大家!

类似这样的内容：我希望列“a”在左侧对齐

a <- c("one","two","thirty five")
b <- c(1, 2, 3)
c <- c(4, 5, 6)

data <- data.frame(a,b,c)

windows()

grid.table(
  data,
  gpar.coretext=gpar(fontsize = 12),            
  gpar.coltext = gpar(fontsize = 12),            
  gpar.rowtext = gpar(fontsize = 12),            
  gpar.corefill = 
    gpar(fill = "green", alpha = 0.5, col = NA),           
  h.even.alpha = 0.5,            
  equal.width = FALSE,            
  show.rownames = FALSE,            
  show.vlines = TRUE,           
  padding.h = unit(15, "mm"),            
  padding.v = unit(8, "mm")            
) 

---

a这就是你要找的吗？有一个
core。只需调用
format（）
的
参数

require("gridExtra")

n=5
df<- data.frame(x=rnorm(n),y=rnorm(n),z=sample(letters[1:2],n,replace=T))


g1<-tableGrob(
format(df, digits = 1,
     scientific=F,big.mark = ","),
     core.just="left",
     #core.just="right",
     #col.just="right",
     gpar.coretext=gpar(fontsize=8), 
     gpar.coltext=gpar(fontsize=9, fontface='bold'), 
     show.rownames = F,
     h.even.alpha = 0,
     gpar.rowtext = gpar(col="black", cex=0.7,
                            equal.width = TRUE,
                            show.vlines = TRUE, 
                            show.hlines = TRUE,
                            separator="grey")                     
)

grid.draw(g1)

require（“gridExtra”）
n=5
df当gridExtra v>=2.0.0时，参数现在通过嵌套列表（主题）进行控制

库（gridExtra）
图书馆（网格）
n=5
d要设置“透明”背景，请使用
t最小值
和
hjust
设置文本对齐方式

theme_1 <- ttheme_minimal(core = list(fg_params = list(hjust = 0, 
                                                           x = 0.1, 
                                                    fontsize = 9)),
                          colhead = list(fg_params = list(fontsize = 12, 
                                                          fontface = "bold")))

我不知道为什么这会让投票结束。这是缺乏可复制的例子，但它不是一个真正的本地化问题。请您与我们分享一点您的代码，并解释更多？我只是添加了代码。非常感谢。非常感谢。左栏正是我想要的。当我在数据上运行代码时，其他列中的输入对齐方式不同（有些居中，有些向左）。我们必须更详细地研究format（），才能解决这个问题。非常感谢。我想将我的最后一列和最后一行设置为粗体。请告诉我怎么做。我可以将所有行和列都加粗。请帮忙
theme_1 <- ttheme_minimal(core = list(fg_params = list(hjust = 0, 
                                                           x = 0.1, 
                                                    fontsize = 9)),
                          colhead = list(fg_params = list(fontsize = 12, 
                                                          fontface = "bold")))

gridExtra::tableGrob(df_tbl, theme = theme_1, rows=NULL)