how to word-wrap text in labels in plots?

c <- structure(c(2L, 2L, 1L, 3L, 4L, 2L, 3L, 2L, 3L, 2L, 5L), .Label = c("foo", 
+ "bar", "a really really long variable label mostly here to show the need of word-wrapping text in labels", 
+ "a not so important value", "baz"), class = "factor")
plot(c)

Is there a way to get the long variable labels to automatically wrap so that all labels can be shown?

Alternatively, is there a way to get the labels truncated, possibly with ".." appended?

Hans Ekbrand (http://sociologi.cjb.net) <hans at sociologi.cjb.net>
Q. What is that strange attachment in this mail?
A. My digital signature, see www.gnupg.org for info on how you could
   use it to ensure that this mail is from me and has not been
   altered on the way to you.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 197 bytes
Desc: Digital signature
URL: <https://stat.ethz.ch/pipermail/r-help/attachments/20090429/80698574/attachment-0002.bin>