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() 

利回り：