Програмування r

2

R: Як елегантно відокремити логіку коду від UI / html-тегів?

Проблема При динамічному створенні UI-елементів ( shiny.tag, shiny.tag.list, ...), я часто важко відокремити його від моєї логіки коди і зазвичай закінчуються згорнутим місивом вкладеного tags$div(...), змішане з петлями і умовними операторами. Хоча це дратує і некрасиво дивитися, але воно також схильне до помилок, наприклад, при внесенні змін у HTML-шаблони. Відтворюваний …

9 r shiny templating htmltools

1

Як вставити зображення в кожен окремий рядок у графіку ggplot

Я намагаюся порівняти різних новичок НБА в різних статистичних даних, і я подумав, що графік буде чудово виглядати, якби я міг додати обличчя гравця в кінці графіка, як у графах r / dataisbeautiful . Мій код наразі такий: a3 %>% ggplot(aes(x = reorder(Player, PPM), y = PPM)) + geom_bar(stat = …

9 r image ggplot2

3

Як ефективно сортувати символи в рядку в R?

Як я можу ефективно сортувати символи кожного рядка у векторному? Наприклад, заданий вектор рядків: 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))) Я написав функцію, яка розділить кожну рядок на вектор, сортуватиме вектор, а потім згортає вихід: …

9 r string performance sorting

4

Ефективний спосіб скидання рядків із накладеними часом

У мене довгий набір даних із стовпцями, що представляють час початку та зупинки, і я хочу скинути рядок, якщо він перетинається з іншим і має більш високий пріоритет (наприклад, 1 - найвищий пріоритет). Мої приклади є 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 17:37:00", "2019-10-06 04:43:55", …

9 r dplyr

2

Чому дві посилання на один і той же вектор повертають різні адреси пам'яті для кожного елемента вектора?

Я вивчаю R і зараз читаю цю книгу . Щоб переконатися, що я розумію концепцію, я провів наступний тест, який виявився для мене досить заплутаним, і я буду вдячний, якщо ви зможете його уточнити. Ось тест, який я запустив безпосередньо в оболонці R з терміналу (не використовуючи RStudio або Emacs …

9 r

1

Випадання змінної у формулі lm все ще викликає помилку контрасту

Я намагаюся запустити lm () лише на підмножину моїх даних і зіткнувся з проблемою. dt = data.table(y = rnorm(100), x1 = rnorm(100), x2 = rnorm(100), x3 = as.factor(c(rep('men',50), rep('women',50)))) # sample data lm( y ~ ., dt) # Use all x: Works lm( y ~ ., dt[x3 == 'men']) # …

9 r formula lm factors

2

Як я можу паралельно зберігати файли без автоматичного збільшення розміру файлу?

У мене є 2 сценарії, які роблять точно так само. Але один сценарій створює 3 файли RData, які мають вагу 82,7 Кб, а другий сценарій, створюючи 3 файли RData, вагою 120 КБ. перший без паралелі: library("plyr") ddply(.data = iris, .variables = "Species", ##.parallel=TRUE,##Without parallel .fun = function(SpeciesData){ #Create Simple Model …

9 r plyr

1

Автоматичне розміщення міток для GIS-карт в R

Я створюю GIS-карти в R, використовуючи sfпакет (та пов'язані з ним пакети) для читання у формі файлів та ggplot2(та друзів) для побудови графіків. Це прекрасно працює, але я не можу знайти (автоматично / програмно) створити мітки міток для таких функцій, як річки та дороги. Ці риси, як правило, є рядками …

9 r gis spatial sf ggrepel

Запитання з тегом «r»