Pemrograman r

1

Penempatan Label Otomatis untuk peta GIS di R

Saya membuat peta GIS di R menggunakan sfpaket (dan paket terkait) untuk dibaca di shapefile, dan ggplot2(dan teman) untuk merencanakan. Ini berfungsi dengan baik, tetapi saya tidak dapat menemukan cara (secara otomatis / terprogram) membuat penempatan label untuk fitur seperti sungai dan jalan. Fitur-fitur ini biasanya linestrings, dengan bentuk tidak …

9 r gis spatial sf ggrepel

2

Tampilkan beberapa potongan kode secara ringkas

Saya membuat blog dengan blogdownmana saya membandingkan kode dari R dan kode dari Stata. Saya ingin menunjukkan kedua kode sehingga pengguna dapat membandingkan bagaimana hal itu dilakukan dalam R dan di Stata. Namun, menempatkan dua atau lebih potongan berturut-turut (kode untuk R, kode untuk output Stata +) membuat pembacaannya cukup …

9 r blogdown

5

Regex untuk menghapus nol di awal R, kecuali karakter akhir (atau hanya) nol

gsub("(?<![0-9])0+", "", c("005", "0AB", "000", "0"), perl = TRUE) #> [1] "5" "AB" "" "" gsub("(^|[^0-9])0+", "\\1", c("005", "0AB", "000", "0"), perl = TRUE) #> [1] "5" "AB" "" "" Ekspresi reguler di atas berasal dari utas SO ini yang menjelaskan cara menghapus semua nol di awal dari string dalam …

9 r regex string gsub stringr

1

Bagaimana saya bisa menggunakan perintah `td` dari paket` tempdisagg` untuk memisahkan data bulanan menjadi frekuensi data harian?

Saya memiliki data frekuensi bulanan yang saya coba pisahkan menjadi data frekuensi harian. Jadi saya menggunakan tdperintah dari tempdisaggpaket di R menggunakan kode di bawah ini: dat=ts(data[,2]) result=td(dat~1, conversion = "average", to = "day", method = "chow-lin-maxlog") Lalu saya mendapatkan pesan kesalahan berikut: Error in td(dat ~ 1, conversion = …

9 r statistics time-series syntax-error frequency

1

Sampel RcppArmadillo () ambigu setelah memperbarui R

Saya biasanya bekerja dengan fungsi Rcpp pendek yang mengambil input matriks di mana setiap baris berisi probabilitas K yang berjumlah 1. Fungsi kemudian sampel secara acak untuk setiap baris bilangan bulat antara 1 dan K sesuai dengan probabilitas yang disediakan. Ini fungsinya: // [[Rcpp::depends(RcppArmadillo)]] #include <RcppArmadilloExtensions/sample.h> using namespace Rcpp; // …

9 r rcpp rcpparmadillo

1

Cara yang tepat untuk mengembalikan pointer ke objek `baru` dari fungsi Rcpp

Pertimbangkan 1) kelas khusus dengan cetakan memori yang berpotensi besar, dan 2) fungsi tingkat atas yang melakukan beberapa pra-pemrosesan, kemudian buat dan kembalikan objek baru dari kelas khusus kami. Untuk menghindari penyalinan yang tidak perlu dengan nilai, fungsi mengalokasikan objek dan mengembalikan pointer ke sana. Berdasarkan diskusi sebelumnya , tampaknya …

9 c++ r rcpp

6

Cocokkan dan hapus karakter yang digandakan: Ganti beberapa (3+) kejadian tidak berurutan

Saya mencari regexpola yang akan cocok dengan ketiga, keempat, ... kemunculan setiap karakter. Lihat di bawah untuk klarifikasi: Misalnya saya punya string berikut: 111aabbccxccybbzaa1 Saya ingin mengganti semua karakter yang digandakan setelah kejadian kedua. Outputnya adalah: 11-aabbccx--y--z--- Beberapa pola regex yang saya coba sejauh ini: Dengan menggunakan regex berikut ini, …

9 python r regex string

4

Adakah cara yang lebih cepat untuk memeriksa apakah daftar dalam daftar setara?

Di sini saya memiliki bilangan bulat 1:7untuk empat partisi yang berbeda, yaitu {1}, {2,3,4}, {5,6}, dan {7} dan partisi tersebut ditulis dalam daftar, yaitu list(1,c(2,3,4),c(5,6),7),. Saya memperlakukan partisi sebagai set, sehingga permutasi elemen yang berbeda dalam satu partisi harus diakui sebagai yang sama. Misalnya, list(1,c(2,3,4),c(5,6),7)dan list(7,1,c(2,3,4),c(6,5))setara. Perhatikan bahwa, tidak ada …

9 r algorithm list performance

1

Alternatif lebih cepat daripada deparse ()

Saya mengelola paket yang bergantung pada panggilan berulang deparse(control = c("keepNA", "keepInteger")). controlselalu sama, dan ekspresinya bervariasi. deparse()tampaknya menghabiskan banyak waktu berulang kali menafsirkan set pilihan yang sama dengan .deparseOpts(). microbenchmark::microbenchmark( a = deparse(identity, control = c("keepNA", "keepInteger")), b = .deparseOpts(c("keepNA", "keepInteger")) ) # Unit: microseconds # expr min lq …

9 r

3

Apa yang tidak bisa saya lakukan dengan dtplyr yang saya dapat di data.table

Haruskah saya menginvestasikan upaya belajar saya untuk perselisihan data dalam R, khususnya di antara dplyr, dtplyrdan data.table? Saya menggunakan dplyrsebagian besar, tetapi ketika data terlalu besar untuk itu saya akan gunakan data.table, yang jarang terjadi. Jadi sekarang dtplyrv1.0 keluar sebagai antarmuka untuk data.table, di permukaan sepertinya saya tidak perlu khawatir …

9 r dplyr data.table dtplyr

5

Membuat kolom baru secara kondisional berdasarkan pada n baris sebelumnya

Saya memiliki kerangka data yang diatur seperti berikut: df <- data.frame("id" = c(111,111,111,222,222,222,222,333,333,333,333), "Location" = c("A","B","A","A","C","B","A","B","A","A","A"), "Encounter" = c(1,2,3,1,2,3,4,1,2,3,4)) id Location Encounter 1 111 A 1 2 111 B 2 3 111 A 3 4 222 A 1 5 222 C 2 6 222 B 3 7 222 A 4 …

9 r dataframe dplyr duplicates

2

R: Bagaimana memisahkan logika kode dari UI / html-tag secara elegan?

Masalah Ketika secara dinamis membuat elemen ui ( shiny.tag,, shiny.tag.list...), saya sering merasa sulit untuk memisahkannya dari logika kode saya dan biasanya berakhir dengan kekacauan bersarang tags$div(...), dicampur dengan loop dan pernyataan kondisional. Meskipun menjengkelkan dan jelek untuk dilihat, itu juga rawan kesalahan, misalnya ketika membuat perubahan ke html-templates. Contoh …

9 r shiny templating htmltools

1

Cara menyisipkan gambar ke setiap bilah individual dalam grafik ggplot

Saya mencoba untuk membandingkan pemula NBA yang berbeda di seluruh statistik yang berbeda, dan saya pikir grafik akan terlihat bagus jika saya bisa menambahkan wajah pemain di akhir grafik seperti di r / data grafik yang indah . Kode saya saat ini: a3 %>% ggplot(aes(x = reorder(Player, PPM), y = …

9 r image ggplot2

3

Bagaimana cara mengurutkan karakter dalam string dalam R secara efisien?

Bagaimana saya bisa mengurutkan karakter setiap string secara efisien dalam vektor? Misalnya, diberi vektor string: set.seed(1) strings <- c(do.call(paste0, replicate(4, sample(LETTERS, 10000, TRUE), FALSE)), do.call(paste0, replicate(3, sample(LETTERS, 10000, TRUE), FALSE)), do.call(paste0, replicate(2, sample(LETTERS, 10000, TRUE), FALSE))) Saya telah menulis fungsi yang akan membagi setiap string menjadi vektor, mengurutkan vektor, dan …

9 r string performance sorting

4

Cara yang efisien untuk menjatuhkan baris dengan waktu yang tumpang tindih

Saya memiliki set data panjang dengan kolom yang mewakili waktu mulai dan berhenti, dan saya ingin menjatuhkan baris jika tumpang tindih dengan yang lain dan memiliki prioritas yang lebih tinggi (mis. 1 adalah prioritas tertinggi). Contoh data saya adalah library(tidyverse) library(lubridate) times_df <- tibble(start = as_datetime(c("2019-10-05 14:05:25", "2019-10-05 17:30:20", "2019-10-05 …

9 r dplyr

Pertanyaan yang diberi tag «r»