l******o
发帖数: 3764 | 1 怎么能弄出个legend来，显示红线和蓝线都是什么？
查了半天也没查到
my code
====================
pl <- ggplot (tab.dat) +
geom_point(data=tab.dat, aes(TAD, DV), colour="#444444", size=3, shape=1
) + #default shape is closed circle
geom_line(data=vpc.dat, aes( (vpc.dat$upper+vpc.dat$lower)/2, vpc.dat[["
X50.sim"]]), size=1.5, colour="#882222") +
geom_line(data=vpc.dat, aes( (vpc.dat$upper+vpc.dat$lower)/2, vpc.dat[["
X5.sim"]]), size=1.5, linetype="dashed", colour="#222288") +
geom_line(data=vpc.dat, aes( (vpc.dat$upper+vpc.dat$lower)/2, vpc.dat[["
X95.sim"]]), size=1.5, linetype="dashed", colour="#222288") +
xlab ("Time After Dose(hrs)") +
ylab ("Conc(ng/ml)") +
xlim (xlim) +
ylim (ylim) +
ggtitle("Title")+
theme(title = element_text(size=40), axis.title=element_text(size=30),
axis.text = element_text(colour="black", size=20)) | l******o
发帖数: 3764 | | t**i
发帖数: 688 | 3 scale_color_manual()
【在 l******o 的大作中提到】
: 怎么能弄出个legend来，显示红线和蓝线都是什么？
: 查了半天也没查到
: my code
: ====================
: pl <- ggplot (tab.dat) +
: geom_point(data=tab.dat, aes(TAD, DV), colour="#444444", size=3, shape=1
: ) + #default shape is closed circle
: geom_line(data=vpc.dat, aes( (vpc.dat$upper+vpc.dat$lower)/2, vpc.dat[["
: X50.sim"]]), size=1.5, colour="#882222") +
: geom_line(data=vpc.dat, aes( (vpc.dat$upper+vpc.dat$lower)/2, vpc.dat[["
|
|
