Tag: r

Доступ к URL-адресу и чтение данных с помощью R

Есть ли способ указать и получить данные с URL-адреса веб-сайта в CSV-файл для анализа с использованием R?

Сохранять пропорцию графиков с использованием grid.arrange

Я пытаюсь организовать несколько графиков, используя grid.arrange . Он выполняет эту работу по книге и при звонке: p1 <- ggplot(subset(mtcars, cyl = 4), aes(wt, mpg, colour = cyl)) + geom_point() p2 <- ggplot(subset(mtcars, cyl = 8), aes(wt, mpg, colour = cyl)) + geom_point() grid.arrange(p1, p2, ncol = 2) Я получаю два хороших сюжета, симметричных по […]

Добавьте горизонтальную линию к сюжету и легенде в ggplot2

Этот код создает приятный сюжет, но я хотел бы добавить горизонтальную черную линию в y = 50. И легенда показывает черную линию с текстом «cutoff» в легенде, но оставляют точки в легенде для источников. Я могу добавить строку с geom_line, но не могу получить строку в легенде. library(ggplot2) the.data <- read.table( header=TRUE, sep=",", text="source,year,value S1,1976,56.98 […]

Получение состояния переменных после ошибки в R

Допустим, я только что вызвал функцию f , и произошла ошибка где-то в функции. Я просто хочу иметь возможность проверять значения разных переменных непосредственно перед возникновением ошибки. Предположим, что моя кишка говорит мне, что это небольшая ошибка, поэтому я слишком ленив, чтобы использовать debug(f) и слишком ленив, чтобы вставить browser() в часть функции, где, я […]

Довольно тикает для нормальной шкалы журнала, используя ggplot2 (динамический не ручной)

Я пытаюсь использовать ggplot2 для создания диаграммы производительности с обычной шкалой регистрации. К сожалению, я не могу произвести хорошие тики, как для функции базового графика. Вот мой пример: library(ggplot2) library(scales) # fix RNG set.seed(seed=1) # simulate returns y=rnorm(999,0.02,0.2) # M$Y are the cummulative returns (like an index) M=data.frame(X=1:1000,Y=100) for (i in 2:1000) M[i,”Y”]=M[i-1,”Y”]*(1+y[i-1]) ggplot(M,aes(x=X,y=Y))+geom_line()+scale_y_continuous(trans=log_trans()) производит […]

горизонтальная дендрограмма в R с метками

Я пытаюсь провести дендрограмму с hclust функции hclust . Я надеюсь, что дендрограмма горизонтально расположена вместо дефолта, которую можно получить (например) require(graphics) hc <- hclust(dist(USArrests), "ave") plot(hc) Я попытался использовать as.dendrogram() такую ​​как plot(as.dendrogram(hc.poi),horiz=TRUE) но результат не имеет значимых меток: Если я использую plot(hc.poi,labels=c(…)) который без as.dendrogram() , я могу передать аргумент labels= , но […]

Согласование шаблонов с использованием шаблона

Как определить строку с помощью шаблона? Я нашел glob2rx , но я не совсем понимаю, как его использовать. Я попытался использовать следующий код, чтобы выбрать строки фрейма данных, которые начинаются со слова blue : # make data frame a <- data.frame( x = c('red','blue1','blue2', 'red2')) # 1 result <- subset(a, x == glob2rx("blue*") ) # […]

Динамические имена столбцов в data.table

Я пытаюсь добавить столбцы в data.table , где имена являются динамическими. Кроме того, мне нужно использовать аргумент by при добавлении этих столбцов. Например: test_dtb <- data.table(a = sample(1:100, 100), b = sample(1:100, 100), id = rep(1:10,10)) cn <- parse(text = "blah") test_dtb[ , eval(cn) := mean(a), by = id] # Error in `[.data.table`(test_dtb, , `:=`(eval(cn), […]

Обобщите условия в dplyr

Я проиллюстрирую свой вопрос примером. Пример данных: df <- data.frame(ID = c(1, 1, 2, 2, 3, 5), A = c("foo", "bar", "foo", "foo", "bar", "bar"), B = c(1, 5, 7, 23, 54, 202)) df ID AB 1 1 foo 1 2 1 bar 5 3 2 foo 7 4 2 foo 23 5 3 bar […]

Полностью удалить метки facet_wrap

Я хотел бы полностью удалить метки для граней, чтобы создать эффект искровой линии, поскольку для аудитории эти метки не имеют значения, лучшее, что я могу придумать, это: library(MASS) library(ggplot2) qplot(week,y,data=bacteria,group=ID, geom=c(‘point’,’line’), xlab=”, ylab=”) + facet_wrap(~ID) + theme(strip.text.x = element_text(size=0)) Так я могу избавиться от (теперь пустой) strip.background полностью, чтобы позволить больше места для «искровых линий»? […]

Давайте будем гением компьютера.