r- все статьи тега ➜ страница 2
Как удалить фасеты из ggplot2 facet wrap?
Я пытаюсь использовать пакет cregg через примеры здесь. Учебник работает хорошо. Однако после создания графика с фасетированием должен быть самый правый столбец с меткой NA. Я пробовал несколько способов, но все еще не могу удалить его. Кто-нибудь может помочь? Спасибо! Коды следующие: library("cregg") data("immigration") stacked <- cj(immigration, ChosenImmigrant ~ Gender + Education + LanguageSkills + CountryOfOrigin + Job + JobExperience + JobPlans + ReasonForApplic ...
как изменить ширину зазоров между панелями в фасетке в ggplot2?
Как заголовок, у меня есть довольно много панелей при создании диаграммы с помощью ggplot, и я думаю, что разрыв немного слишком широк, могу ли я его отрегулировать? Спасибо! ...
Как присвоить уникальный идентификационный номер каждой группе идентичных значений в столбце [дубликат]
На этот вопрос уже есть ответ здесь: добавить столбец ID по группе [дубликат] 4 ответа У меня есть фрейм данных с несколькими столбцами. Я хотел бы создать новый столбец под названием "id", который дает уникальный идентификационный номер каждой группе идентичных значений в столбце" образец". Пример данных: # dput(df) df <- structure(list(index = 1:30, val = c(14L, 22L, 1L, 25L, 3L, 34L, 35L, 36 ...
Создание многоуровневой диаграммы
У меня есть две таблицы, в которых хранятся попытки входа пользователей. Одна таблица содержит все успешные логины, а другая-неудачные попытки. Я пытаюсь создать диаграмму с накоплением, используя количество неудачных входов и количество успешных входов. Вот как выглядят мои таблицы: Таблица Success_login: User_ID Site_Address Login_Attempts 1 xxx.xxx.xxx 5 2 xxx.xxy.yyy 10 Fail_login Таблица: User_ID Site_Address Login_Attempts 1 xxx.xxx.xxx 2 2 x ...
Регрессия хребта с "glmnet" дает другие коэффициенты, чем то, что я вычисляю по "определению учебника"?
Я выполняю регрессию гребня с использованием glmnet R пакет. Я заметил, что коэффициенты, которые я получаю из функции glmnet::glmnet, отличаются от тех, которые я получаю, вычисляя коэффициенты по определению (с использованием того же лямбда-значения). Может кто-нибудь объяснить мне почему? Данные (как ответ Y, так и матрица проектирования X) масштабируются. library(MASS) library(glmnet) # Data dimensions p.tmp <- 100 n.tmp <- 100 # Data objects set.seed(1) X <- scale(mvrnorm(n.tm ...
R, python или octave: эмпирический квантиль (обратный cdf) с доверительными интервалами?
Я ищу встроенную функцию, которая возвращает квантиль выборки и оценочный доверительный интервал в чем-то другом, чем MATLAB (MATLAB ecdf делает это). Я предполагаю, что у R есть этот встроенный,и я просто еще не нашел его. Если у вас есть какой-либо отдельный код для этого, вы также можете указать на него здесь, хотя я надеюсь найти что-то, что входит в большую открытую базу кода. - попытка уйти от MATLAB. ...
Вычислить разницу между значениями с почти идентичной меткой времени
Пожалуйста, рассмотрите эти входные данные: у меня есть два инструмента (41 и 54). Они оба измеряют давление в нескольких резервуарах (T1 и T2). Они измеряют давление почти одновременно, но не совсем точно. Пример данных: data <- data.table( time = as.POSIXct(paste("2017-01-01", c("11:59", "12:05", "12:02", "12:03", "14:00", "14:01", "14:02", "14:06")), tz = "GMT"), instrumentId = c(41, 54, 41, 54, 41, 54, 41, 54), tank = c("T1", "T1", "T2", "T2", "T1", "T1", "T2", "T2"), ...
Изменение цвета фона графика R
Хорошо, допустим, у меня есть следующий сюжет. df = data.frame(date=c(rep(2008:2013, by=1)), value=c(303,407,538,696,881,1094)) barplot(df$value, main="TITLE", col="gray", ylab="People", xlab="Years") Как изменить фон на темно-синий? Я знаю, что это возможно с ggplot2, но не уверен, что смогу сделать это с базовой графикой. ...
R нормализовать затем построить две гистограммы вместе в R
Я понимаю, что было несколько сообщений для людей, спрашивающих, как построить две гистограммы вместе бок о бок (как на одном графике с барами рядом друг с другом) и наложить их в R, а также о том, как нормализовать данные. Следуя совету, который я нашел, я могу сделать одну или другую операцию, но не обе. Вот настройка. У меня есть два фрейма данных разной длины, и я хотел бы построить объем объектов в каждом df в виде гистограммы. Например, сколько в кадре данных 1 между.1-.2 um^3 и сравните ...
Оценка лямбды для преобразования Йо и Джонсона
У меня есть временной ряд значений осадков в файле csv.Я построил гистограмму данных. Гистограмма смещена влево. Я хотел преобразовать значения так, чтобы они имели нормальное распределение. Я использовал преобразование Йео-Джонсона, доступное в R. преобразованные значения здесь. Мой вопрос: В приведенном выше преобразовании я использовал тестовое значение 0,5 для лямбды, которое отлично работает. Есть ли возможность определить оптимальное значение лямбды на основе временной ряд? Буду призна ...
Р - Добавить новый столбец к таблице данных, используя соответствующие значения из другой таблицы данных
Я пытаюсь заполнить таблицу 1 соответствующими значениями val2 таблицы 2 table1$New_val2 = table2[table2$pid==table1$pid,]$val2 Но я получаю предупреждение longer object length is not a multiple of shorter object length Что вполне справедливо, поскольку длины таблиц не одинаковы. Пожалуйста, направьте меня на правильный путь, чтобы сделать это. ...
Легенда разочаровывает при построении графика в R
Я построил пять графиков и легенду. Графики работают просто отлично, однако legens исчезает без ошибки. мой предварительный просмотр в RStudio выглядит так Когда я увеличиваю масштаб, область, где должна быть легенда, пуста. Я использую следующий код: opar <- par (no.readonly = TRUE) par (mfrow = c(3, 2)) library(deSolve) # Plot A LotVmod <- function (Time, State, Pars) { with(as.list(c(State, Pars)), { dx = (b*x) - (b*x*x/K) - (y*(x^k/(x^k+C^k)*(l*x/(1+l*h*x)))) ...
Что такое функции замены в R?
Я искал ссылку, чтобы узнать о функциях замены в R, но пока не нашел ни одной. Я пытаюсь понять концепцию функций замены в R. У меня есть код ниже, но я его не понимаю: "cutoff<-" <- function(x, value){ x[x > value] <- Inf x } И тогда мы называем отсечение с: cutoff(x) <- 65 Может ли кто-нибудь объяснить, что такое функция замены в R? ...
Сеть для R Shiny / R Studio + rMaps с KML
Это продолжение вопроса, опубликованного здесь Используя код, разработанный jdharrison и Обсуждение здесь, вот минимальный пользовательский интерфейс.R: library(shiny);library(rCharts) shinyUI(fluidPage( mainPanel( tabPanel("Interactive", tags$style('.leaflet {height: 1000px;}'), showOutput('mapPlot', 'leaflet')) )) ) И минимальный сервер.R: library(shiny);library(rCharts);library(rMaps) shinyServer(function(input, output,session) { output$mapPlot <- renderMap({ ...
Вставьте логотип в правом верхнем углу html-документа R markdown
Я пытаюсь поместить логотип моей компании в правом углу моего html-документа Вот мой код: <script> $(document).ready(function() { $head = $('#header'); $head.prepend('<div class="knitr source"><img src="logo.png" width="220px" align="right" ></div>') }); </script> --- title: "Title" author: "Author" date: "Date" theme: bootstrap output: html_document keep_md: true --- ```{r echo=FALSE, include=FALSE} knitr::include_graphics('./logo.png') ``` &l ...
Разработка в образе Docker, находящемся под управлением версий
В настоящее время есть конвейер, который я использую для построения отчетов в R и публикации в Jekyll. Я держу свои файлы под контролем версий в github, и это отлично работает до сих пор. Недавно я начал думать о том, как я мог бы взять R, Ruby и Jekyll и построить образ docker, который любой из моих коллег мог бы загрузить и запустить тот же отчет, не имея всех пакетов и драгоценных камней, настроенных на их компьютере. Я посмотрел на Docker Hub и обнаружил, что автоматические сборки для Git ...
Замените части строки с помощью пакета stringi (regex)
У меня есть строка string <- "abbccc" Я хочу заменить цепочки одной и той же буквы только на одну букву и число встречаемости этой буквы. Поэтому я хочу иметь что-то вроде этого: "ab2c3" Для этого я использую пакет stringi, но он работает не совсем так, как я хочу. Допустим, у меня уже есть вектор с деталями для замены: vector <- c("b2", "c3") stri_replace_all_regex(string, "([a-z])\1{1,8}", vector) Вывод: [1] "ab2b2" "ac3c3" Вывод, который я хочу: [1] "ab2c3" Я тоже пробо ...
R преобразование даты и времени-lapply и unlist преобразуется в дни после эпохи
Я преобразую строку для дат, которые выглядят как 12/8/12, вероятно, довольно окольным путем путем 1) добавления ведущих нулей (Zero padding) к числам дня и месяца, а затем преобразования в объект даты с помощью функции as.Date в пользовательской функции, которую я написал. date_conversion <- function(date_string){ split <- unlist(strsplit(date_string, "/")) split[1] = str_pad(split[1], 2, pad = "0") split[2] = str_pad(split[1], 2, pad = "0") t = as.Date(paste(split, collapse = ...
R-Объединение Нескольких Больших Фреймов Данных (Сортировка)
Я бы предпочел сделать следующее в R, но я открыт для (легко узнать) других решений. У меня есть несколько (скажем, 99) файлов с разделителями табуляции (назовем их S1.txt через S99.txt) с таблицами, все с точно таким же форматом. Каждая таблица ~2,000,000 cols на 5 строк. Вот пример игрушки: ID Chr Position DP1 DP2 A1 1 123 1.5 2.0 A2 1 124 1.4 0.3 ID по определению уникален и всегда находится в одном и том же порядке, Chr и Pos всегда на ...
Импорт matplotlib с reticulate в R
Я только начал использовать сетчатый пакет в R,и я все еще получаю некоторые перегибы. В частности, импорт matplotlib идет не очень хорошо. Я пробовал два разных способа, с разными сообщениями об ошибках для каждого. Во-первых, используя repl_python в интерактивной оболочке RStudio: library(reticulate) use_python('/home/craig/anaconda3/bin/python') py_discover_config() repl_python() import matplotlib.pyplot as plt Оболочка REPL Python, которая открывается, кажется, имеет правильную версию и ...