Изменение размера текста на графике bgplot

Question

Я довольно новичок в ggplot. Я сделал bumpplot, используя код, указанный ниже. Я получил код из какого-то блога - я потерял ссылку ....

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

Я попытался изменить параметр размера, но всегда изменяя ширину линии.

Любое предложение оценено.

Том

require(ggplot2) 
df<-matrix(rnorm(520), 5, 10) #makes a random example 
colnames(df) <- letters[1:10] 
Price.Rank<-t(apply(df, 1, rank)) 
dfm<-melt(Price.Rank) 
names(dfm)<-c("Date","Brand", "value") 
p <- ggplot(dfm, aes(factor(Date), value, 
group = Brand, colour = Brand, label = Brand)) 
p1 <- p + geom_line(aes(size=2.2, alpha=0.7)) + 
    geom_text(data = subset(dfm, Date == 1), aes(x = Date , size =2.2, hjust =  1, vjust=0)) + 
    geom_text(data = subset(dfm, Date == 5), aes(x = Date , size =2.2, hjust = 0, vjust=0))+ 
    theme_bw() + 
    opts(legend.position = "none", panel.border = theme_blank()) 

p1 + theme_bw() + opts(legend.position = "none", panel.border = theme_blank()) 

Answer 1

Попробуйте

geom_text(data=subset(dfm, Date == 1), aes(x=Date), 
      size=12, hjust=1, vjust=0) + 
    geom_text(data=subset(dfm, Date == 5), aes(x=Date), 
      size=20, hjust=0, vjust=0) 

т.е. установить размер за пределами отображения äes.