Dear Dennis, Many thanks.I was wondering if there was a way to edit the variable and put \n's in it. Is there ?
Thank you, Ashim On Thu, Nov 17, 2011 at 4:07 PM, Dennis Murphy <djmu...@gmail.com> wrote: > Hi: > > This worked for me - I needed to modify some of the strip labels to > improve the appearance a bit and also reduced the strip font size a > bit to accommodate the lengths of the strings. The main thing was to > change \\n to \n. > > Firstly, I created a new variable called Indic as a character variable > and then did some minor surgery on three of the strings: > > Indic <- as.character(imports$Indicator) > Indic[3 + 6 *(0:5)] <- "Chemicals and related\n products imports" > Indic[4 + 6 *(0:5)] <- "Pearls, semiprecious &\nprecious stones imports" > Indic[5 + 6 *(0:5)] <- "Metaliferrous ores &\nmetal scrap imports" > > # Read Indic into the imports data frame as a factor: > imports$Indic <- factor(Indic) > > # Redo the plot: > barchart(X03/1000 ~ time | Indic, > data = imports[which(imports$time != 1), ], > horiz = FALSE, > scales = list(x = list(rot=45, labels=paste("Mar",2007:2011))), > par.strip.text=list(lineheight=1, lines=2, cex = 0.8)) > > Dennis > > On Wed, Nov 16, 2011 at 11:25 PM, Ashim Kapoor <ashimkap...@gmail.com> > wrote: > > Dear all, > > > > I have the following data, which has \\n in place of \n. I introduced > \n's > > in the csv file so that I could use it in barchart in lattice. When I did > > that and read it into R using read.csv, it read it as \\n. My question is > > how do I introduce "\n" in the middle of a long string of quoted text so > > that lattice can make multiline strips. Hitting Enter which is supposed > to > > introduce \n's does'nt work because when I goto the middle of the line > and > > press enter Open Office thinks that I am done with editing my text and > > takes me to the next line. > > > > > >> dput(imports) > > structure(list(Indicator = structure(c(5L, 4L, 2L, 12L, 8L, 7L, > > 5L, 4L, 2L, 12L, 8L, 7L, 5L, 4L, 2L, 12L, 8L, 7L, 5L, 4L, 2L, > > 12L, 8L, 7L, 5L, 4L, 2L, 12L, 8L, 7L, 5L, 4L, 2L, 12L, 8L, 7L > > ), .Label = c("", "Chemicals and related\\n products imports", > > "Coal export", "Gold imports", "Gold & silver imports", "Iron ore > export", > > "Iron & steel imports", "Metaliferrous ores & metal scrap imports", > > "Mica export", "Ores & minerals\\nexport", "Other ores &\\nminerals > > export", > > "Pearls precious &\\n semiprecious stones imports", "Processed > minerals\\n > > export" > > ), class = "factor"), Units = structure(c(2L, 2L, 2L, 2L, 2L, > > 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, > > 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = > c("", > > "Rs.crore"), class = "factor"), Expression = structure(c(2L, > > 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, > > 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, > > 2L, 2L, 2L), .Label = c("", "Ival"), class = "factor"), time = c(7, > > 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 9, 10, 10, 10, > > 10, 10, 10, 11, 11, 11, 11, 11, 11, 1, 1, 1, 1, 1, 1), X03 = c(66170.46, > > 65337.72, 62669.86, 33870.17, 36779.35, 27133.25, 71829.14, 67226.04, > > 75086.89, 29505.61, 31750.99, 32961.26, 104786.39, 95323.8, 134276.63, > > 76263, 36363.61, 41500.36, 140440.36, 135877.91, 111269.69, 76678.27, > > 36449.89, 36808.06, 162253.77, 154346.72, 124895.76, 142437.03, > > 42872.16, 43881.85, 109096.024, 103622.438, 101639.766, 71750.816, > > 36843.2, 36456.956), id = c(1L, 2L, 3L, 4L, 5L, 6L, 1L, 2L, 3L, > > 4L, 5L, 6L, 1L, 2L, 3L, 4L, 5L, 6L, 1L, 2L, 3L, 4L, 5L, 6L, 1L, > > 2L, 3L, 4L, 5L, 6L, 1L, 2L, 3L, 4L, 5L, 6L)), row.names = c("1.7", > > "2.7", "3.7", "4.7", "5.7", "6.7", "1.8", "2.8", "3.8", "4.8", > > "5.8", "6.8", "1.9", "2.9", "3.9", "4.9", "5.9", "6.9", "1.10", > > "2.10", "3.10", "4.10", "5.10", "6.10", "1.11", "2.11", "3.11", > > "4.11", "5.11", "6.11", "1.1", "2.1", "3.1", "4.1", "5.1", "6.1" > > ), .Names = c("Indicator", "Units", "Expression", "time", "X03", > > "id"), class = "data.frame", reshapeLong = structure(list(varying = > > structure(list( > > X03 = c("X03.07", "X03.08", "X03.09", "X03.10", "X03.11", > > "X03.1")), .Names = "X03", v.names = "X03", times = c(7, > > 8, 9, 10, 11, 1)), v.names = "X03", idvar = "id", timevar = "time"), > .Names > > = c("varying", > > "v.names", "idvar", "timevar"))) > >> > > > > On which I want to run > > > > barchart(X03/1000~time|Indicator, > > data=imports[which(imports$time!=1),], > > horiz=F, > > scales=list(x=list(rot=45,labels=paste("Mar",2007:2011))), > > par.strip.text=list(lineheight=1,lines=2)) > > > > Many thanks, > > Ashim. > > > > [[alternative HTML version deleted]] > > > > ______________________________________________ > > 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. > > > [[alternative HTML version deleted]] ______________________________________________ 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.