修改美学 - ggplot2

Question

我正在尝试学习 ggplot2 ，并在下面绘制了图表：

使用此代码：

library(ggplot2); library(gridExtra)
gg <- ggplot(mydata,aes(x=Level))
plot1 <- gg + geom_line(aes(y=Experience,colour="xp"),size=1) +
    labs(title="xp") 
g <- ggplot(mydata,aes(x=Level))
plot2 <- g + geom_line(aes(y=Experience,colour="xp"),size=1) + geom_line(aes(y=Accu,colour="accu"),size=1) +
    labs(title="xp vs Accumulated") 
grid.arrange(plot1,plot2,ncol=2)

其中mydata是包含3列（Level，xp和accu）和30行的数据框。

我想知道的是：

1. 如何让左侧绘图中的y轴具有与之相同的形式 右手情节。
2. 如何在两个图中使“xp”的颜色相同     不删除线条代表的描述。

Answer 1

这个（有一些随机数据）怎么样？

library(ggplot2) 
library(gridExtra)
library(scales)

gg <- ggplot(mydata,aes(x=Level))
plot1 <- gg + geom_line(aes(y=Experience,colour="xp"),size=1) +
  labs(title="xp") + scale_y_continuous(labels = comma) +   
  scale_colour_manual(values = c("red"))

g <- ggplot(mydata,aes(x=Level))
plot2 <- g + geom_line(aes(y=Experience,colour="xp"),size=1) + 
   geom_line(aes(y=Accu,colour="accu"),size=1) +
   labs(title="xp vs Accumulated")  + scale_y_continuous(labels = comma) + 
   scale_colour_manual(values = c("blue", "red"))

grid.arrange(plot1,plot2,ncol=2)