Округление чисел в R до указанного количества цифр

Question

У меня проблема с округлением чисел в R. У меня есть следующие данные, и я хочу округлить их до 8 десятичных цифр.

structure(c(9.50863385275955e-05, 4.05702267762077e-06, 2.78921491976249e-05, 
8.9107773737659e-05, 5.0672643927135e-06, 5.87776809485182e-05,
2.76421630542694e-05, 5.51662570625727e-05, 2.52790624570593e-05, 
2.00407457671806e-05, 8.33373482160056e-05, 7.8297940825207e-05,
2.00407457671806e-05, 8.33373482160056e-05, 7.8297940825207e-05,
2.00407457671806e-05, 8.33373482160056e-05, 7.8297940825207e-05
), .Names = c("CC/CC", "TT/CC", "CT/CC", "NC/CC", "CC/TT", "TT/TT",
"CT/TT", "NC/TT", "CC/CT", "TT/CT", "CT/CT", "NC/CT"))

Эти цифры представлены в виде показателя степени, и я хочу преобразовать их в рациональные числа с 8 десятичными знаками.

Answer 1

Для точного контроля форматирования чисел, попробуйте formatC()

res <- structure(c(9.50863385275955e-05, 4.05702267762077e-06), 
                 .Names = c("CC/CC", "TT/CC"))

formatC(res, format="f", digits=8)

Answer 2

Функция signif округляет до определенного количества значащих цифр (а функция round округляет до определенного количества десятичных знаков).

res <- structure(c(9.50863385275955e-05, 4.05702267762077e-06), 
             .Names = c("CC/CC", "TT/CC"))
signif(res, digits=8)

Обратите внимание, что печать результат зависит от параметра, options(digits=7) ... Вы также можете напрямую указать аргумент digits для print:

print(pi, digits=3)  # 3.14
print(pi, digits=17) # 3.1415926535897931

Вот пример, иллюстрирующий разницу между signif и round:

x <- c(pi, pi*1000, pi/1000)
round(x, 3) # 3.142 3141.593 0.003
signif(x, 3) # 3.14e+00 3.14e+03 3.14e-03