将第二列向右对齐

Justify Second Column to the right

我想知道是否有人知道如何将 ggtexttable 列右对齐?

这是一个简短的例子:

library(ggpubr)

df <- data.frame(Order = c(1:3),
                 Name = c("Adam", "Ben", "Charlie"), 
                 Score = c(-.0041, 8.00, 9.123))
stable.p <- ggtexttable(df, rows = NULL, theme = ttheme("default"))

ggarrange(stable.p,  ncol = 1, nrow = 1, heights = c(1, 1))

带有负号和小数的第二列看起来很糟糕,我想证明右边的第二列是正确的,提前致谢。

利用 package documentation 我能做的最好的事情就是强制所有列向右移动。它还可能取决于您的 YAML 设置。你渲染到什么输出?我可能有不同的结果,因为我使用 html_document

之前:

之后:

在包中指定 table 主体样式,然后将其映射到 ggtexttable() 函数中。

tbody.style = tbody_style(hjust=1, x=0.9)

这是我的可重现解决方案

---
title: "Untitled"
author: "author"
date: "6/11/2021"
output: html_document
---

```{r setup}
library(ggpubr)

tbody.style = tbody_style(hjust=1, x=0.9)

df <- data.frame(Order = c(1:3),
                 Name = c("Adam", "Ben", "Charlie"), 
                 Score = c(-.0041, 8.00, 9.123))


ggtexttable(df, rows = NULL, 
            theme = ttheme(tbody.style = tbody.style))


```