[R] Discontinuous graph

[David Winsemius]

On Nov 16, 2009, at 12:40 PM, Tim Smith wrote:

> Hi,
> I wanted to make a graph with the following table (2 rows, 3 columns):
> a b c
> x 1 3 5
> y 5 8 6
> The first column represents the start cordinate, and the second  
> column contains the end cordinate for the x-axis. The third column  
> contains the y-axis co-ordinate. For example, the first row in the  
> matrix above represents the points (1,5),(2,5), (3,5). How would I  
> go about making a discontinuous graph ?
>
> thanks!

coords <- read.table(textConnection("a b c
  x 1 3 5
  y 5 8 6"), header=TRUE)

  plot(NULL, NULL, xlim = c(min(coords$a)-.5, max(coords$b)+.5),  
ylim=c(min(coords$c)-.5, max(coords$c)+.5)  )
  apply(coords, 1, function(x) segments(x0=x[1],y0= x[3], x1= x[2],  
y1=x[3]) )

-- 

David Winsemius, MD
Heritage Laboratories
West Hartford, CT