R中的旋转线图

Question

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

This is what my graph looks like, but

this is what I want

我正在使用 R 中的基本 plot 函数，因为我不熟悉 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=TRUEreturns出错了，虽然我用过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")

你应该得到这样的东西：

R中的旋转线图

Rotate Line graph in R

plot

r

line-plot

示例数据