変更美学 - ggplot2

Question

私はggplot2を学ぶことを試みていると、プロットの下に作られています

このコードを使用して

：

mydataは3列を含むデータフレームである

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) 

（Level,xpおよびaccu）および30行。私は疑問に思って何

は次のとおりです。

1. 右側のプロットと同じ形式を持っているために、左側のプロットにy軸を取得する方法。
2. "xp"の色を両方のプロットで同じにするには、線が何を表しているかの説明を削除せずに を削除します。

Answer 1

どのようにこれについて（ランダムなデータを使用して）ですか？ （値= cで（「ACCU」=「青」 `scale_colour_manual：

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)