Saya mencari cara untuk memisahkan string, tetapi alih-alih membelah dengan garis bawah atau kata tertentu, saya ingin memisahkan dari serangkaian kata - dan juga tidak menghapus kata itu. Sebagai contoh, a <- c("Hello", "Joe", "Simpsons", "Oh_No", "Hiya_Hi", "oh") b <- c("sum", "sum_one") x <- pas....
26 Januari 2022, 18:19
Saya memiliki data.frame dengan ratusan kolom di mana masing-masing adalah biner ("YA"/"TIDAK") untuk kemungkinan hasil pada pengukuran, dan dapat diciutkan ke daftar pendek variabel dengan beberapa opsi (tidak ada yang diciutkan variabel memiliki lebih dari satu YA). Saya mencoba mencari tahu ker....
26 Januari 2022, 17:45
Saya memiliki data ini: data <- structure(list(client_id = c("A", "B", "C", "D", "E", "F" )), row.names = c(NA, -6L), class = c("tbl_df", "tbl", "data.frame" )) Di mana saya harus mencocokkannya dengan data_to_match ini: data_to_match <- structure(list(client_id = c("A", "E", "F" )), row.names = c....
r
26 Januari 2022, 17:24
Saya mencoba membuat fungsi yang memanggil kolom di tabel data yang disediakan sebagai salah satu argumen di bawah ini: df <- read.table(text = "x1 x2 y CA 20 50 CA 30.5 100 CA 40.5 200 AZ 20.12 400 AZ 25 500 OR 86 600 OR 75 700 OR 45 800", header = TRUE) df$x1 <- as.factor(df$x1) library(data.tab....
26 Januari 2022, 17:14
Saya ingin sum kerangka data yang berisi argumen non-numerik. Ketika saya melakukan fungsi tambah sederhana saya menerima kesalahan berikut: "Kesalahan dalam FUN(kiri, kanan): argumen non-numerik ke operator biner". Bagaimana saya bisa memecahkan masalah ini? Contoh1: `04:00` `04:10` `04:20` <chr....
26 Januari 2022, 15:51
Saya ingin mendapatkan jumlah variabel yang bergantung pada nilai na atau non-na variabel lain di R. Contoh kode yang berfungsi di bawah ini: library(dplyr) df <- data.frame(A = c(1,2,3,NA,4), B = c(NA,2,3,NA,5), C = c(3,4,NA,NA,NA), REF = c(10,20,....
26 Januari 2022, 15:19
Saya mencoba meneruskan daftar elemen sebagai argumen ke skrip R. R -f myscript.R --people "James" "John" "Emily" "Anna" Saya mencoba menggunakan perpustakaan optparse untuk mencoba dan melakukannya sama dengan jawaban ini yang menggunakan argparser di python.....
r
26 Januari 2022, 15:07
Saya memiliki fungsi yang mengambil bingkai data sebagai input. Saya ingin membuat kolom yang berisi nama bingkai data. Seperti pada contoh berikut: the_df <- tibble(a=c(1,2,3), b=c(1,2,3)) func <- function(df){ df <- df %>% mutate(dataframe = "name_of_df") return(df) } func....
26 Januari 2022, 15:04
Saya menulis paket-R dan dokumentasinya menggunakan roxygen2 untuk mendokumentasikan fungsi saya dan pkgdown untuk membuat halaman github. Paket ini tentang raster, jadi saya telah menyertakan beberapa plot raster dalam contoh dokumentasi fungsi saya. Ketika contoh dijalankan di konsol semuanya terl....
26 Januari 2022, 14:53
Saya sering melakukan ini: library(tidyverse) iris %>% group_by(Species) %>% summarise(num_Species = n_distinct(Species)) %>% mutate(perc_Species = 100 * num_Species / sum(num_Species)) Jadi saya ingin membuat fungsi yang menghasilkan hal yang sama tetapi dengan kolom num_ dan perc_ yang ....
26 Januari 2022, 14:44
Saya memiliki kerangka data yang berisi berbagai aktivitas/peristiwa, hari terjadinya, dan durasi aktivitas. Saya sekarang ingin membuat kerangka data baru yang berisi jumlah kejadian peristiwa B yang hanya dikelompokkan berdasarkan hari (jadi dua kolom, hari dan jumlah kejadian). Daily_Duration a....
26 Januari 2022, 14:34
Saya telah menyesuaikan sumbu sekunder ke unit menambahkan koefisien /100. Namun, titik data (B) tidak diplot menurut sumbu sekunder dan tetap kecil. data<- data.frame( Days=(1:10), A=c(34,1,22,1,3,0,2,5,0,8), B= c(0.2,0.2,0.2,0.2,0.3,0.3,0.2,0.1,0.1,0.3)) coeff2<- 100 ggplot(da....
26 Januari 2022, 13:57
Untuk df berikut, jika tidak ada type dengan semua NA atau NA_real_, kode berikut berfungsi: library(gt) library(gtExtras) df <- structure( list( type = c("v1", "v2", 'v3'), `2017-06` = c(300, 100, NA_real_), `2017-07` = c(10, 900, NA_real_), `2017-08` = c(500, NA, NA_real_), `20....
26 Januari 2022, 13:52
Saat ini saya mengikuti ini tutorial untuk belajar membuat plot animasi menggunakan gganimate Perpustakaan. Namun saya sudah berjuang dengan animasi pertama. Sementara animasi itu sendiri berfungsi, resolusinya diturunkan dibandingkan dengan contoh di situs web. Mengubah ukuran 'Penampil' di RStu....
26 Januari 2022, 13:52
Saya mendapatkan peringatan ini setiap kali saya menjalankan Aplikasi shiny saya. Peringatan di processWidget(instance) : renderDataTable mengabaikan ... argumen ketika expr menghasilkan objek yang dapat didata; lihat ?renderDataTable Ini adalah contoh yang dapat direproduksi: library(shiny) librar....
26 Januari 2022, 13:51
Saya punya masalah dengan loop saya pada kolom kerangka data yang memanggil fungsi yang saya buat di setiap iterasi. Saya mencari cara untuk mengurangi waktu de run. Apakah ada kemungkinan untuk membuatnya? Lingkaran for (i in df_contacts$id) { tab[nrow(tab) + 1,] <- makeHistoryObservedTroubles(c....
r
26 Januari 2022, 13:32
Saya pikir judulnya mengatakan itu semua Mari kita lompat ke contoh Bayangkan saya memiliki vektor (yang isinya tidak relevan untuk contoh ini) aux<-c(1:5) Saya perlu membuat bingkai data yang memiliki vektor yang sama berulang n kali (n dapat bervariasi, terkadang 8 kali, terkadang 7) Saya melakuk....
26 Januari 2022, 13:24
Saya telah menerima bidang dengan koordinat XY yang memiliki desimal sebagai koma, tetapi saya tidak dapat membuka file ini dengan benar di R. Beginilah tampilan data saya - catat koma sebagai indikator desimal dalam koordinat y: "OBJECTID";"x_coord";"y_coord" "1";"664936,3059";"5582773,2319" # co....
26 Januari 2022, 12:41
Sebuah dput() data yang saya ingin gunakan ini disertakan di bawah ini. Saya mencoba memplot diagram batang (ditumpuk atau tidak) yang memvisualisasikan jumlah orang dengan dan tanpa karakteristik biner (dalam hal ini, kehadiran LGE). Saya kemudian ingin menunjukkan dua pasang batang yang dikelompo....
26 Januari 2022, 11:51
Saya memiliki vektor numerik seperti ini x <- c(1, 23, 7, 10, 9, 2, 4) dan saya ingin mengelompokkan elemen dari kiri ke kanan dengan batasan bahwa setiap jumlah grup tidak boleh melebihi 25. Jadi, di sini grup pertama adalah c(1, 23), yang kedua adalah c(7, 10) dan terakhir c(9, 2, 4). outpu....
26 Januari 2022, 11:41
Saya memiliki file csv yang terdiri dari 10.000 baris. Saya akan menunjukkan 12 baris teratas yang berisi nilai-nilai termasuk header. Saya ingin mengelompokkan nilai untuk masing-masing variabel dan kemudian menghitung berapa kali nilai muncul di atas jumlah total nilai untuk masing-masing variab....
r csv
26 Januari 2022, 08:23
Saya punya 2 df. Df_tailnum, daftar tailnum unik TailNum <chr> 1 N657AW 2 N834AW 3 N605AW 4 N312AW 5 N309AW 6 N733UW 7 N177UW 8 N404US 9 N722UW 10 N104UW Dan df_planes, dengan informasi nama-nama tailnum tailnum type manufacturer issue_date model status aircraft_type ....
r
26 Januari 2022, 08:18
Saya mencoba mendapatkan nama kolom dan indeksnya, dan menyimpan hasilnya sebagai kerangka data atau kamus: df <- data.frame(a=rnorm(10), b=rnorm(10), c=rnorm(10)) Bagaimana saya bisa melakukan itu? Terima kasih. column index a 1 b 2 c 3 ....
26 Januari 2022, 07:15
Dengan asumsi saya memiliki data panel sebagai berikut, yang diedit dari tautan ini: df <- structure(list(id = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c("M01", "M02", "S01"), class = "factor"), date = structure(c(2L, 3L, 4L, 5L....
26 Januari 2022, 06:09
Bagaimana cara mengonversi banyak kolom menjadi numerik ketika itu adalah karakter karena menyertakan '$'? library(data.table) dt = data.table( text = c('a', 'b', 'c'), price = c('1.1', 2.2, 3.3), other = c('$1','$2','$3') ) Saya pikir yang berikut ini mungkin berhasil: dt[ , names(dt) := as.list( ....
26 Januari 2022, 05:23