R/ggplot2 - 数据框的 Y 轴值

Question

我有三个具有这种结构的数据框(但值不同):

V1 V2
2010-04-30 30
2010-07-31 17
2010-10-02 20

我想在 ggplot2 中用 3 行做一个折线图，每个数据集一个。问题是我想在 Y 轴上显示相对于每个数据集而不是全局数据集的百分比。

我怎样才能做到这一点？我应该合并两个数据帧，还是为不同的数据帧调用三次 geom_line() 并更改 Y 值？

Answer 1

有很多方法可以做到这一点，有些可能比这更简洁，但这会让你到达那里:

#Create three data frames along the lines of your example
df1 <- data.frame(V1=c("2010-04-30","2010-07-31","2010-10-02"),V2=c(30,17,20))
df2 <- data.frame(V1=c("2010-04-30","2010-07-31","2010-10-02"),V2=c(10,5,42))
df3 <- data.frame(V1=c("2010-04-30","2010-07-31","2010-10-02"),V2=c(3,15,12))

#Combine them and create a variable to distinguish between them
df <- rbind(df1,df2,df3)
df$type <- rep(letters[1:3],each=3)

#Use ddply to calculate the proportion by group (there are _lots_ of other ways to do this part)
df <- ddply(df,.(type),.fun=function(x){x$V3 <- x$V2/sum(x$V2);return(x)})
#And plot
ggplot(df,aes(x=as.Date(V1),y=V3)) + geom_line(aes(group=type,colour=type))