r- все статьи тега ➜ страница 4
Вызовите функцию apply-like для каждой строки фрейма данных с несколькими аргументами из каждой строки
у меня есть фрейм данных с несколькими столбцами. Для каждой строки в фрейме данных я хочу вызвать функцию в строке, и вход функции использует несколько столбцов из этой строки. Например, допустим, у меня есть эти данные и этот testFunc, который принимает два аргумента: > df <- data.frame(x=c(1,2), y=c(3,4), z=c(5,6)) > df x y z 1 1 3 5 2 2 4 6 > testFunc <- function(a, b) a + b допустим, я хочу применить этот testFunc к столбцам x и z. Итак, для строки 1 я хочу 1+5, а для ...
Связывая R и Джулию?
Юлия выглядит очень перспективной для быстрого и синтаксически-вменяемого вычисления (например здесь), но я подозреваю, что он еще не будет где-то рядом с R с точки зрения общего рабочего процесса статистики в течение некоторого времени. Поэтому я хотел бы использовать его там, где C++ в основном используется в R-программах: для оптимизации медленных частей кода. Однако, прежде чем я инвестирую время в изучение Джулии, мне любопытно, какие средства существуют для встраивания фрагментов Джулии ...
Удалите все метки оси x в ggplot [дубликат]
этот вопрос уже есть ответ здесь: сюжет ggplot2 без осей, легенды и т. д. 6 ответов Мне нужно удалить все на оси x, включая метки и деления, чтобы только ось y была помечена. Как бы я это сделал? на изображении ниже я хотел бы "ясность" и все деления и метки удаляются так, чтобы только линия оси была там. образец ggplot data(diamonds) ggplot(data = diamonds, mapping = aes(x = clarity)) + geom_bar(aes ...
Как увеличить размер шрифта в графике в R?
Я в замешательстве. Как правильно увеличить размер шрифта текста в заголовке, надписях и других местах сюжета? x <- rnorm(100) hist(x, xlim=range(x), xlab= "Variable Label", ylab="density", main="Title of plot", prob=TRUE, ps=30) The ps аргумент не изменяет размер шрифта (но он говорит в справке R для ?par что это для " размер точки текста (но не символов)". также можно отделить изменение размера шрифта от функции печати, такой как hist? ...
Что делать hjust и vjust делать, когда делать заговор, используя ggplot?
каждый раз, когда я делаю сюжет с помощью ggplot, я провожу немного времени, пытаясь разные значения для hjust и vjust в строке, как + opts(axis.text.x = theme_text(hjust = 0.5)) чтобы получить метки оси, чтобы выровнять, где метки оси почти касаются оси, и заподлицо с ней (выравнивается по оси, так сказать). Однако, я действительно не понимаю, что происходит. Часто,hjust = 0.5 дает такие резко отличающиеся результаты от hjust = 0.6, например, что я не смог понять это, просто играя вокруг с ...
Фильтрация данных.строки фрейма по логическому условию
Я хочу, чтобы отфильтровать строки data.frame на основе логического условия. Предположим, что у меня есть фрейм данных, как expr_value cell_type 1 5.345618 bj fibroblast 2 5.195871 bj fibroblast 3 5.247274 bj fibroblast 4 5.929771 hesc 5 5.873096 hesc 6 5.665857 hesc 7 6.791656 hips 8 7.133673 hips 9 7.574058 hips 10 7.208041 hips 11 7.402100 hips 12 7.167792 hips 13 7.1569 ...
Агрегировать / суммировать несколько переменных в группе (например, sum, mean)
из фрейма данных, есть ли простой способ агрегировать (sum,mean,max et c) несколько переменных одновременно? ниже приведены некоторые примеры данных: library(lubridate) days = 365*2 date = seq(as.Date("2000-01-01"), length = days, by = "day") year = year(date) month = month(date) x1 = cumsum(rnorm(days, 0.05)) x2 = cumsum(rnorm(days, 0.05)) df1 = data.frame(date, year, month, x1, x2) Я хотел бы одновременно агрегировать x1 и x2 переменные df2 фрейм данных по годам и месяцам. Следующий код ...
Среднее значение для каждой группы в данных.кадр [дубликат]
этот вопрос уже есть ответ здесь: агрегировать / суммировать несколько переменных в группе (например, sum, mean) 5 ответов у меня есть data.frame и мне нужно вычислить среднее значение для каждой группы (т. е. за Month ниже). Name Month Rate1 Rate2 Aira 1 12 23 Aira 2 18 73 Aira 3 19 45 Ben 1 53 19 Ben 2 22 ...
Извлечение столбца dplyr tbl в качестве вектора
есть ли более краткий способ получить один столбец dplyr tbl в качестве вектора из tbl с базой данных back-end (т. е. фрейм данных/таблица не может быть подмножеством напрямую)? require(dplyr) db <- src_sqlite(tempfile(), create = TRUE) iris2 <- copy_to(db, iris) iris2$Species # NULL Это было бы слишком просто, поэтому collect(select(iris2, Species))[, 1] # [1] "setosa" "setosa" "setosa" "setosa" etc. но это кажется немного неуклюжим. ...
Добавление легенды к линейному участку ggplot2
у меня есть вопрос о легендах в ggplot2. Мне удалось построить три линии на одном графике и добавить легенду с тремя используемыми цветами. Это код, используемый library(ggplot2) require(RCurl) link<-getURL("https://dl.dropbox.com/s/ds5zp9jonznpuwb/dat.txt") datos<- read.csv(textConnection(link),header=TRUE,sep=";") datos$fecha <- as.POSIXct(datos[,1], format="%d/%m/%Y") temp = ggplot(data=datos,aes(x=fecha, y=TempMax,colour="1")) + geom_line(colour="red") + opts( ...
обещание уже в стадии оценки: рекурсивная ссылка на аргумент по умолчанию или более ранние проблемы?
вот мой R-код. Функции определяются как: f <- function(x, T) { 10 * sin(0.3 * x) * sin(1.3 * x ^ 2) + 0.001 * x ^ 3 + 0.2 * x + 80 } g <- function(x, T, f=f) { exp(-f(x) / T) } test <- function(g=g, T=1) { g(1, T) } запущенная ошибка: тест -> () Ошибка в тесте() : обещание уже в стадии оценки: рекурсивная ссылка на аргумент по умолчанию или более ранние проблемы? если я подставлю определение f на g, то ошибка уходит. мне было интересно, в чем ошибка? Как это ...
Зачем использовать purrr:: map вместо lapply?
есть ли причина, почему я должен использовать map(<list-like-object>, function(x) <do stuff>) вместо lapply(<list-like-object>, function(x) <do stuff>) результат должен быть таким же, и тесты, которые я сделал, похоже, показывают, что lapply немного быстрее (это должно быть как map необходимо оценить все нестандартные оценки ввода). так есть ли причина, почему для таких простых случаев я должен на самом деле рассмотреть вопрос о переходе на purrr::map? Я не спрашив ...
Как дождаться нажатия клавиши в R?
Я хочу приостановить свой сценарий R, пока пользователь не нажмет клавишу. Как мне это сделать? ...
Разбиение кода на несколько строк в скрипте R
Я хочу разделить строку в скрипте R на несколько строк (потому что она слишком длинная). Как мне это сделать? в частности, у меня есть строка, такая как setwd('~/a/very/long/path/here/that/goes/beyond/80/characters/and/then/some/more') можно ли разбить длинный путь на несколько строк? Я пытался setwd('~/a/very/long/path/here/that/goes/beyond/80/characters/and/ then/some/more') С return ключ в конце первой строки; но это не работает. спасибо. ...
Каков наилучший способ использования R-скриптов в командной строке (терминале)?
очень удобно иметь R-скрипты для выполнения простых графиков из командной строки. Однако запуск R из сценариев bash совсем не удобен. Идеальным может быть что-то вроде #!/path/to/R ... или #!/usr/bin/env R ... но я не смог заставить ни один из них работать. другой вариант-Сохранить скрипты чисто в R, например script.R, и вселить его в R --file=script.R или аналогичные. Однако иногда сценарий будет полагаться на неясную командную строку переключатели в какой момент часть кода существует ...
Удаление дублированных строк
Я прочитал CSV файл в R данных.рамка. Некоторые строки имеют один и тот же элемент в одном из столбцов. Я хочу удалить дубликаты строк в этом столбце. Например: platform_external_dbus 202 16 google 1 platform_external_dbus 202 16 space-ghost.verbum 1 platform_external_dbus 202 16 localhost 1 platform_external_dbus 202 16 users.sourceforge ...
Глобальные и локальные переменные в R
Я новичок в R, и я совершенно запутался с использованием локальных и глобальных переменных в р. Я читал некоторые сообщения в интернете, которые говорят, если я использую = или <- Я назначу переменную в текущей среде, и с <<- Я могу получить доступ к глобальной переменной внутри функции. однако, как я помню, в C++ локальные переменные возникают всякий раз, когда вы объявляете переменную внутри скобок {}, так что мне интересно, если это то же самое для R? Или это только для функции в R ...
Изменение порядка дискретной шкалы x
Я делаю уклоненную гистограмму с использованием ggplot с дискретной шкалой x, ось x теперь расположена в алфавитном порядке, но мне нужно переставить ее так, чтобы она была упорядочена по значению оси y (т. е. самый высокий бар будет расположен слева). Я попытался упорядочить или отсортировать, но в результате отсортировать ось x, но не бары соответственно. Что я сделал не так? ...
Подсчет уникальных значений
допустим, у меня есть: v = rep(c(1,2, 2, 2), 25) теперь, я хочу, чтобы подсчитать, сколько раз каждое уникальное значение. unique(v) возвращает уникальные значения, а не сколько их. > unique(v) [1] 1 2 Я хочу что-то, что дает мне length(v[v==1]) [1] 25 length(v[v==2]) [1] 75 но как более общий однострочный:) что-то близкое (но не совсем) вроде этого: #<doesn't work right> length(v[v==unique(v)]) ...
Применение функции к каждой строке матрицы или фрейма данных
предположим, что у меня есть матрица n на 2 и функция, которая принимает 2-вектор в качестве одного из своих аргументов. Я хотел бы применить функцию к каждой строке матрицы и получить n-вектор. Как это сделать в R? например, я хотел бы вычислить плотность 2D стандартного нормального распределения по трем точкам: bivariate.density(x = c(0, 0), mu = c(0, 0), sigma = c(1, 1), rho = 0){ exp(-1/(2*(1-rho^2))*(x[1]^2/sigma[1]^2+x[2]^2/sigma[2]^2-2*rho*x[1]*x[2]/(sigma[1]*sigma[2]))) * 1/(2*pi*s ...