Используя ggplot
и немного dplyr
для манипуляции данными:
set.seed(42)
df <- data.frame(x = rep(1:10,each=5), y = rnorm(50))
library(ggplot2)
library(dplyr)
df.summary <- df %>% group_by(x) %>%
summarize(ymin = min(y),
ymax = max(y),
ymean = mean(y))
ggplot(df.summary, aes(x = x, y = ymean)) +
geom_point(size = 2) +
geom_errorbar(aes(ymin = ymin, ymax = ymax))
Если есть дополнительный столбец группировки (примерный график OP имеет два знака ошибки на x значение, заявив, что данные получены из два файла), тогда вы должны получить все данные в одном кадре данных в начале, добавить переменную группировки в вызов dplyr::group_by
(например, group_by(x, file)
, если file
- имя столбца) и добавить его как «групповая» эстетика в ggplot, например aes(x = x, y = ymean, group = file)
.