[R] Beginner questions (plot & circle)

Nachtwind martin at shalmirane.de
Wed Jan 20 13:05:44 CET 2010


Hi, 
I have finally managed to set up a basic diagram for my needs and would now
like to make that a bit nicer but dont find the appropiate answers through
wiki or the manual.

First of all i have a plot for the X and Y axis - and would like to show the
ticks in 2 steps, not in 5 steps, but dont understand how..
The other question might be more tricky. As i work with circles and need to
find the best fit - or rather the best intersections of all circles - i
would like to automate that, but wouldnt know how and would like to know if
there is something like
intersect(circle1, circle2, circle3...) that colors the intersection or
returns a mean x,y coordinate.


As for the code: Thats my current base
---snip

require ("plotrix")
 

#Erstelle eine Skala
op <- par(xaxs = "i", yaxs = "i", tcl = 0.35) 
x <-
c(7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31)
plot(x,x,type="n",xlab="Temperatur (C)",ylab="Temperatur (C)",main="Site 6")


#Gitternetz
grid(nx = NULL, ny =NULL, col = "lightgray", lty = "dotted", lwd = NULL,
     equilogs = TRUE)

i<-30

#Gruppen von Foraminiferen

#ruber (TB 12-24)
draw.circle(18,18,6,border=614,lty=1,lwd=1)
text (30, i , labels ="Ruber", col=614, adj=1)

#sacculifer (TB 14-26 )
 draw.circle(20,20,6,border="green",lty=1,lwd=1)
text (30, (i=i-1) , labels ="Sacc", col="green", adj=1)


#pachydermaL (TB 6-20)
# draw.circle(13,13,7,border="blue",lty=1,lwd=1)
#text (30, (i=i-1) , labels ="Pachy L", col="blue", adj=1)


#pachydermaR (TB 10-22)
 draw.circle(16,16,6,border="purple",lty=1,lwd=1)
text (30, (i=i-1) , labels ="Pachy R", col="purple", adj=1)


#dutertrei (TB 22-24)
# draw.circle(21,21,1,border="cyan",lty=1,lwd=1)
#text (30, (i=i-1) , labels ="Duter", col="cyan", adj=1)


#menardii/tumida (TB 12-24)
 draw.circle(17.5,17.5,5.5,border="mediumvioletred",lty=1,lwd=1)
text (30, (i=i-1), labels ="Men/Tum", col="mediumvioletred", adj=1)


#bulloides (TB 10-20)
 draw.circle(15,15,5,border="skyblue4",lty=1,lwd=1)
text (30, (i=i-1) , labels ="Bull", col="skyblue4", adj=1)


#inflata (TB 10-26)
 draw.circle(16.5,16.5,6.5,border="orangered",lty=1,lwd=1)
 text (30, (i=i-1) , labels ="Infl", col="orangered", adj=1)

-------snip
-- 
View this message in context: http://n4.nabble.com/Beginner-questions-plot-circle-tp1018350p1018350.html
Sent from the R help mailing list archive at Nabble.com.



More information about the R-help mailing list