программирование r

3

Как посмотреть исходный код функции R.Internal или .Primitive?

Ни один из них не показывает исходный код pnormфункции, stats:::pnorm getAnywhere(pnorm) Как я могу увидеть исходный код pnorm? sum (..., na.rm = FALSE) .Primitive("sum") .Primitive("sum") function (..., na.rm = FALSE) .Primitive("sum") methods(sum) no methods were found и как я могу увидеть исходный код sumфункции?

81 r

3

Суммирование строк в data.frame или матрице

У меня очень большой фрейм данных со строками в качестве наблюдений и столбцами в качестве генетических маркеров. Я хотел бы создать новый столбец, содержащий сумму выбранного количества столбцов для каждого наблюдения с использованием R. Если у меня 200 столбцов и 100 строк, я хотел бы создать новый столбец, содержащий 100 …

81 r

3

ggplot, объединяющий два графика из разных data.frames

Я хочу объединить два ggplots из двух разных data.frames в один график. Ниже вы найдете код. Я хочу объединить участки 1 и 2 или участки 3 и 4. df1 <- data.frame(p=c(10,8,7,3,2,6,7,8), v=c(100,300,150,400,450,250,150,400)) df2 <- data.frame(p=c(10,8,6,4), v=c(150,250,350,400)) plot1 <- qplot(df1$v, df1$p) plot2 <- qplot(df2$v, df2$p, geom="step") plot3 <- ggplot(df1, aes(v, p)) …

81 r ggplot2

13

Элегантный способ сообщить об отсутствующих значениях в data.frame

Вот небольшой фрагмент кода, который я написал для сообщения о переменных с отсутствующими значениями из фрейма данных. Я пытаюсь придумать более элегантный способ сделать это, возможно, вернув data.frame, но я застрял: for (Var in names(airquality)) { missing <- sum(is.na(airquality[,Var])) if (missing > 0) { print(c(Var,missing)) } } Изменить: я имею …

80 r dataframe missing-data

4

В чем разница между facet_wrap () и facet_grid () в ggplot2?

Я читал ggplot2документацию по обеим функциям. Мне было интересно, в чем разница и какая ситуация будет правильной для использования каждой функции ( facet_wrap()и facet_grid()). library(ggplot2) p <- qplot(displ, hwy, data = mpg) p + facet_wrap(~ cyl) p + facet_grid(~ cyl) Я привожу этот небольшой пример в качестве отправной точки. Разница, …

80 r ggplot2 facet-wrap

4

я могу изменить положение метки полосы в ggplot сверху вниз?

Я знаю, что это не совсем проблема с визуализацией данных, но босс попросил об этом, поэтому мне нужно выяснить, возможно ли это. Благодаря!

80 r ggplot2 strip facet

10

Как распечатать (на бумаге) красиво отформатированный фрейм данных

Я хотел бы напечатать красиво отформатированные фреймы данных на бумаге, в идеале из сценария. (Я пытаюсь собрать данные с помощью инструмента и автоматически обработать и распечатать их с помощью сценария R). Прямо сейчас я могу записать фрейм данных в текстовый файл, используя write.table(), но здесь есть две проблемы: Полученный текстовый …

80 r dataframe formatting

13

Как преобразовать матрицу в список векторов-столбцов в R?

Допустим, вы хотите преобразовать матрицу в список, где каждый элемент списка содержит один столбец. list()или as.list()явно не сработает, и до сих пор я использую хак, использующий поведение tapply: x <- matrix(1:10,ncol=2) tapply(x,rep(1:ncol(x),each=nrow(x)),function(i)i) Меня это не совсем устраивает. Кто-нибудь знает более чистый метод, который я не замечаю? (для создания списка, заполненного …

80 list r matrix

3

Создайте data.frame, где столбец - это список

Я знаю, как добавить столбец списка: > df <- data.frame(a=1:3) > df$b <- list(1:1, 1:2, 1:3) > df a b 1 1 1 2 2 1, 2 3 3 1, 2, 3 Это работает, но нет: > df <- data.frame(a=1:3, b=list(1:1, 1:2, 1:3)) Error in data.frame(1L, 1:2, 1:3, check.names = …

80 r list dataframe

7

Получить все параметры в виде списка

Предоставляет ли R объект / функцию / метод / ключевое слово для получения всех аргументов функции? Используя пример: function(a, b="default", ...)предоставит aи, bа также ...в функциональной среде. Есть ли утверждение, подобное list(...)этому, также включало бы aи bв результат? Или другими словами: сокращение для list(a=a, b=b, ...)данногоfunction(a, b, ...)

80 r

4

R: что такое слоты?

Кто-нибудь знает, что такое слот в R? Я не нашел объяснения его значения. Получаю рекурсивное определение: «Функция слота возвращает или устанавливает информацию об отдельных слотах объекта» Помощь будет признательна, спасибо - Аллея

79 oop r s4 slot r-faq

2

Какой правильный / стандартный способ проверить, меньше ли разница, чем точность станка?

Я часто оказываюсь в ситуациях, когда необходимо проверить, превышает ли полученная разница точность станка. Похоже , что для этой цели R имеет удобную переменную: .Machine$double.eps. Однако, когда я обращаюсь к исходному коду R за рекомендациями по использованию этого значения, я вижу несколько разных шаблонов. Примеры Вот несколько примеров из statsбиблиотеки: …

36 r floating-point rounding precision

14

Подсчет и суммирование последовательностей положительных и отрицательных чисел

Я хочу написать код для подсчета и суммирования любых положительных и отрицательных серий чисел. Числа либо положительные, либо отрицательные (без нуля). Я написал коды с forпетлями. Есть ли творческая альтернатива? Данные р set.seed(100) x <- round(rnorm(20, sd = 0.02), 3) питон x = [-0.01, 0.003, -0.002, 0.018, 0.002, 0.006, -0.012, …

31 python r

7

Как заменить NA с набором значений

У меня есть следующий фрейм данных: library(dplyr) library(tibble) df <- tibble( source = c("a", "b", "c", "d", "e"), score = c(10, 5, NA, 3, NA ) ) df Это выглядит так: # A tibble: 5 x 2 source score <chr> <dbl> 1 a 10 . # current max value 2 …

18 r dplyr tibble

5

data.table линейно интерполируя значения NA без групп

Я хотел заполнить некоторые значения NA в data.table без групп. Пожалуйста, рассмотрите этот фрагмент data.table, представляющий время и расстояния: library(data.table) df <- data.frame(time = seq(7173, 7195, 1), dist = c(31091.33, NA, 31100.00, 31103.27, NA, NA, NA, NA, 31124.98, NA,31132.81, NA, NA, NA, NA, 31154.19, NA, 31161.47, NA, NA, NA, NA, …

18 r data.table

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