Повернуть линейный график в R - PullRequest
Новая
       59

Повернуть линейный график в R

0 голосов
/ 30 апреля 2018

Я пытаюсь создать линейный график с повернутыми осями X и Y.

Вот так выглядит мой график, но

это то, что я хочу

Я использую базовую функцию plot в R, поскольку я незнаком с 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

Ответы [ 2 ]

0 голосов
/ 30 апреля 2018

Вместо этого: 

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

Попробуйте это: 

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

Вы должны получить что-то вроде этого:

pic

0 голосов
/ 30 апреля 2018

Полагаю, вы за чем-то вроде этого? 

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

enter image description here

Пример данных 

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