Подтвердить что ты не робот

Легенда для сводной статистики в ggplot2

Вот код для графика

library(ggplot2)
df <- data.frame(gp = factor(rep(letters[1:3], each = 10)), y = rnorm(30))
library(plyr)
ds <- ddply(df, .(gp), summarise, mean = mean(y), sd = sd(y))
ggplot(df, aes(x = gp, y = y)) +
   geom_point() +
   geom_point(data = ds, aes(y = mean), colour = 'red', size = 3)

Я хочу иметь легенду для этого сюжета, которая будет идентифицировать значения данных и средние значения, что-то вроде этого

Black point = Data
Red point   = Mean.

Любой указатель на получение желаемого результата будет высоко оценен. Благодаря

Ответ 1

Используйте ручную шкалу, т.е. в вашем случае scale_colour_manual. Затем сопоставьте цвета значениям в шкале с помощью функции aes() для каждой геометрии:

ggplot(df, aes(x = gp, y = y)) +
  geom_point(aes(colour="data")) +
  geom_point(data = ds, aes(y = mean, colour = "mean"), size = 3) +
  scale_colour_manual("Legend", values=c("mean"="red", "data"="black"))

Ответ 2

Вы можете комбинировать среднюю переменную и данные в одном и том же формате data.frame и color/size по столбцу, который является фактором, либо data, либо mean

library(reshape2)

# in long format
dsl <- melt(ds, value.name = 'y')
# add variable column to df data.frame
df[['variable']] <- 'data'
# combine
all_data <- rbind(df,dsl)

# drop  sd rows

data_w_mean <- subset(all_data,variable != 'sd',drop = T)

# create vectors for use with scale_..._manual
colour_scales <- setNames(c('black','red'),c('data','mean'))
size_scales <- setNames(c(1,3),c('data','mean') )

ggplot(data_w_mean, aes(x = gp, y = y)) +
  geom_point(aes(colour = variable, size = variable)) +
  scale_colour_manual(name = 'Type', values = colour_scales) +
  scale_size_manual(name = 'Type', values = size_scales)

Или вы не можете объединить, но включите столбец в обоих наборах данных

dsl_mean <- subset(dsl,variable != 'sd',drop = T)  
ggplot(df, aes(x = gp, y = y, colour = variable, size = variable)) +
  geom_point() +
  geom_point(data = dsl_mean) +
  scale_colour_manual(name = 'Type', values = colour_scales) +
  scale_size_manual(name = 'Type', values = size_scales)

Что дает те же результаты