    main=textGrob(&quot;Daily QC: Blue&quot;,gp=gpar(fontsize=20,font=3))


*Edit* with v&gt;=2.0.0 of gridExtra, `main` has become `top` (for consistency with `bottom`, `left` and `right`).

Due to changes in both packages `grid` and `gridExtra`, the current answer is outdated. Library package `grid` is also required to use `textGrob` and `gpar`.

The new code should include both packages:

    library(grid)
    library(gridExtra)
    grid.arrange(p1,p3,p2,p4, ncol=2, nrow=2,
         top = textGrob(&quot;Daily QC: Blue&quot;,gp=gpar(fontsize=20,font=3)))

I want to have a binary operator `cross` (cross-product/cartesian product) that operates with traversables in Scala:

    val x = Seq(1, 2)
    val y = List(&#39;hello&#39;, &#39;world&#39;, &#39;bye&#39;)
    val z = x cross y    # i can chain as many traversables e.g. x cross y cross w etc
    
    assert z == ((1, &#39;hello&#39;), (1, &#39;world&#39;), (1, &#39;bye&#39;), (2, &#39;hello&#39;), (2, &#39;world&#39;), (2, &#39;bye&#39;))

What is the best way to do this in Scala only (i.e. not using something like scalaz)?

Cross product in Scala

I&#39;m learning Emacs after over two years of using Notepad++ as my default editor. I&#39;m still hung up on a few things, but I find myself kind of enjoying working with it.

My question is simple: in Notepad++, when I wanted to go to a specific line of my file, I used &lt;kbd&gt;CTRL+G&lt;/kbd&gt;. Emacs, for some perplexing reason, requires me to do &lt;kbd&gt;M-x goto-line [enter] $linenumber [enter]&lt;/kbd&gt;.

I can&#39;t believe there isn&#39;t a shortcut for that. I must be googling wrong, surely?

Emacs shortcut to go to a specific line in a file

I have managed to make a 2x2 plot using grid.arrange:

    library(gridExtra)
    grid.arrange(p1,p3,p2,p4, ncol=2, nrow=2, top = &quot;Daily QC: Blue&quot;)

The main title of this multiplot is very small. Is there a way to change the title text size and font.

changing title in multiplot ggplot2 using grid.arrange

I have managed to make a 2x2 plot using grid.arrange:
<pre><code class="hljs language-scss">library(gridExtra)
grid.arrange(p1,p3,p2,p4, ncol=2, nrow=2, top = "Daily QC: Blue")
</code></pre>
The main title of this multiplot is very small. Is there a way to change the title text size and font.

I am doing a for loop for generating 180 graphs for my 6000 X 180 matrix (1 graph per column), some of the data don&#39;t fit my criteria and i get the error:    

    &quot;Error in cut.default(x, breaks = bigbreak, include.lowest = T) 
    &#39;breaks&#39; are not unique&quot;. 

I am fine with the error, I want the program to continue running the for loop, and give me a list of what columns made this error (as a variable containing column names maybe?).

Here&#39;s my command:

    for (v in 2:180){
        mypath=file.path(&quot;C:&quot;, &quot;file1&quot;, (paste(&quot;graph&quot;,names(mydata[columnname]), &quot;.pdf&quot;, sep=&quot;-&quot;)))
        pdf(file=mypath)
        mytitle = paste(&quot;anything&quot;)
        myplotfunction(mydata[,columnnumber]) ## this function is defined previously in the program
    	dev.off()
    }

Note: I have found numerous posts about tryCatch and none of them worked for me (or at least i couldn&#39;t apply the function correctly). The help file wasn&#39;t very helpful as well.

Help would be appreciated. Thanks.


Skipping error in for-loop

Please consider the following

    $ R --vanilla

    &gt; as.Date(&quot;01 Jan 2000&quot;)
    Error in charToDate(x) :
        character string is not in a standard unambiguous format

But that date clearly *is* in a standard unambiguous format. Why the error message?

Worse, an ambiguous date is apparently accepted without warning or error and then read incorrectly!

    &gt; as.Date(&quot;01/01/2000&quot;)
    [1] &quot;0001-01-20&quot;

I&#39;ve searched and found 28 other questions in the [R] tag containing this error message. All with solutions and workarounds involving specifying the format, iiuc. This question is different in that I&#39;m asking where are the standard unambiguous formats defined anyway, and can they be changed?  Does everyone get these messages or is it just me? Perhaps it is locale related?

In other words, is there a better solution than needing to specify the format?

[29 questions containing &quot;[R] standard unambiguous format&quot;][1]

    &gt; sessionInfo()
    R version 2.15.2 (2012-10-26)
    Platform: x86_64-w64-mingw32/x64 (64-bit)
    
    locale:
    [1] LC_COLLATE=English_United Kingdom.1252
    [2] LC_CTYPE=English_United Kingdom.1252
    [3] LC_MONETARY=English_United Kingdom.1252
    [4] LC_NUMERIC=C
    [5] LC_TIME=English_United Kingdom.1252
    
    attached base packages:
    [1] stats     graphics  grDevices utils     datasets  methods   base

  [1]: https://stackoverflow.com/search?q=%5Br%5D%20standard%20unambiguous%20format

What are the &quot;standard unambiguous date&quot; formats for string-to-date conversion in R?

I&#39;m trying to remove the title of a legend in `ggplot2`:

    df &lt;- data.frame(
      g = rep(letters[1:2], 5),
      x = rnorm(10),
      y = rnorm(10)
    )
    
    library(ggplot2)
    ggplot(df, aes(x, y, colour=g)) +
      geom_line(stat=&quot;identity&quot;) + 
      theme(legend.position=&quot;bottom&quot;)

![enter image description here][1]

I&#39;ve seen [this question][2] and none of the solutions there seem to work for me. Most give an error about how `opts` is deprecated and to use `theme` instead. I&#39;ve also tried various versions of `theme(legend.title=NULL)`, `theme(legend.title=&quot;&quot;)`, `theme(legend.title=element_blank)`, etc. Typical error messages are: 

    &#39;opts&#39; is deprecated. Use &#39;theme&#39; instead. (Deprecated; last used in version 0.9.1)
    &#39;theme_blank&#39; is deprecated. Use &#39;element_blank&#39; instead. (Deprecated; last used in version 0.9.1)

I&#39;m using `ggplot2` for the first time since version 0.9.3 was released and I&#39;m finding it difficult to navigate some of the changes... 


  [1]: http://i.stack.imgur.com/S0UjQ.png
  [2]: https://stackoverflow.com/questions/6022898

remove legend title in ggplot

Could anyone explain how to change a single cell in a `data.frame` to something else.
Basically I just want to rename that one cell, not all cells which matches it.
I can&#180;t use the `edit()` command because it will screw up my script since im using the `data.frame` on several occasions.

Thanks in advance

How do I change a single value in a data.frame?

Datalink:
[the data used][1]


My code:
        
    ccfsisims &lt;- read.csv(file = &quot;F:/Purdue University/RA_Position/PhD_ResearchandDissert/PhD_Draft/GTAP-CGE/GTAP_NewAggDatabase/NewFiles/GTAP_ConsIndex.csv&quot;, header=TRUE, sep=&quot;,&quot;, na.string=&quot;NA&quot;, dec=&quot;.&quot;, strip.white=TRUE)
    ccfsirsts &lt;- as.data.frame(ccfsisims)
    ccfsirsts[6:24] &lt;- sapply(ccfsirsts[6:24],as.numeric)
    ccfsirsts &lt;- droplevels(ccfsirsts)
    ccfsirsts &lt;- transform(ccfsirsts,sres=factor(sres,levels=unique(sres)))

    library(ggplot2)

    #------------------------------------------------------------------------------------------
    #### Plot of food security index for Morocco and Turkey by sector
    #------------------------------------------------------------------------------------------

    #_Code_Begin...

    datamortur &lt;- melt(ccfsirsts[ccfsirsts$region %in% c(&quot;TUR&quot;,&quot;MAR&quot;), ]) # Selecting regions of interest
    datamortur1 &lt;- datamortur[datamortur$variable %in% c(&quot;pFSI2&quot;), ] # Selecting the food security index of interest
    datamortur2 &lt;- datamortur1[datamortur1$sector %in% c(&quot;wht&quot;,&quot;gro&quot;,&quot;VegtFrut&quot;,&quot;osd&quot;,&quot;OthCrop&quot;,&quot;VegtOil&quot;,&quot;XPrFood&quot;), ] # Selecting food sectors of interest
    datamortur3 &lt;- subset(datamortur2, tradlib !=&quot;BASEDATA&quot;) # Eliminating the &quot;BASEDATA&quot; scenario results  

    allfsi.f &lt;- datamortur3
    fsi.wht &lt;- allfsi.f[allfsi.f$sector %in% c(&quot;wht&quot;), ]

    Figure29 &lt;- ggplot(data=fsi.wht, aes(x=factor(sres),y=value,colour=factor(tradlib)))
    Figure29 + geom_line(aes(group=factor(tradlib),size=2)) + facet_grid(regionsFull~., scales=&quot;free_y&quot;, labeller=reg_labeller) + scale_colour_brewer(type = &quot;div&quot;) +
    theme(axis.text.x = element_text(colour = &#39;black&#39;, angle = 90, size = 13, hjust = 0.5, vjust = 0.5),axis.title.x=element_blank()) + 
    ylab(&quot;FSI (%Change)&quot;) + theme(axis.text.y = element_text(colour = &#39;black&#39;, size = 12), axis.title.y = element_text(size = 12, hjust = 0.5, vjust = 0.2)) + 
    theme(strip.text.y = element_text(size = 11, hjust = 0.5, vjust = 0.5, face = &#39;bold&#39;))

My result:
![Result_Figure][2] 


Newresult with aes(size=2):
![NewResult-Figure][3]

My question:
Is there a way to control for line width more precisely to avoid the result in the second plot? I particularly find it document-unfriendly, and more so for publishing purposes to include the plot with the newly defined line width.

best,
ismail 


  [1]: https://www.dropbox.com/s/yt4l10nel5bwxoq/GTAP_ConsIndex.csv
  [2]: http://i.stack.imgur.com/oSMtm.png
  [3]: http://i.stack.imgur.com/ZZ0Tu.png

How to change line width in ggplot?

I&#39;m trying to figure out how to use downloadButton to save a plot with shiny. The example in the package demonstrates `downloadButton/downloadHandler` to save a .csv. I&#39;m going to make a reproducible example based on that.

For `ui.R`

    shinyUI(pageWithSidebar(
      headerPanel(&#39;Downloading Data&#39;),
      sidebarPanel(
    selectInput(&quot;dataset&quot;, &quot;Choose a dataset:&quot;, 
                choices = c(&quot;rock&quot;, &quot;pressure&quot;, &quot;cars&quot;)),
        downloadButton(&#39;downloadData&#39;, &#39;Download Data&#39;),
        downloadButton(&#39;downloadPlot&#39;, &#39;Download Plot&#39;)
      ),
      mainPanel(
        plotOutput(&#39;plot&#39;)
      )
    ))

For `server.R`

    library(ggplot2)
    shinyServer(function(input, output) {
      datasetInput &lt;- reactive({
        switch(input$dataset,
               &quot;rock&quot; = rock,
               &quot;pressure&quot; = pressure,
               &quot;cars&quot; = cars)
      })
      
      plotInput &lt;- reactive({
        df &lt;- datasetInput()
        p &lt;-ggplot(df, aes_string(x=names(df)[1], y=names(df)[2])) +
          geom_point()
      })
      
      output$plot &lt;- renderPlot({
        print(plotInput())
      })
      
      output$downloadData &lt;- downloadHandler(
        filename = function() { paste(input$dataset, &#39;.csv&#39;, sep=&#39;&#39;) },
        content = function(file) {
          write.csv(datatasetInput(), file)
        }
      )
      output$downloadPlot &lt;- downloadHandler(
        filename = function() { paste(input$dataset, &#39;.png&#39;, sep=&#39;&#39;) },
        content = function(file) {
          ggsave(file,plotInput())
        }
      )
    })

If you&#39;re answering this question, you are probably familiar with this, but to get this working, save the above into separate scripts (`ui.R` and `server.R` into a folder (`foo`) within the working directory. To run the shiny app, run `runApp(&quot;foo&quot;)`.

Using `ggsave`, I get an error message indicating that `ggsave` can&#39;t use the `filename` function (I think). If I use the standard graphics device (like below), the `Download Plot` works without an error, but it doesn&#39;t write the graphic.

Any tips to get downloadHandler working for writing plots would be appreciated.

How to save plots that are made in a shiny app

While trying to modify theme settings this simple code gives the following error:

    library(ggplot2)
    theme_nogrid &lt;- theme_set(theme_update(  
                      plot.margin=unit(c(.25, .25, .25, .25), &quot;in&quot;),))
  
    Error in do.call(theme, list(...)) : could not find function &quot;unit&quot;

`R` gives me this error for any element that uses &#39;unit&#39;. Any other settings that do not call &#39;unit&#39; work fine. I am running R v.2.15.2 (64-bit Windows). 

I extensively searched online about this problem and found nothing. 
I appreciate any suggestions to the problem.


Error: could not find function &quot;unit&quot;

I have a really simple question, which I am struggling to find the answer to.  I hoped someone here might be able to help me.

An example dataframe is presented below:

    a &lt;- c(1:10)
    b &lt;- c(10:1)
    df &lt;- data.frame(a,b)
    library(ggplot2)
    g = ggplot(data=df) + geom_point(aes(x=a, y=b)) +
      xlab(&quot;x axis&quot;)
    g

I just want to learn how I change the text size of the axes titles and the axes labels.

Change size of axes title and labels in ggplot2

I am trying to plot multiple plots using `ggplot2`, arranging them using `grid.arrange()`.
Since I managed to find someone describing the exact problem I have, I have quoted from the problem description from [link](https://groups.google.com/forum/?fromgroups#!topic/ggplot2/AsIcHtouIyY):




When I use `ggsave()` after `grid.arrange()`, i.e.

&gt;     grid.arrange(sgcir1,sgcir2,sgcir3,ncol=2,nrow=2)
&gt;     ggsave(&quot;sgcirNIR.jpg&quot;)


I do not save the grid plot but the last individual ggplot. Is there any
way of actually saving the plot as displayed by `grid.arrange()` using
`ggsave()` or something similar?
Other than using the older way


&gt;     jpeg(&quot;sgcirNIR.jpg&quot;)
&gt;     grid.arrange(sgcir1,sgcir2,sgcir3,ncol=2,nrow=2)
&gt;     dev.off()

The same link gives the solution below:

    require(grid)
    require(gridExtra)
    p &lt;- arrangeGrob(qplot(1,1), textGrob(&quot;test&quot;))
    grid.draw(p) # interactive device
    ggsave(&quot;saving.pdf&quot;, p) # need to specify what to save explicitly

However, I can&#39;t figure out how to use `ggsave()` to save the output of the `grid.arrange()` call in the following code, which is taken from [link](https://github.com/hadley/ggplot2/wiki/Share-a-legend-between-two-ggplot2-graphs):

    library(ggplot2)
    library(gridExtra)
    dsamp &lt;- diamonds[sample(nrow(diamonds), 1000), ] 
    
    p1 &lt;- qplot(carat, price, data=dsamp, colour=clarity)
    p2 &lt;- qplot(carat, price, data=dsamp, colour=clarity, geom=&quot;path&quot;)
    
    g_legend&lt;-function(a.gplot){
    tmp &lt;- ggplot_gtable(ggplot_build(a.gplot))
    leg &lt;- which(sapply(tmp$grobs, function(x) x$name) == &quot;guide-box&quot;)
    legend &lt;- tmp$grobs[[leg]]
    return(legend)}
    
    legend &lt;- g_legend(p1)
    lwidth &lt;- sum(legend$width)
    
    ## using grid.arrange for convenience
    ## could also manually push viewports
    grid.arrange(arrangeGrob(p1 + theme(legend.position=&quot;none&quot;),
                                            p2 + theme(legend.position=&quot;none&quot;),
                                            main =&quot;this is a title&quot;,
                                            left = &quot;This is my global Y-axis title&quot;), legend, 
                         widths=unit.c(unit(1, &quot;npc&quot;) - lwidth, lwidth), nrow=1)
    
    # What code to put here to save output of grid.arrange()?

Saving grid.arrange() plot to file

I have three plots and I try to combine them with grid.arrange. The last plot should have a smaller height than the first two plots and all the plots should have the same width.

A working example:

    p1 &lt;- qplot(mpg, wt, data=mtcars)
    p2 &lt;- p1
    p3 &lt;- p1 + theme(axis.text.y=element_blank(), axis.title.y=element_blank())

    grid.arrange(arrangeGrob(p1,p2, ncol=1, nrow=2),
             arrangeGrob(p3, ncol=1, nrow=1), heights=c(4,1)) 


[![enter image description here][1]][1]

Here, the last plot has a larger width than the first two. In my real data, even if I keep the text and the title on the y-axis, I still have a different width for the third plot.

I tried to add &quot;widths&quot;:

     grid.arrange(arrangeGrob(p1,p2, ncol=1, nrow=2),
             arrangeGrob(p3, ncol=1, nrow=1), heights=c(4,1), widths=c(2,1))

But it turns into a two column plot...

[![enter image description here][2]][2]

I also tried another code:

    p1 &lt;- ggplotGrob(p1)
    p2 &lt;- ggplotGrob(p2)
    p3 &lt;- ggplotGrob(p3)
    # 
    stripT &lt;- subset(p2$layout, grepl(&quot;spacer&quot;, p2$layout$name))
    p3 &lt;- p3[-stripT$t, ]

    grid.draw(rbind(p1, p2, p3, size = &quot;first&quot;)) 

I have the same widths but now I don&#39;t know how to change the heights...

[![enter image description here][3]][3]


  [1]: http://i.stack.imgur.com/aTEvV.png
  [2]: http://i.stack.imgur.com/6a61f.png
  [3]: http://i.stack.imgur.com/zRrLu.png

Well, can someone help me to combine both the height and width aspects for a final plot?

Content Type	Original Author	Original Content on Stackoverflow
Question	moadeep	View Question on Stackoverflow
Solution 1 - R	George Dontas	View Answer on Stackoverflow
Solution 2 - R	MBorg	View Answer on Stackoverflow

changing title in multiplot ggplot2 using grid.arrange

R Problem Overview

R Solutions

Solution 1 - R

Solution 2 - R

Emacs shortcut to go to a specific line in a file

Cross product in Scala

Attributions