{"action":"created","issue":{"url":"https://api.github.com/repos/ggobi/ggally/issues/139","repository_url":"https://api.github.com/repos/ggobi/ggally","labels_url":"https://api.github.com/repos/ggobi/ggally/issues/139/labels{/name}","comments_url":"https://api.github.com/repos/ggobi/ggally/issues/139/comments","events_url":"https://api.github.com/repos/ggobi/ggally/issues/139/events","html_url":"https://github.com/ggobi/ggally/issues/139","id":129502716,"number":139,"title":"custom correlation plot and wrap error","user":{"login":"schloerke","id":93231,"avatar_url":"https://avatars.githubusercontent.com/u/93231?v=3","gravatar_id":"","url":"https://api.github.com/users/schloerke","html_url":"https://github.com/schloerke","followers_url":"https://api.github.com/users/schloerke/followers","following_url":"https://api.github.com/users/schloerke/following{/other_user}","gists_url":"https://api.github.com/users/schloerke/gists{/gist_id}","starred_url":"https://api.github.com/users/schloerke/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/schloerke/subscriptions","organizations_url":"https://api.github.com/users/schloerke/orgs","repos_url":"https://api.github.com/users/schloerke/repos","events_url":"https://api.github.com/users/schloerke/events{/privacy}","received_events_url":"https://api.github.com/users/schloerke/received_events","type":"User","site_admin":false},"labels":[],"state":"closed","locked":false,"assignee":null,"milestone":null,"comments":10,"created_at":"2016-01-28T16:33:10Z","updated_at":"2016-03-11T00:59:35Z","closed_at":"2016-01-28T17:06:16Z","body":"Question received....\r\n\r\n1) Sometimes, the R shows:\r\n```\r\n> ggpairs(ar,upper=list(params=c(size=10)),lower=list(continuous='smooth'))\r\nError in display_param_error() : \r\n  'params' is a deprecated argument.  Please 'wrap' the function to supply arguments. help(\"wrap\", package = \"GGally\")\r\n```\r\nWhy?\r\n\r\n2) I used the following codes to create a correlation matrix for figure 1.\r\n```{r}\r\npanel.plot <- function(x, y) {\r\n    usr <- par(\"usr\"); on.exit(par(usr))\r\n    par(usr = c(0, 1, 0, 1))\r\n    ct <- cor.test(x,y)\r\n    sig <- symnum(ct$p.value, corr = FALSE, na = FALSE,\r\n                  cutpoints = c(0, 0.001, 0.01, 0.05, 0.1, 1),\r\n                  symbols = c(\"***\", \"**\", \"*\", \".\", \" \"))\r\n    r <- ct$estimate\r\n    rt <- format(r, digits=2)[1]\r\n    cex <- 0.5/strwidth(rt)\r\n\r\n    text(.5, .5, rt, cex=cex *r)\r\n    text(.8,.8,sig,cex=cex)\r\n}\r\npanel.smooth <- function(x,y) {\r\n  points(x,y,col='blue')\r\n  abline(lm(y~x))\r\n}\r\nar <- read.table('clipboard',T)\r\nattach(ar)\r\npairs(ar,upper.panel=panel.plot,lower.panel=panel.smooth)\r\n```\r\n![unnamed](https://cloud.githubusercontent.com/assets/93231/12650862/77fa349a-c5b2-11e5-87a0-659b9067ee71.png)\r\n\r\nAnd I used the following ggpairs codes to create figure 2.\r\n```{r}\r\nggpairs(ar,lower=list(continuous='smooth'))\r\n```\r\n![unnamed-1](https://cloud.githubusercontent.com/assets/93231/12650922/b50701a6-c5b2-11e5-8eda-a4f5cb60e8d3.png)\r\n\r\nAs you can see the font size varies with the size of the correlation coefficient in the 1st figure. I would like to produce something similar with ggpairs. I would also like to remove 'Corr:' and add an indicator of significance behind the coefficient (just like the 3rd figure below). \r\n\r\n![unnamed-2](https://cloud.githubusercontent.com/assets/93231/12650956/d32b9336-c5b2-11e5-949c-9c32fe7e2401.png)\r\n\r\n\r\nWould you please give me some suggestions or codes if possible?"},"comment":{"url":"https://api.github.com/repos/ggobi/ggally/issues/comments/195122802","html_url":"https://github.com/ggobi/ggally/issues/139#issuecomment-195122802","issue_url":"https://api.github.com/repos/ggobi/ggally/issues/139","id":195122802,"user":{"login":"schloerke","id":93231,"avatar_url":"https://avatars.githubusercontent.com/u/93231?v=3","gravatar_id":"","url":"https://api.github.com/users/schloerke","html_url":"https://github.com/schloerke","followers_url":"https://api.github.com/users/schloerke/followers","following_url":"https://api.github.com/users/schloerke/following{/other_user}","gists_url":"https://api.github.com/users/schloerke/gists{/gist_id}","starred_url":"https://api.github.com/users/schloerke/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/schloerke/subscriptions","organizations_url":"https://api.github.com/users/schloerke/orgs","repos_url":"https://api.github.com/users/schloerke/repos","events_url":"https://api.github.com/users/schloerke/events{/privacy}","received_events_url":"https://api.github.com/users/schloerke/received_events","type":"User","site_admin":false},"created_at":"2016-03-11T00:59:35Z","updated_at":"2016-03-11T00:59:35Z","body":"I'm going to lock this conversation.  \r\n\r\n* If there are any more ggpairs (or any GGally) unexpected behavior or issues, please submit a new github issue.  \r\n* If there are any plot implementation questions, I'd like to divert the conversation to the slack group for GGally: https://ggally.slack.com/messages/ggpairs/"}}