R-график: как сделать гистограмму с горизонтальными линиями с использованием графика()

Question

Как использовать plot, чтобы повернуть этот участок сбоку, чтобы полосы гистограммы были горизонтальными?

size<- abs(rnorm(20,10,10)) 
age<-c(seq(1, 20, by=2)) 
plot(size~age, type=("n")); lines(size~age, type=c("l"), lines(size~age, type=c("h"))) 

То, что я хочу, это примерно что-то вроде этого, с гистограммы горизонтальных линий:

, который я сделал с

plot(size~age, type=("n"), yaxt="n", xaxt="n", ylab=""); lines(size~age, type=c("l"), lines(size~age, type=c("h"))); axis(4); axis(1,las=2) 

и затем вращая вывод изображения в другое программное обеспечение ,

Я хотел бы знать, как я могу использовать функцию plot, чтобы получить выходной участок в сторону так, что я могу сделать их группы в R без необходимости поворачивать их вне R.

UPDATE Благодаря очень полезное предложение от @csgillespie я получил это, который попал мне на моем пути:

size<- abs(rnorm(20,10,10)) 
age<-c(seq(1, 40, by=2)) # sorry for the typo in the first set of example data above 
plot(-age~size, type="n",yaxt="n", ylab="Age", xlab="Size") 
lines(-age~size) 
segments(0, -age, size, -age) 
axis(2, labels=c(seq(0,max(age), by=5)), at=-c(seq(0,max(age), by=5)), las=1) # this is a more general approach to labelling the axis ticks 

и вот в результате чего участок (довольно еще нет, но я думаю, что я может делать все остальное здесь):

Answer 1

вы можете получить то, что вы хотите с помощью -age затем добавить масштаб вручную.

plot(-age~size, type="n",yaxt="n", xlab="", ylab="Age") 
lines(-age~size) 
segments(0, -age, size, -age) 
axis(2, labels=c(0,5,10,15,20), at=-c(0,5,10,15,20), las=1) 

Код выше производит идентичный сюжет вам пример фигуры, за исключением того, метка оси у повернута. Если вы хотите, чтобы метка у оси с возможностью поворота, а затем использовать ylab="" в команде участка и добавить его вручную с text