嘗試複製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() 

產量：