【R】y軸の向きが逆転、x軸がグラフの上側に配置された折れ線グラフを作りたい

実現したいこと

・Rで、y軸の方向を上向きではなく下向きに逆転させ、x軸をグラフの上側に配置した折れ線グラフを作りたい。

前提

下記のコードで作成できるデータフレームに関して、x軸を"Result"、y軸を"Depth"、凡例を"Treatment"とした折れ線グラフを作りたい。
その際、y軸の方向を下向きに逆転させ、かつ、x軸をグラフの上側に配置したグラフ、すなわち、最も一般的な折れ線グラフをx軸を軸に180度回転させたようなグラフを作りたい。

該当のソースコード

R
1
2Data <- data.frame("Treatment" = c(rep("A",5), rep("B", 5)), 
3                   "Depth" = c(1:5, 1:5), 
4                   "Result" = c(120, 130, 550, 880, 1000, 150, 260, 990, 1200, 1600))
5
6g <- ggplot(Data, aes(x = Result, y = Depth, group = Treatment, linetype = Treatment ))+
7    geom_line(linewidth = 1.0)+
8    scale_x_continuous(limits = c(100, max(Data$Result)))+
9    scale_y_continuous(breaks = seq(0, 5, length = 6),limits = c(0,5))+
10    scale_x_discrete(position = "top")+
11    labs(x = "Result", y = "Depth")+
12    theme_classic()+ 
13    scale_y_reverse()+
14    theme(aspect.ratio = 1.5) 
15
16print(g)
17

試したこと

上記のようなコードを作成し動かしてみたが、x軸が上手く表示されない。
色々と試してみたが、どうしても解決できなかったため、どなたかご教授いただきたく思います。
よろしくお願いします。

行動規範の内容に同意します

回答1件

ベストアンサー

scale_x_discrete(position = "top") を削除して scale_x_continuous() に position = "top" を追加します。

r
1g <- ggplot(Data, aes(x = Result, y = Depth, group = Treatment, linetype = Treatment ))+
2    geom_line(linewidth = 1.0)+
3    scale_x_continuous(limits = c(100, max(Data$Result)), position = "top")+
4    scale_y_continuous(breaks = seq(0, 5, length = 6),limits = c(0,5))+
5    labs(x = "Result", y = "Depth")+
6    theme_classic()+ 
7    scale_y_reverse()+
8    theme(aspect.ratio = 1.5) 
9
10print(g)