I have learned something new - thanks for the strwrap info.
The problem with posting from Nabble is that by the time your post actually
gets to the list (2 hours after you posted it in this case) and you've
written some line like "Knowing the R list, someone can probably reduce this
function to 2 lines of code" half a dozen people have already shown exactly
how you can do that, making me look totally incompetent.
Ah well, such is life :)
Jim.
Marc Schwartz wrote:
>
>
> On Thu, 2007-12-06 at 09:28 -0800, Jim Price wrote:
>> I wrote a little utility function for exactly this reason, which I use
>> with
>> long titles. You may want to add calls to par to adjust the upper margin
>> if
>> you are using raw graphical functionality (plot et al) - but lattice
>> adjusts
>> the upper margin automatically so you wouldn't need to add anything else.
>>
>>
>> PrettyString <- function(theString, maxLength, collapse = "\n")
>> {
>> words <- unlist(strsplit(theString, " "))
>> wordLengths <- unlist(lapply(strsplit(words, ""), length))
>>
>> if(max(wordLengths) > maxLength)
>> stop("maxChar must be increased due to string length")
>>
>> count = wordLengths[1]
>> results = vector()
>> currentLine = words[1]
>>
>> for(i in 2:length(words))
>> {
>> if((count + wordLengths[i] + 1) > maxLength)
>> {
>> results = c(results, currentLine)
>> currentLine = words[i]
>> count = wordLengths[i]
>> }
>> else
>> {
>> currentLine = paste(currentLine, words[i])
>> count = count + wordLengths[i] + 1
>> }
>> }
>> if(length(currentLine))
>> results <- c(results, currentLine)
>>
>> paste(results, collapse = collapse)
>> }
>>
>>
>> Knowing the R list, someone can probably reduce this function to 2 lines
>> of
>> code.
>> Jim
>
> Would you believe one line?
>
> paste(strwrap(theString, width = maxLength), collapse = "\n")
>
> ;-)
>
> See ?strwrap as I noted previously.
>
> HTH,
>
> Marc Schwartz
>
> ______________________________________________
> R-help@r-project.org mailing list
> 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.
>
>
--
View this message in context:
http://www.nabble.com/Fitting-large-titles-in-a-plot-tf4956510.html#a14201050
Sent from the R help mailing list archive at Nabble.com.
______________________________________________
R-help@r-project.org mailing list
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.
