Memformat tempat desimal di R


264

Saya memiliki nomor, misalnya 1.128347132904321674821 yang ingin saya tunjukkan sebagai hanya dua tempat desimal ketika output ke layar (atau ditulis ke file). Bagaimana seseorang melakukan itu?

x <- 1.128347132904321674821

EDIT:

Penggunaan:

options(digits=2)

Telah disarankan sebagai jawaban yang memungkinkan. Apakah ada cara untuk menentukan ini dalam skrip untuk penggunaan satu kali? Ketika saya menambahkannya ke skrip saya sepertinya tidak melakukan hal yang berbeda dan saya tidak tertarik dalam banyak mengetik ulang untuk memformat setiap angka (saya mengotomatisasi laporan yang sangat besar).

-

Jawab: bulat (x, digit = 2)



Jika seseorang menggunakan opsi (digit = 4), itu tidak membatasi perhitungan hingga 4 digit, bukan? Dalam hal ini akan membuat program jauh kurang akurat. HANYA memengaruhi nomor ketika dicetak, benar?
MikeZ

controls the number of digits to print when printing numeric values. It is a suggestion only. Valid values are 1...22 with default 7. See the note in print.default about values greater than 15.dari? opsi itu hanya efek keluaran.
Brandon Bertelsen

Catatan yang round(23, digits=2)akan dicetak 23dan tidak 23.00. Jika Anda menginginkan yang terakhir, coba stackoverflow.com/a/12135122/180892
Jeromy Anglim

4
@ PaulHurleyuk, saya pikir ini praktik yang baik dalam pemrograman untuk menggunakan perpustakaan seminimal mungkin. Seseorang yang menggunakan perpustakaan berbeda untuk setiap kebutuhan sepele biasanya berakhir dengan kekacauan, file besar, masalah portabilitas, dll.
Rodrigo

Jawaban:


381

Latar Belakang: Beberapa jawaban yang disarankan pada halaman ini (mis. signif, options(digits=...)) Tidak menjamin bahwa sejumlah desimal ditampilkan untuk angka acak. Saya kira ini adalah fitur desain dalam R di mana praktik ilmiah yang baik melibatkan menunjukkan sejumlah digit berdasarkan pada prinsip " angka penting ". Namun, di banyak domain (misalnya, gaya APA , laporan bisnis) persyaratan pemformatan menentukan bahwa sejumlah tempat desimal ditampilkan. Ini sering dilakukan untuk tujuan konsistensi dan standardisasi daripada mementingkan angka-angka penting.

Solusi :

Kode berikut menunjukkan tepat dua tempat desimal untuk angka tersebut x.

format(round(x, 2), nsmall = 2)

Sebagai contoh:

format(round(1.20, 2), nsmall = 2)
# [1] "1.20"
format(round(1, 2), nsmall = 2)
# [1] "1.00"
format(round(1.1234, 2), nsmall = 2)
# [1] "1.12"

Fungsi yang lebih umum adalah sebagai berikut di mana xnomor dan kjumlah desimal untuk ditampilkan. trimwsmenghilangkan spasi putih terdepan yang dapat berguna jika Anda memiliki vektor angka.

specify_decimal <- function(x, k) trimws(format(round(x, k), nsmall=k))

Misalnya,

specify_decimal(1234, 5)
# [1] "1234.00000"
specify_decimal(0.1234, 5)
# [1] "0.12340"

4
+1 Hanya jawaban yang berfungsi untuk saya, dicetak dengan benar 0.0001sebagai0.00
ThomasH

7
Itu selalu mengganggu saya bagaimana fungsi suka format()dan prettyNum()mengubah angka menjadi karakter. Bagaimana Anda mengatasinya?
Waldir Leoncio

Ada apa dengan kutipan yang muncul?
F.Webber

2
@JeromyAnglim Saya perhatikan bahwa solusi di atas memiliki kemungkinan tepi-kasus yang merugikan dari memperbaiki jumlah karakter di depan desimal, misalnya format(c(10, 1), nsmall=1)hasil "10.0" " 1.0"(perhatikan ruang terdepan di depan angka 1.0. Padahal, sprintf()fungsi tersebut tampaknya menjamin pemformatan yang lebih baik pada kedua sisi desimal, misalnya sprintf(c(10,1), fmt = '%#.1f')menghilangkan yang sial ruang terkemuka dan pengembalian "10.0" "1.0".
Nicholas G Reich

1
Spasi utama adalah fitur yang dirancang untuk menyelaraskan titik desimal saat hasil formatdigunakan dalam kolom.
Penduduk

34

Anda dapat memformat angka, katakanlah x, hingga tempat desimal sesuai keinginan. Ini xadalah angka dengan banyak tempat desimal. Misalkan kita ingin menampilkan hingga 8 angka desimal dari angka ini:

x = 1111111234.6547389758965789345
y = formatC(x, digits = 8, format = "f")
# [1] "1111111234.65473890"

Di sini format="f"memberikan angka mengambang di tempat desimal yang biasa katakan, xxx.xxx, dan digitsmenentukan jumlah digit. Sebaliknya, jika Anda ingin mendapatkan bilangan bulat untuk ditampilkan, Anda akan menggunakan format="d"(seperti sprintf).


Walaupun saya tidak tahu persis apa yang diminta OP, menilai dengan jawaban berperingkat tertinggi, saya tidak bisa tidak mengamati bahwa formatChampir secara eksklusif apa yang saya gunakan untuk tujuan ini. Saya pikir jawaban ini baik dan berada di basis R sesuai permintaan OP.
AdamO

Adakah di antara kalian yang bisa membantu yang ini? stackoverflow.com/q/53279593/5224236
gpier

24

Anda dapat mencoba paket saya bisa diformat .

> # devtools::install_github("renkun-ken/formattable")
> library(formattable)
> x <- formattable(1.128347132904321674821, digits = 2, format = "f")
> x
[1] 1.13

Yang menyenangkan adalah, xmasih berupa vektor numerik dan Anda dapat melakukan lebih banyak perhitungan dengan format yang sama.

> x + 1
[1] 2.13

Bahkan lebih baik, digit tidak hilang, Anda dapat memformat ulang dengan lebih banyak digit kapan saja :)

> formattable(x, digits = 6, format = "f")
[1] 1.128347

Bajingan kecil yang menggangguku sepanjang pagi. Untuk beberapa alasan R akan mengumpulkan tampilan hanya untuk beberapa kolom. Saya perlu perbaikan ini karena saya harus melakukan perhitungan pada kolom-kolom itu juga. Ini bekerja. Terima kasih!
thethakuri

Saya suka diformat daripada fungsi baseR. Keuntungan terbesarnya mempertahankan variabel sebagai numerik.
Lazarus Thurston

22

untuk 2 tempat desimal dengan asumsi bahwa Anda ingin tetap membuntuti nol

sprintf(5.5, fmt = '%#.2f')

pemberian yang mana

[1] "5.50"

Seperti @mpag menyebutkan di bawah ini, tampaknya R kadang-kadang dapat memberikan nilai yang tidak terduga dengan ini dan metode bulat misalnya sprintf (5.5550, fmt = '% #. 2f') memberikan 5.55, bukan 5.56


1
namun, meskipun putaran sprintf, sprintf (5.5550, fmt = '% #. 2f') memberikan hasil yang sedikit tidak terduga: 5.55. sprintf (5.555000000001, fmt = '% #. 2f') memberikan 5.56. Ini tampaknya menjadi "masalah" umum dengan pembulatan dalam R, karena metode bulat, nsmall memberikan hal yang sama.
mpag

Terima kasih @mpag, saya tidak tahu bahwa R berjuang dengan pembulatan pada batas-batas, saya baru saja mencobanya dengan 5.565 yang tidak bulat, sementara 5,545 putaran ke bawah. Saya kira itu adalah cara mereka menangani keputusan floating point. Saya tidak berpikir saya telah melihat perilaku ini dalam bahasa lain yang saya kira berarti mereka memiliki solusi bawaan
Mark Adamson

Saya pikir mereka sengaja memperlakukan nilai-nilai sebagai terbatas dalam tingkat presisi. Mereka memperkirakan bahwa nilai yang 5.555 benar-benar sama mungkin telah dihasilkan dari nilai "nyata" dari 5.5546 sebagai 5.5554. Namun, jika Anda melanjutkan permainan pembulatan semacam itu, 5.444445 mungkin (belum diuji) berakhir sebagai "6" jika Anda melakukannya satu digit pada satu waktu. Tetapi Anda mungkin benar bahwa itu mungkin masalah representasi biner yang sedikit di bawah atau di atas 5,55.
mpag

Ya, saya pikir jika disengaja itu juga akan konsisten antara 5,565 dan 5,545. 'Keacakan' menunjukkan kepada saya itu adalah hal representasi titik mengambang.
Mark Adamson

Adakah di antara kalian yang bisa membantu yang ini? stackoverflow.com/q/53279593/5224236
gpier

8

Sesuatu seperti itu :

options(digits=2)

Opsi definisi digit:

digits: controls the number of digits to print when printing numeric values.

Apakah ada cara untuk mengatur ini secara dinamis saat menjalankan skrip?
Brandon Bertelsen

Ini berfungsi untuk menghasilkan dalam konsol R, tetapi tidak berfungsi dalam skrip saya (mereka masih keluar dengan .1289273982)
Brandon Bertelsen

1
Saya mendapatkan perilaku aneh, digitsopsi tampaknya tidak menetapkan jumlah digit setelah desimal. Misalnya, ketika saya mengatur opsi (digit = 2), kemudian mencetak 7,25 menghasilkan output 7,2, 1234,25 menjadi 1234, dan 0,25 tetap 0,25. Apakah ada opsi lain untuk berinteraksi dengan ini?
Maxim.K

8

Periksa fungsi prettyNum, format

untuk memiliki nol percobaan (123.1240 misalnya) gunakan sprintf(x, fmt='%#.4g')


@ 42 Saya akan menganjurkan untuk belajar sprintf, ini pada dasarnya adalah kerangka kerja untuk memformat
jangorecki

1
@ Jongorecki Saya tidak yakin dengan maksud Anda. Yang saya lakukan (5+ tahun yang lalu) adalah menyarankan koreksi ejaan.
IRTFM

@ 42 Saya ingin Anda mengeluh tentang fmtarg, maaf!
jangorecki

Saya pikir OP adalah setelah tempat desimal tetap daripada digit tetap. Tampaknya gjawaban Anda adalah untuk digit tetap, menggunakan fkarya lebih baik.
Mark Adamson

5

Jika Anda lebih suka digit signifikan daripada digit tetap, maka perintah signif mungkin berguna:

> signif(1.12345, digits = 3)
[1] 1.12
> signif(12.12345, digits = 3)
[1] 12.1
> signif(12345.12345, digits = 3)
[1] 12300

1
Terima kasih Paul. Keduanya tidak persis apa yang saya cari, tetapi menuntun saya ke round () yang tepat yang saya butuhkan. Cheers,
Brandon Bertelsen

34
Error: could not find function "fixed"
ThomasH

signifberfungsi untuk angka tertentu yang disediakan, tetapi saya menganggap masalah yang umum diterapkan adalah ketika Anda harus menunjukkan dua tempat desimal dengan tepat, tetapi Anda tidak tahu nomor apa yang ada di depan. Dalam hal ini, signifakan memberikan jumlah desimal yang berbeda tergantung pada jumlah sebenarnya.
Jeromy Anglim

3
diperbaiki tidak ditemukan di mana pun. Harap perbaiki, jika tidak jawaban yang menyesatkan ini harus dihapus.
HelloWorld

@ JeromyAnglim bagaimana cara memperbaikinya saat kita menginginkan 3sf? kadang-kadang memberi saya 3sf, lain kali 4sf, dll. bagaimana kita memperbaikinya?
christouandr7

4

Fungsi formatC()ini dapat digunakan untuk memformat angka menjadi dua tempat desimal. Dua tempat desimal diberikan oleh fungsi ini bahkan ketika nilai-nilai yang dihasilkan termasuk nol tambahan.


3

Saya menggunakan varian ini untuk mencetak desimal K:

# format numeric value to K decimal places
formatDecimal <- function(x, k) format(round(x, k), trim=T, nsmall=k)

2

Perhatikan bahwa objek numerik dalam R disimpan dengan presisi ganda , yang memberi Anda (kira-kira) 16 digit desimal presisi - sisanya akan noise. Saya akui bahwa angka yang ditunjukkan di atas mungkin hanya untuk contoh, tetapi panjangnya 22 digit.


3
Dikonfirmasi, itu hanya untuk contoh. Saya tumbuk keyboard.
Brandon Bertelsen

1

Sepertinya saya ingin menjadi seperti itu

library(tutoR)
format(1.128347132904321674821, 2)

Per sedikit bantuan online .


Saya menemukan ini, tetapi membutuhkan paket, saya mencari sesuatu di dalam paket dasar.
Brandon Bertelsen

2
@brandon, format () adalah bagian dari basis. Buka R dan ketik? Format ... tidak perlu paket.
JD Long

Hrmmm, apakah Anda melihat output apa ini? [1] "1.128347" jika tidak, Anda benar tentang hal itu karena berada dalam paket dasar, salahku.
Brandon Bertelsen

1
Mungkin mencoba format.default(x, digits = 2)hanya satu tembakan dalam gelap meskipun berdasarkan tautan yang disediakan. Info itu adalah beberapa kekurangan dari apa yang biasanya saya baca untuk dokumentasi, saya berharap untuk melihat hasil cetak juga.
Tim Meers

Hanya perhatikan bahwa tautan Anda mengarah ke dokumentasi tutoR, yang bukan bagian dari basis.
Brandon Bertelsen

1

jika Anda hanya ingin membulatkan angka atau daftar, cukup gunakan

round(data, 2)

Kemudian, data akan dibulatkan menjadi 2 desimal.

Dengan menggunakan situs kami, Anda mengakui telah membaca dan memahami Kebijakan Cookie dan Kebijakan Privasi kami.
Licensed under cc by-sa 3.0 with attribution required.