尝试在R中复制Excel图形

Question

寻找帮助在R中制作带有以下示例数据的图形。 我试图制作与图片相同的图形，但在R中。当我尝试对其进行复制时，尽管有数据，但蓝线变为垂直而不是水平。 橙色线虽然可以。 较大的数据集具有多个测站，因此这就是为什么我在代码中也包含构面的原因。

（R图使用了整个数据集，因此曲线不匹配）

这也是我的R代码。 有人可以帮忙吗？ 谢谢。

ggplot(TS, aes(X, Y, group=Station, colour=factor(Type))) + 
  facet_grid(~Station) + geom_line(size = 1) + xytheme 


   Y    X   Type    Station
2.13    0   Blue    1
2.13    50  Blue    1
2.13    100 Blue    1
3.67    0   Orange  1
3.17    10  Orange  1
2.94    15  Orange  1
1.58    20  Orange  1
1.25    35  Orange  1
1.02    46  Orange  1
0.99    65  Orange  1
0.52    74  Orange  1
0.2     82  Orange  1
0.1     91  Orange  1
0.22    100 Orange  1

Answer 1

您应该从aes（）中获取“ group = station”；

library(ggplot2)
library(ggthemes)        
TS <- data.frame(y=c(2.13,2.13,2.13,3.67,3.17,2.94,1.5,1.2,1.0,0.99,0.52,0.2,0.1),
               x=c(0,50,100,0,10,15,20,35,46,65,74,82,91),
               type=c("blue","blue","blue", "orange","orange","orange","orange",
                      "orange","orange","orange","orange","orange","orange"),
               station=1)

    ggplot(TS, aes(x, y, colour=factor(type))) + geom_line(size = 1) + theme_excel()

收益率：