r - 用不同的 x 轴在 R 中绘制 2 条线

我有 2 个数据框 x 和 y 必须合并。

然后我想绘制 2 行:

第 1 行 = 来自 x 数据框的“vol”
第 2 行 = 来自 y 数据框的“vol”

两条线都应该在 x 轴上有“罢工”。

我遇到了错误。我认为这是因为x轴不一样。

你能帮我吗？

我真的很想使用 ggplot。

这是我可以运行的代码:

x<- data.frame(strike= c(1,2,2.5,7), term= c("H15"), Vol = c(6,7,8,9), file="a")
x
y<- data.frame(strike= c(1,2,2.75,7), term=c("H15"), Vol = c(7,9,10,12),file="b")
y
main<- merge(x,y, by = "strike", all= TRUE)
main

strikes<- factor(main$strike,levels=c(main$strike),ordered=TRUE)
strikes

stacked <- data.frame(time=strikes, value =c(c(x$Vol), c(y$Vol)) , variable =   rep(c("a","b"), each=NROW(x[,1])))
stacked

MyPlot<- ggplot(stacked, aes( x = time,  y=value, colour=variable, group= variable)  )   +   geom_line()
MyPlot

最佳答案

你可以用 reshape2 和 gpplot2 做到这一点:

首先让我们融化你的数据:

library(reshape2)
x.melt<-melt(x[,c("strike", "Vol")], id="strike")
y.melt<-melt(y[,c("strike", "Vol")], id="strike")
x.melt[, "variable"] <-"Vol.x"
y.melt[, "variable"] <-"Vol.y"
data <- rbind(x.melt, y.melt)

有了这个，我们有:

  strike variable value
1   1.00    Vol.x     6
2   2.00    Vol.x     7
3   2.50    Vol.x     8
4   7.00    Vol.x     9
5   1.00    Vol.y     7
6   2.00    Vol.y     9
7   2.75    Vol.y    10
8   7.00    Vol.y    12

不，我们可以将它与 gpplot2 一起使用:

library(ggplot2)
ggplot(data, aes(x=strike,  y=value, colour=variable))   +  geom_point()+ geom_line()

结果:

关于r - 用不同的 x 轴在 R 中绘制 2 条线，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/23371516/