library(ggplot2) df <- data.frame(x=1:10, y=rnorm(10)) p1 <- ggplot(df, aes(x,y)) + geom_point() plist <- list(p1,p1,p1,p1,p1) # In my real example,a plot function will fit a ggplot to a list of datasets #and return a list of ggplots like the example above. Я хочу оформить участки...
Можно ли сгруппировать по двум столбцам? Итак, перекрестное произведение нарисовано geom_point()и geom_smooth()? Например: frame <- data.frame( series <- rep(c('a', 'b'), 6), sample <- rep(c('glass','water', 'metal'), 4), data <- c(1:12)) ggplot(frame, aes()) # ... Такие, что точки 6и...
Давным-давно я изменил свой ggplot2шрифт, используя windowsFonts(Times=windowsFont("TT Times New Roman"))для его изменения. Теперь я не могу от этого избавиться. В попытку набора family=""в ggplot2 theme()я не могу показаться , чтобы произвести изменения в шрифтах , как я скомпилировать MWE ниже с...
Я получаю эту ошибку при построении гистограммы, и я не могу от нее избавиться. Я пробовал и qplot, и ggplot, но все равно та же ошибка. Вот мой код: library(dplyr) library(ggplot2) #Investigate data further to build a machine learning model data_country = data %>% group_by(country) %>%...
Я получаю это предупреждение, когда пытаюсь создать график с помощью ggplot. После некоторого исследования в Интернете многие предположили, что моя база данных содержит либо нулевые значения, либо отсутствующие данные в целом, что было не так. На этот вопрос принятый ответ гласит следующее:...
Я пытаюсь изменить размер графика, чтобы он соответствовал моему документу, но у меня возникают трудности с получением построенной диаграммы в виде квадрата. Пример: pdf(file = "./out.pdf", width = 5, height = 5) p <- ggplot(mydata, aes(x = col1, y = col2)) print(p) aux <- dev.off() Хотя...
У меня есть объект ggplot2, скажем myPlot, как я могу определить диапазоны для осей x и y? Это не похоже на простое кратное диапазону значений данных, потому что можно масштабировать графики, изменять диапазоны осей и так далее. findFn(from sos) и Google, похоже, не дают релевантных результатов,...
Я использую ggplot2 для улучшения графиков осадков. Вот воспроизводимый пример того, чего я хочу достичь: library(ggplot2) library(gridExtra) secu <- seq(1, 16, by=2) melt.d <- data.frame(y=secu, x=LETTERS[1:8]) m <- ggplot(melt.d, aes(x=x, y=y)) + geom_bar(fill="darkblue") +...
У меня такой сюжет: library(reshape) library(ggplot2) library(gridExtra) require(ggplot2) data2<-structure(list(IR = structure(c(4L, 3L, 2L, 1L, 4L, 3L, 2L, 1L ), .Label = c("0.13-0.16", "0.17-0.23", "0.24-0.27", "0.28-1" ), class = "factor"), variable = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 2L,...
Есть ли простой способ увеличить расстояние между заголовком графика и областью графика под ним (прямоугольник с данными). Точно так же я бы предпочел иметь некоторое пространство между заголовком оси и метками оси. Другими словами, есть ли способ «переместить заголовок немного вверх, заголовок...
Я хотел бы полностью удалить метки для граней, чтобы создать своего рода эффект спарклайна , поскольку для аудитории метки не имеют значения, лучшее, что я могу придумать, это: library(MASS) library(ggplot2) qplot(week,y,data=bacteria,group=ID, geom=c('point','line'), xlab='', ylab='') +...
Я пытаюсь понять, как использовать downloadButton для сохранения сюжета с помощью shiny. Пример в пакете демонстрирует downloadButton / downloadHandler для сохранения .csv. Я собираюсь сделать воспроизводимый пример на основе этого. За ui.R shinyUI(pageWithSidebar( headerPanel('Downloading Data'),...
У меня часто есть числовые значения для огранки. Я хочу предоставить достаточно информации для интерпретации этих значений фасетов в дополнительном заголовке, аналогичном заголовкам осей. Параметры этикетировщика повторяют много ненужного текста и не могут использоваться для более длинных...
У меня странная проблема с Rstudio: если сценарий вызывает функции ggplot2 для отображения графика, то использование Source для запуска сценария не создает графики. Если я выбираю весь сценарий с Ctrl+A, затем Выполнить текущую строку или выбор ( Ctrl+Enter), то сюжет делает дисплей. Аналогичным...
Я хочу объединить два 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 <-...
Я знаю, что это не совсем проблема с визуализацией данных, но босс попросил об этом, поэтому мне нужно выяснить, возможно ли это. Благодаря!
Я читал ggplot2документацию по обеим функциям. Мне было интересно, в чем разница и какая ситуация будет правильной для использования каждой функции ( facet_wrap()и facet_grid()). library(ggplot2) p <- qplot(displ, hwy, data = mpg) p + facet_wrap(~ cyl) p + facet_grid(~ cyl) Я привожу этот...
Ниже приведен код и график. График имеет три аспекта. Где the_plotя могу найти это имеет три аспекта? Да, я мог бы получить это из mtcarsфрейма данных, или the_plot$data, но я не хочу воссоздавать анализ данных. Скорее, я хочу проверить графические элементы the_plot, поэтому мне не нужно...
Баунти истекает через 16 часов . Ответы на этот вопрос могут получить награду +200 репутации. Макс ищет ответ из авторитетного источника . Я хотел бы выбрать точки из нормального распределения, а затем построить точечный график один за другим, используя gganimateпакет, пока последний кадр не...
Вот воспроизводимый пример статического графика, который я хочу анимировать (я хочу показать, как ведет себя сэмплер MCMC). library(tidyverse) library(gganimate) set.seed(1234) plot_data <- tibble(x=cumsum(rnorm(100)), y=cumsum(rnorm(100)), time=1:length(x)) ggplot(data=plot_data, aes(x=y, y=x))...