Hi Subhamitra, It is time to admit that I had the wrong idea about what you wanted to do, due to the combination of trying to solve two problems at once while I was very tired. I appreciate your patience.
>From your last email, you have a data frame with four columns. The first and third are cryptic names for political states and the second and fourth are values that I assume are measured in those states. 1) Are the states in column 3 the same as those in column 1? As you initially named the data frame "ts", perhaps the values in columns 2 and 4 are taken at different times. If not, perhaps they are measured in another set of countries, as yet unknown. Perhaps "DMs" and "EMs" are codes that will resolve this. I assumed that "DMs" and "EMs" should be used as the X and Y values on a scatterplot, as your initial example seemed to indicate. If so, they are different values for the same country and only require one label for each point. Proceeding from this, you can do something like this: spdf<-read.table(text="State DMs EMs JP 2.071 2.038 CH 2.0548 2.017 AT 2.0544 2.007 CL 2.047 1.963 ES 2.033 1.947 PT 2.0327 1.942 PL 2.0321 1.932 FR 2.031 1.924 SE 2.0293 1.913 DE 2.0291 1.906 DK 2.027 1.892 UK 2.022 1.877 TW 1.9934 1.869 NL 1.993 1.849 HK 1.989 1.848 LU 1.988 1.836 CA 1.987 1.835 NZ 1.9849 1.819 US 1.9842 1.798 AU 1.981 1.771 MY 1.978 1.762 HU 1.968 1.717 LT 1.96 1.707 SG 1.958 1.688 FI 1.955 1.683 CR 1.953 1.671 BY 1.952 1.664 IL 1.95 1.646 EE 1.948 1.633 NO 1.945 1.624 IE 1.937 1.621 SI 1.913 1.584 LV 1.901 1.487 SK 1.871 1.482 BH 1.801 1.23 SK 1.761 1.129 AE 1.751 1.168 IS 1.699 0.941 BM 1.687 0.591 KW 1.668 0.387 CY 1.633 0.16 AP 1.56 0.0002", header = TRUE,stringsAsFactors=FALSE) library(cluster) k2 <- kmeans(spdf[,c(2,3)], centers = 2, nstart = 25) plot(spdf[,c(2,3)],col=k2$cluster,pch=19,xlim=c(1.55,2.1)) text(spdf[,2]+rep(c(0.02,-0.02),42), spdf[,3]+rep(c(-0.05,0.05),42),spdf[,1],col=k2$cluster) segments(spdf[,2],spdf[,3],spdf[,2]+rep(c(0.02,-0.02),42), spdf[,3]+rep(c(-0.05,0.05),42),col=k2$cluster) I took the liberty of replacing your abbreviations with internet top level domains. As I hope you can see, you have a problem with crowded points and labels, even with the trick of spreading the labels out. You could modify the X and Y offsets by hand and get a much more readable plot. If this is not what you want, a bit more explanation of what you do want may get you there. Jim ______________________________________________ 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.
