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': '5263286692613136497', 'body': 'Thanks for this ^_^', 'timestamp': '1322763446708', 'permalink': 'https://www.mybloggertricks.com/2011/06/recent-comments-widget-by-blogger.html?showCommentx3d1322763446708#c5263286692613136497', 'author': 'name': 'Anonymous', 'avatarUrl': '//img1.blogblog.com/img/blank.gif', 'profileUrl': '', 'displayTime': 'Dec 1, 2011, 11:17:00 PM', 'deleteclass': 'item-control blog-admin pid-2050843738', 'id': '6470304630522703831', 'body': 'THANK YOU SO MUCH!!!!!!!!!!x3cbr /x3eIx26#39;ve tried adding this since ages ago, went to so so many sites, tried so many different ways and it never worked on my blog. This is the first one that worked and it was so super simple. Thank you so so much!', 'timestamp': '1326328877026', 'permalink': 'https://www.mybloggertricks.com/2011/06/recent-comments-widget-by-blogger.html?showCommentx3d1326328877026#c6470304630522703831', 'author': 'name': 'the sabra', 'avatarUrl': '//lh3.googleusercontent.com/zFdxGE77vvD2w5xHy6jkVuElKv-U9_9qLkRYK8OnbDeJPtjSZ82UPq5w6hJ-SAx3ds35', 'profileUrl': 'https://www.blogger.com/profile/07134516234799909775', 'displayTime': 'Jan 12, 2012, 5:41:00 AM', 'deleteclass': 'item-control blog-admin pid-1015541732', 'id': '3955080218063886884', 'body': 'Thanksx26#39;. It works prorerly .', 'timestamp': '1354559613947', 'permalink': 'https://www.mybloggertricks.com/2011/06/recent-comments-widget-by-blogger.html?showCommentx3d1354559613947#c3955080218063886884', 'author': 'name': 'Md.shaiful islam Talukder', 'avatarUrl': '//lh3.googleusercontent.com/-nW5VtUFYZSg/AAAAAAAAAAI/AAAAAAAAAZY/33qFjFH475o/s35-c/photo.jpg', 'profileUrl': 'https://www.blogger.com/profile/14257711496173285001', 'displayTime': 'Dec 3, 2012, 11:33:00 PM', 'deleteclass': 'item-control blog-admin pid-625973137', 'id': '759439962028382563', 'body': 'thanks man', 'timestamp': '1364069560393', 'permalink': 'https://www.mybloggertricks.com/2011/06/recent-comments-widget-by-blogger.html?showCommentx3d1364069560393#c759439962028382563', 'author': 'name': 'Muhammad Talha Bin Yousuf', 'avatarUrl': '//lh5.googleusercontent.com/-XiTgTGed2-k/AAAAAAAAAAI/AAAAAAAAEJY/ACns1fA19Ag/s35-c/photo.jpg', 'profileUrl': 'https://www.blogger.com/profile/16763868935959904148', 'displayTime': 'Mar 24, 2013, 1:12:00 AM', 'deleteclass': 'item-control blog-admin pid-2089893714', 'id': '8453480868879239922', 'body': 'This is the good blog and the contents are really nice and well thinking about this. and the article is very nice. thanks for sharing here with us.', 'timestamp': '1366023896074', 'permalink': 'https://www.mybloggertricks.com/2011/06/recent-comments-widget-by-blogger.html?showCommentx3d1366023896074#c8453480868879239922', 'author': 'name': 'Pratheesh omnitec', 'avatarUrl': '//lh3.googleusercontent.com/zFdxGE77vvD2w5xHy6jkVuElKv-U9_9qLkRYK8OnbDeJPtjSZ82UPq5w6hJ-SAx3ds35', 'profileUrl': 'https://www.blogger.com/profile/16515512338760187592', 'displayTime': 'Apr 15, 2013, 4:04:00 PM', 'deleteclass': 'item-control blog-admin pid-546917127'];
var msgs = 'loadMore': 'Load more...', 'loading': 'Loading...', 'loaded': 'No more!', 'addComment': 'Add comment', 'reply': 'Reply', 'delete': 'Delete';
var config = 'blogId': '8193278726666811965', 'postId': '3735634487698958109', 'feed': 'https://www.mybloggertricks.com/feeds/3735634487698958109/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
AnonymousDec 1, 2011, 11:17:00 PM
Thanks for this ^_^
ReplyDelete
the sabraJan 12, 2012, 5:41:00 AM
THANK YOU SO MUCH!!!!!!!!!!
I've tried adding this since ages ago, went to so so many sites, tried so many different ways and it never worked on my blog. This is the first one that worked and it was so super simple. Thank you so so much!
ReplyDelete
Md.shaiful islam TalukderDec 3, 2012, 11:33:00 PM
Thanks'. It works prorerly .
ReplyDelete
Muhammad Talha Bin YousufMar 24, 2013, 1:12:00 AM
thanks man
ReplyDelete
Pratheesh omnitecApr 15, 2013, 4:04:00 PM
This is the good blog and the contents are really nice and well thinking about this. and the article is very nice. thanks for sharing here with us.
ReplyDelete