1 2 I'm trying to develop a multiplot heatmap.2 saved to a pdf. I'm having some success but the axis labels are getting chopped off. Subplot titles are also desirable but again the labels are getting chopped. Here's my reproducible code: library(gridExtra) library(grid) library(gridGraphics) library(gplots) Col = colorRampPalette(c("red","orange","yellow", "white")) grab_grob <- function() grid.echo() grid.grab() par(cex.main=0.1, mar = c(1,1,1,1) ) #data<-read.table("heatmap.input.matrix.data.txt") lmat = rbind(c(2,3),c(4,1),c(4,1)) lwid = c(2.5,4) lhei = c(0.5,4,3) labRowvec <- c(rep(NULL, dim(matrix(runif(1000, 1,10),ncol=50))[1])) labColvec <- c(rep(NULL, dim(matrix(runif(1000, 1,10),ncol=50))[2])) gl <- lapply(1:12, function(i) heatmap.2(matrix(runif(1000, 1,10),ncol=50), dendrogram = "none",offsetRow=-0.5, offsetCol=-1,srtCol=0, density="density", lmat =lmat,lhei = l
(function() {
var items = ['id': '5363149022601602748', 'body': 'Hey! Its really awesome to know deeply about this new template tags. I was trying to understand this on official blog but it was little bit confusing there. Thanks for all the examples.', 'timestamp': '1436270903198', 'permalink': 'https://www.mybloggertricks.com/2015/07/blogger-template-logic-operators.html?showCommentx3d1436270903198#c5363149022601602748', 'author': 'name': 'Anubhav Anand', 'avatarUrl': '//lh3.googleusercontent.com/-wTgNUJcSQ2s/AAAAAAAAAAI/AAAAAAAAAII/LwWafnor9iQ/s35-c/photo.jpg', 'profileUrl': 'https://www.blogger.com/profile/07150507544016162630', 'displayTime': 'Jul 7, 2015, 5:08:00 PM', 'deleteclass': 'item-control blog-admin pid-1604833031', 'id': '7834555284969933526', 'body': 'Thank you very much for this information. I have more than x26quot;quite a fewx26quot; instances of x26quot;b:ifx26quot; choices that will benefit from being updated with your/their simplified codes.x3cbr /x3eThanks!', 'timestamp': '1436300216390', 'permalink': 'https://www.mybloggertricks.com/2015/07/blogger-template-logic-operators.html?showCommentx3d1436300216390#c7834555284969933526', 'author': 'name': 'Alpine Queen', 'avatarUrl': 'https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjaDoYY3RIzsqVtScrHUHS2-QTjS6CNJRI-HitOux8X9xCl0JBCd0avNxtH_4rhR0Mi7gEPTRRVahf4ohi3s9JnAVQE4LoyjA0tzlYkDVVOXv1jGQ85pIAuLJfq_0kXoQThRaEnbubXJgVc/s35/*', 'profileUrl': 'https://www.blogger.com/profile/05886625200401094991', 'displayTime': 'Jul 8, 2015, 1:16:00 AM', 'deleteclass': 'item-control blog-admin pid-1294237916', 'id': '6775634205242759414', 'body': 'HI frends...x3cbr /x3eYour post is very amazing . and very helpful me .x3cbr /x3eThanks u so much for providing this post. its motivated me.x3cbr /x3ex3cbr /x3eThanks', 'timestamp': '1438074391268', 'permalink': 'https://www.mybloggertricks.com/2015/07/blogger-template-logic-operators.html?showCommentx3d1438074391268#c6775634205242759414', 'author': 'name': 'Brahma Kumaris', 'avatarUrl': '//lh4.googleusercontent.com/-FlPpDJaRtJE/AAAAAAAAAAI/AAAAAAAAAKQ/eh-fznGC650/s35-c/photo.jpg', 'profileUrl': 'https://www.blogger.com/profile/06682894753672508814', 'displayTime': 'Jul 28, 2015, 2:06:00 PM', 'deleteclass': 'item-control blog-admin pid-231054098', 'id': '3247525727186718401', 'body': 'Great information about the operators !!x3cbr /x3eHow to show a content when a post-title contains specific string. How the code would be?', 'timestamp': '1444802071919', 'permalink': 'https://www.mybloggertricks.com/2015/07/blogger-template-logic-operators.html?showCommentx3d1444802071919#c3247525727186718401', 'author': 'name': 'Justin Philip', 'avatarUrl': '//lh4.googleusercontent.com/-dqMCxQhqX68/AAAAAAAAAAI/AAAAAAAAAb4/FdiH1O0EqY8/s35-c/photo.jpg', 'profileUrl': 'https://www.blogger.com/profile/10086627572779942566', 'displayTime': 'Oct 14, 2015, 10:54:00 AM', 'deleteclass': 'item-control blog-admin pid-540475014'];
var msgs = 'loadMore': 'Load more...', 'loading': 'Loading...', 'loaded': 'No more!', 'addComment': 'Add comment', 'reply': 'Reply', 'delete': 'Delete';
var config = 'blogId': '8193278726666811965', 'postId': '1274774677617587463', 'feed': 'https://www.mybloggertricks.com/feeds/1274774677617587463/comments/default', 'authorName': 'M. Mustafa Ahmedzai', 'authorUrl': 'https://www.blogger.com/profile/11681339458447132019', 'baseUri': 'https://www.blogger.com', 'maxThreadDepth': 2;
// 0)
cursor = parseInt(items[items.length - 1].timestamp) + 1;
var bodyFromEntry = function(entry)
if (entry.gd$extendedProperty)
for (var k in entry.gd$extendedProperty)
if (entry.gd$extendedProperty[k].name == 'blogger.contentRemoved')
return '' + entry.content.$t + '';
return entry.content.$t;
var parse = function(data)
cursor = null;
var comments = ;
if (data && data.feed && data.feed.entry)
for (var i = 0, entry; entry = data.feed.entry[i]; i++)
var comment = ;
// comment ID, parsed out of the original id format
var id = /blog-(d+).post-(d+)/.exec(entry.id.$t);
comment.id = id ? id[2] : null;
comment.body = bodyFromEntry(entry);
comment.timestamp = Date.parse(entry.published.$t) + '';
if (entry.author && entry.author.constructor === Array)
var auth = entry.author[0];
if (auth)
comment.author =
name: (auth.name ? auth.name.$t : undefined),
profileUrl: (auth.uri ? auth.uri.$t : undefined),
avatarUrl: (auth.gd$image ? auth.gd$image.src : undefined)
;
if (entry.link)
if (entry.link[2])
comment.link = comment.permalink = entry.link[2].href;
if (entry.link[3])
var pid = /.*comments/default/(d+)?.*/.exec(entry.link[3].href);
if (pid && pid[1])
comment.parentId = pid[1];
comment.deleteclass = 'item-control blog-admin';
if (entry.gd$extendedProperty)
for (var k in entry.gd$extendedProperty)
if (entry.gd$extendedProperty[k].name == 'blogger.itemClass')
comment.deleteclass += ' ' + entry.gd$extendedProperty[k].value;
else if (entry.gd$extendedProperty[k].name == 'blogger.displayTime')
comment.displayTime = entry.gd$extendedProperty[k].value;
comments.push(comment);
return comments;
;
var paginator = function(callback) {
if (hasMore()) {
var url = config.feed + '?alt=json&v=2&orderby=published&reverse=false&max-results=50';
if (cursor)
url += '&published-min=' + new Date(cursor).toISOString();
window.bloggercomments = function(data) {
var parsed = parse(data);
cursor = parsed.length
Anubhav AnandJul 7, 2015, 5:08:00 PM
Hey! Its really awesome to know deeply about this new template tags. I was trying to understand this on official blog but it was little bit confusing there. Thanks for all the examples.
ReplyDelete
Alpine QueenJul 8, 2015, 1:16:00 AM
Thank you very much for this information. I have more than "quite a few" instances of "b:if" choices that will benefit from being updated with your/their simplified codes.
Thanks!
ReplyDelete
Brahma KumarisJul 28, 2015, 2:06:00 PM
HI frends...
Your post is very amazing . and very helpful me .
Thanks u so much for providing this post. its motivated me.
Thanks
ReplyDelete
Justin PhilipOct 14, 2015, 10:54:00 AM
Great information about the operators !!
How to show a content when a post-title contains specific string. How the code would be?
ReplyDelete