Я не могу выровнять данные в столбце таблицы вправо

Question

Я не могу выровнять данные в столбце таблицы (в пятом столбце) по правому краю.Когда я печатаю как текст, цифры в столбце не выровнены из-за знаков минус.(в пятом столбце)

WINGEN01    20001   1.02000   0.09000   -1.37000   0.25000   0.19000   0.09000
WINGEN01    20002   1.07000   0.10000   -2.02000   0.25000   0.25000   0.09000
WINGEN01    20003   0.53000   0.09000   0.33000   0.45000   0.23000   0.09000
WINGEN01    20004   1.32000   0.19000   1.23000   0.09000   0.23000   0.03000
WINGEN01    20005   1.16000   0.16000   0.62000   0.14000   0.26000   0.04000
WINGEN01    20006   1.28000   0.15000   0.51000   0.11000   0.20000   0.04000
WINGEN01    20007   0.98000   0.13000   0.64000   0.15000   0.14000   0.05000
WINGEN01    20008   1.17000   0.15000   0.88000   0.10000   0.20000   0.03000
WINGEN01    20009   0.42000   0.06000   -1.43000   0.60000   0.19000   0.10000
WINGEN01    20010   1.06000   0.40000   3.18000   0.52000   0.22000   0.02000
WINGEN01    20011   1.28000   0.15000   0.76000   0.10000   0.21000   0.03000
WINGEN01    20012   0.47000   0.06000   -1.30000   0.57000   0.22000   0.10000
WINGEN01    20013   1.14000   0.14000   0.97000   0.10000   0.16000   0.03000




write.table(Y_14_PAR, paste("Y_14_PAR.PAR"),  quote = F, row.names = F, col.names =F,sep = "   ")

Answer 1

Если все, что вас интересует, это выравнивание столбцов для целей визуализации, рассмотрите один из следующих пакетов:

knitr

library(knitr)
kable(data.frame(a = pi * -3:3))

# Results NOT RUN

|         a|
|---------:|
| -9.424778|
| -6.283185|
| -3.141593|
|  0.000000|
|  3.141593|
|  6.283185|
|  9.424778|

DT

library(DT)
datatable(data.frame(a = pi * -3:3),
   caption = "My nicely formatted table") %>% 
   formatRound(~a)

Ониработайте в консоли, но лучше всего работайте с документом уценки (.RmD), записной книжкой или блестящим приложением и т. д.

Answer 2

sprintf может быть необходимой вам командой. Это команда форматирования строки в стиле C, которая принадлежит базе R. Пример ниже.

data.frame(a = sprintf("%-1.5f", pi*-3:3))

# output NOT RUN

         a
1 -9.42478
2 -6.28319
3 -3.14159
4  0.00000
5  3.14159
6  6.28319
7  9.42478

# NOT RUN

Обратите внимание, что знак минус после оставшегося% оправдывает цифры. Нет правильного оправдания, которое я могу сказать, но я думаю, что это сделает работу. В противном случае замените на «+», чтобы заставить оба знака + / -.

Также убедитесь, что вы обернули функцию в as.numeric(), чтобы случайно не привести тип данных.