将第二列向右对齐

Posted 2023-02-16

【中文标题】将第二列向右对齐

【英文标题】：Justify Second Column to the right

【发布时间】：2021-08-26 15:58:04

【问题描述】：

我想知道是否有人知道如何将 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))

带有负号和小数的第二列看起来很糟糕，我想证明右边的第二列是合理的，在此先感谢。

【参考方案1】：

利用package documentation 我能做的最好的就是强制所有列向右。它也可能取决于您的 YAML 设置。你渲染到什么输出？自从我使用html_document后，我可能得到了不同的结果

之前：

之后：

使用包指定表格主体样式，然后将其映射到 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))


```