Description Usage Arguments Value Examples
An x y plot of non-overlapping text
1 |
x |
x coordinates |
y |
y coordinates |
words |
the text to plot |
cex |
font size |
new |
should a new plot be created |
show.lines |
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
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | #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))
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.