
An x y plot of non-overlapping text
textplot(x, y, words, cex=1,new=TRUE, show.lines=TRUE, ...)
x coordinates
y coordinates
the text to plot
font size
should a new plot be created
if true, then lines are plotted between x,y and the word, for those words not covering their x,y coordinates
Additional parameters to be passed to wordlayout and text.
nothing
# NOT RUN {
#calculate standardized MDS coordinates
dat <- sweep(USArrests,2,colMeans(USArrests))
dat <- sweep(dat,2,sqrt(diag(var(dat))),"/")
loc <- cmdscale(dist(dat))
#plot with no overlap
textplot(loc[,1],loc[,2],rownames(loc))
#scale by urban population size
textplot(loc[,1],loc[,2],rownames(loc),cex=USArrests$UrbanPop/max(USArrests$UrbanPop))
#x limits sets x bounds of plot, and forces all words to be in bounds
textplot(loc[,1],loc[,2],rownames(loc),xlim=c(-3.5,3.5))
#compare to text (many states unreadable)
plot(loc[,1],loc[,2],type="n")
text(loc[,1],loc[,2],rownames(loc))
# }
Run the code above in your browser using DataLab