r - 在R中旋转折线图

Question

我正在尝试创建一个带有旋转 x 和 y 轴的折线图。

这就是我的图表的样子，但是

这就是我要的

我使用plotR 中的基本功能，因为我不熟悉ggplot2.

到目前为止，我的代码是：

mytab=read.csv("stratotyperidge.csv") 
plot(mytab$meters,mytab$d180,lwd=2,col="darkblue",bty='n',type='b',xlab="Height above base (m)",ylab="d180",main="Stratotype Ridge", horiz=TRUE)

但是horiz=TRUE会返回一个错误，尽管我已经将它与barplot. 我不想将我的情节保存为图像并简单地旋转它。我想像上面链接的图片一样绘制它。这个具体问题尚未在 SO 上得到回答。

这是我的数据的样子：

ID# Identifier 1    d180    d13C    meters    
1   JEM 1           -6.5    1.09    0.5
2   JEM 2          -6.99    0.38    0.85
4   JEM 4          -6.94    0.66    10
5   JEM 5          -6.39    0.75    30.8
6   JEM 6          -7.15    0.38    50.2
7   JEM 7          -8.14    0.03    62.15
8   JEM 8A          -7.4    0.33    71
8.5 JEM 8B         -7.21    -0.05   71.4
10  JEM 10         -7.39    0.14    82.4
12  JEM 12         -7.27    1.22    87.5

Answer 1

我想你是在追求这样的事情吗？

library(tidyverse);
df %>%
    gather(what, value, d180, d13C) %>%
    ggplot(aes(meters, value)) +
    geom_point() + 
    geom_line() +
    facet_wrap(~ what, scales = "free_x") +
    coord_flip()

---

样本数据

df <- read.table(text =
    "ID 'Identifier 1'    d180    d13C    meters
1   'JEM 1'           -6.5    1.09    0.5
2   'JEM 2'          -6.99    0.38    0.85
4   'JEM 4'          -6.94    0.66    10
5   'JEM 5'          -6.39    0.75    30.8
6   'JEM 6'          -7.15    0.38    50.2
7   'JEM 7'          -8.14    0.03    62.15
8   'JEM 8A'          -7.4    0.33    71
8.5 'JEM 8B'         -7.21    -0.05   71.4
10  'JEM 10'         -7.39    0.14    82.4
12  'JEM 12'         -7.27    1.22    87.5", header = T)

Answer 2

而不是这个：

plot(mytab$meters, mytab$d180, type="l")

尝试这个：

plot(mytab$d180, mytab$meters, type="l")

你应该得到这样的东西：