Добавление легенды в ggplot с facet_grid

Question

Я создаю гравюру 3x3, используя приведенный ниже код. Проблема в том, что я не получаю никакой легенды.

# Create column vectors 
XID <- rep(c(1,5,10), each=57) 
TAD.unit <- c(0, 0.25, 0.5, 0.75, 1, 1.5, 2, 3, 4, 6, 8, 10, 12, 16, 20, 24, 36, 48, 72) 
TAD <- rep(TAD.unit, length=length(XID)) 
FID <-rep(c(1,2,3),each=length(TAD.unit),length=length(XID)) 
time <- TAD + (FID-1)*14*24 
dist1 <- pweibull(TAD,2,2) 
dist2 <- pweibull(TAD,2,4) 

# Create data frame 
data.df <- as.data.frame(cbind(XID,time, FID, dist1, dist2, TAD)) 

library(ggplot2) 
label_both = function(column,value){paste(column,"=",value)} 

# Create plot 
my.plot1 <- ggplot(data.df, aes(x=TAD, y=dist1)) + geom_point() + 
    geom_line(aes(x=TAD, y=dist2)) + 
    facet_grid(XID ~ FID, labeller=label_both) + 
    labs(x = "TAD", y = "Response") 

# alternative data structure per recommendation in 
# http://stackoverflow.com/questions/15418302/ggplot2-how-to-show-the-legend?rq=1 
library(reshape) 
df.2 <- melt(data.df, id=c("XID","FID","TAD","time")) 

Я попытался с помощью кадра данных df.2, чтобы увидеть, если это помогает в соответствии с рекомендацией в переполнение стека нити я предоставить ссылку. Я пробовал разные команды ggplot, но я до сих пор не могу заставить его работать. Может кто-нибудь, пожалуйста, помогите мне?

Также, как я могу разместить легенду где-то внутри 3x3, где пустое пространство?

спасибо!

Answer 1

Что касается рисунка легенды, используйте ваш расплавленный информационный кадр и, например, используйте цвет, чтобы отличить два набора данных расстояния. Например. как это:

ggplot(df.2, aes(x=TAD, y=value, colour = variable)) + geom_line() + facet_grid(XID ~ FID, labeller=label_both) + labs(x = "TAD", y = "Response") 

И как для позиционирования легенды, я отсылаю вас к этому вопросу с хорошим ответом:

Position legend in first plot of facet