You may try this:
> get.coords.circle <- function(x0, y0, r, len, rot){
+ by <- seq(from=-pi, to=pi, length.out=len)
+ x <- r*cos(by+rot) + x0
+ y <- r*sin(by+rot) + y0
+ coords <- cbind(x,y)
+ coords[!duplicated(coords),]
+ }
> xtms <- get.coords.circle(x0=2, y0=4, r=2, len=7, rot=0)
> xtms1 <- get.coords.circle(x0=2, y0=4, r=1, len=7, rot=10)
>
> plot(xtms, type="n")
> segments(x0=xtms[1:3,1], y0=xtms[1:3,2],
+ x=xtms[4:6,1], y=xtms[4:6,2])
> text(xtms[c(4,5,6),], labels=paste("line1", 1:3, sep="_"))
> text(xtms1, labels=paste("S", 1:6, sep="_"))
> points(x=2, y=4, cex=3)
>
Please see the output. Is this what you are looking for? I hope this
helps.
Chel Hee Lee
On 12/21/2014 01:25 PM, eliza botto wrote:
Dear UseRs,
A point was plotted by the following command
plot(2,4,ylim=c(0,10),xlim=c(0,5))
how to divide the space around the plotted point into six regions each of 60
degree as shown in the Figure 2a) in the following link
http://infolab.usc.edu/csci599/Fall2007/papers/b-2.pdf.
Thankyou very much in advance,
Eliza.
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
