программирование 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

1

Автоматическое размещение меток для карт ГИС в R

Я делаю ГИС-карты в R, используя sfпакет (и связанные с ним пакеты) для чтения в шейп-файлах и ggplot2(и друзей) для построения графиков. Это работает нормально, но я не могу найти способ (автоматически / программно) создать места размещения меток для таких объектов, как реки и дороги. Эти особенности обычно представляют собой …

9 r gis spatial sf ggrepel

2

Показать несколько фрагментов кода в сжатой форме

Я создаю блог, blogdownв котором я сравниваю код из R и код из Stata. Я хотел бы показать оба кода, чтобы пользователь мог сравнить, как это делается в R и в Stata. Однако размещение двух или более блоков подряд (код для R, код для Stata + вывод) делает чтение довольно …

9 r blogdown

5

Regex для удаления начальных нулей в R, если только последний (или единственный) символ не равен нулю

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" "" "" Приведенное выше регулярное выражение взято из этого потока SO, объясняющего, как удалить все начальные нули из строки в R. В …

9 r regex string gsub stringr

1

Как я могу использовать команду `td` из пакета` tempdisagg` для дезагрегации ежемесячных данных по ежедневной частоте?

У меня есть данные о частоте за месяц, которые я пытаюсь разбить на данные о частоте за день. Поэтому я использую tdкоманду из tempdisaggпакета в R, используя код ниже: dat=ts(data[,2]) result=td(dat~1, conversion = "average", to = "day", method = "chow-lin-maxlog") Тогда я получаю следующее сообщение об ошибке: Error in td(dat …

9 r statistics time-series syntax-error frequency

1

Образец RcppArmadillo () неоднозначен после обновления R

Я обычно работаю с короткой функцией Rcpp, которая принимает в качестве входных данных матрицу, в которой каждая строка содержит K вероятностей, сумма которых равна 1. Затем функция случайным образом выбирает для каждой строки целое число от 1 до K, соответствующее предоставленным вероятностям. Это функция: // [[Rcpp::depends(RcppArmadillo)]] #include <RcppArmadilloExtensions/sample.h> using namespace …

9 r rcpp rcpparmadillo

1

Правильный способ вернуть указатель на `новый` объект из функции Rcpp

Рассмотрим 1) пользовательский класс с потенциально большим объемом памяти и 2) функцию верхнего уровня, которая выполняет некоторую предварительную обработку, а затем создает и возвращает новый объект нашего пользовательского класса. Чтобы избежать ненужного копирования по значению, функция выделяет объект и вместо него возвращает указатель. Исходя из предыдущего обсуждения , кажется, что …

9 c++ r rcpp

6

Совпадение и удаление повторяющихся символов: замена нескольких (3+) непоследовательных вхождений

Я ищу regexшаблон, который будет соответствовать третьему, четвертому, ... вхождению каждого персонажа. Посмотрите ниже для уточнения: Например, у меня есть следующая строка: 111aabbccxccybbzaa1 Я хочу заменить все дублированные символы после второго вхождения. Выход будет: 11-aabbccx--y--z--- Некоторые шаблоны регулярных выражений, которые я пробовал до сих пор: Используя следующее регулярное выражение, я …

9 python r regex string

4

Есть ли более быстрый способ проверить, эквивалентны ли списки в списке?

Здесь у меня есть целые числа 1:7для четырех различных разделов, т.е. {1}, {2,3,4}, {5,6} и {7} и эти разделы написаны в списке, то есть list(1,c(2,3,4),c(5,6),7). Я рассматриваю разделы как наборы, так что различные перестановки элементов в одном разделе должны распознаваться как один и тот же. Например, list(1,c(2,3,4),c(5,6),7)и list(7,1,c(2,3,4),c(6,5))эквивалентны. Обратите внимание, …

9 r algorithm list performance

1

Более быстрая альтернатива deparse ()

Я поддерживаю пакет, который опирается на повторные звонки deparse(control = c("keepNA", "keepInteger")). controlвсегда то же самое, и выражение меняется. deparse()похоже, тратит много времени на многократную интерпретацию одного и того же набора параметров .deparseOpts(). microbenchmark::microbenchmark( a = deparse(identity, control = c("keepNA", "keepInteger")), b = .deparseOpts(c("keepNA", "keepInteger")) ) # Unit: microseconds # …

9 r

3

Что я не могу сделать с dtplyr, что я могу в data.table

Должен ли я инвестировать свои усилия в обучение для обработки данных в R, особенно между dplyr, dtplyrи data.table? Я использую в dplyrосновном, но когда данные слишком велики для этого, я буду использовать data.table, что встречается редко. Итак, теперь, когда dtplyrv1.0 вышел в качестве интерфейса data.table, на первый взгляд кажется, что …

9 r dplyr data.table dtplyr

5

Создание нового столбца условно на основе предыдущих n строк

У меня есть фрейм данных, настроенный следующим образом: 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: Как элегантно отделить логику кода от UI / html-тегов?

проблема При динамическом создании UI-элементов ( shiny.tag, shiny.tag.list, ...), я часто трудно отделить его от моей логики коды и обычно заканчиваются свернутым месивом вложенного tags$div(...), смешанное с петлями и условными операторами. Несмотря на то, что на это надо смотреть и надоедать, оно также подвержено ошибкам, например, при внесении изменений в …

9 r shiny templating htmltools

1

Как вставить картинки в каждый отдельный столбец на графике ggplot

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

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

Вопросы с тегом «r»