将第二列向右对齐
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))
```
我想知道是否有人知道如何将 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))
```