Блог

Мне было интересно, знает ли кто-нибудь, как выровнять столбец ggtextable справа?

Это краткий пример:

 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))

 

Вторая колонка с отрицательным знаком и десятичными знаками просто выглядит плохо, я хотел бы обосновать эту вторую колонку справа, заранее спасибо.

Используя документацию по пакету, лучшее, что я мог сделать, — это сдвинуть все столбцы вправо. Это также может зависеть от ваших настроек 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))


```