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': '4305246659295948787', 'body': 'Hmm... thts what I am looking for thanks a lot.', 'timestamp': '1260117487136', 'permalink': 'https://www.mybloggertricks.com/2009/12/recent-comments-widget-by-feedburner.html?showCommentx3d1260117487136#c4305246659295948787', 'author': Hack Tutors', 'avatarUrl': '//img1.blogblog.com/img/blank.gif', 'profileUrl': 'http://hacktutors.blogspot.com', 'displayTime': 'Dec 6, 2009, 9:38:00 PM', 'deleteclass': 'item-control blog-admin pid-883335663', 'id': '3420573461026447373', 'body': 'Thank you mohammad. This widget is great!', 'timestamp': '1260308168417', 'permalink': 'https://www.mybloggertricks.com/2009/12/recent-comments-widget-by-feedburner.html?showCommentx3d1260308168417#c3420573461026447373', 'author': 'name': 'gorav', 'avatarUrl': '//img1.blogblog.com/img/blank.gif', 'profileUrl': '', 'displayTime': 'Dec 9, 2009, 2:36:00 AM', 'deleteclass': 'item-control blog-admin pid-2130984586', 'id': '6379082978654281931', 'body': '@Anup and @goravx3cbr /x3ex3cbr /x3eI am glad you found it helpful', 'timestamp': '1260362337255', 'permalink': 'https://www.mybloggertricks.com/2009/12/recent-comments-widget-by-feedburner.html?showCommentx3d1260362337255#c6379082978654281931', 'author': 'name': 'Mohammad Mustafa Ahmedzai', 'avatarUrl': 'https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEggot5slWGpvs6tNYI0QV_ueCyhuL5rTNQC9X8z9BpYkqwcV5bxSRa3Hki39OryVlf2crGMZPWRdhv5TWdo-21scpi4m55gLRy-wTIJuWRxUTAfJGE8ItZ1umcfOmiwGlJu6Av_iotOSjs/s35/384304wl3ygq6tre.jpg', 'profileUrl': 'https://www.blogger.com/profile/11681339458447132019', 'displayTime': 'Dec 9, 2009, 5:38:00 PM', 'deleteclass': 'item-control blog-admin pid-1736397285', 'id': '304784952007547752', 'body': 'but there is size limit also, how to avoid that', 'timestamp': '1265458308839', 'permalink': 'https://www.mybloggertricks.com/2009/12/recent-comments-widget-by-feedburner.html?showCommentx3d1265458308839#c304784952007547752', 'author': 'name': 'Praveen Kumar', 'avatarUrl': 'https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEji4NTY6-rtjjS4DY_2ifTZxqaYpGVeswz8QiyiRFJQfMT8BffHbG3qHz2qazhC5L5CNUn4eqpj0LrYvAHfqeUOSjGBRu8XKKodSw9ttBT2jSvq8SqgrQDgOGwPd0SZ95I3RheFz6tdlIU/s35/Praveen-sketch.jpg', 'profileUrl': 'https://www.blogger.com/profile/06252546038685873285', 'displayTime': 'Feb 6, 2010, 5:11:00 PM', 'deleteclass': 'item-control blog-admin pid-317318831', 'id': '4497126940424369561', 'body': 'Cool widget, thank a lot.', 'timestamp': '1318784129935', 'permalink': 'https://www.mybloggertricks.com/2009/12/recent-comments-widget-by-feedburner.html?showCommentx3d1318784129935#c4497126940424369561', 'author': 'name': 'HD Cafe', 'avatarUrl': 'https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiqgMciP7fIqB7rE5A60aLyrMVJFTlSQIFTjYo6tMA5Pv4Ku85pkhciVAZi1XRNPGJArRcZYEZo8H9l-1wVyO-PGWn7B0vbJJ8w5FKBwyWsyyOBtFcgVm4kQuBvjI0_uuoOrIjOh6O1VXeC/s35/HD-Cafe.jpg', 'profileUrl': 'https://www.blogger.com/profile/13298957602372248772', 'displayTime': 'Oct 16, 2011, 9:55:00 PM', 'deleteclass': 'item-control blog-admin pid-484794333', 'id': '3029648978809329246', 'body': 'Thank You again.x3cbr /x3eAm already using and working. But not since for comments x26gt;200x3cbr /x3eDo you, Please release any additional code to make it work ?x3cbr /x3eThank You again and again.', 'timestamp': '1327387754564', 'permalink': 'https://www.mybloggertricks.com/2009/12/recent-comments-widget-by-feedburner.html?showCommentx3d1327387754564#c3029648978809329246', 'author': 'name': 'Ifinder', 'avatarUrl': '//1.bp.blogspot.com/-9sQhqjkwLJE/TxFT3qAjGMI/AAAAAAAAAFI/CAjJc44IyDo/s35/450X615boat-blue-sky-opt.jpg', 'profileUrl': 'https://www.blogger.com/profile/03621334866239360699', 'displayTime': 'Jan 24, 2012, 11:49:00 AM', 'deleteclass': 'item-control blog-admin pid-1719863298', 'id': '1055482869763065217', 'body': 'Hope, Lot more from here and wish to include this blog in my blogx26#39;s Link List of x26#39; Blogs Ack with Love x26#39;. Thanking You Again.', 'timestamp': '1327388279223', 'permalink': 'https://www.mybloggertricks.com/2009/12/recent-comments-widget-by-feedburner.html?showCommentx3d1327388279223#c1055482869763065217', 'author': 'name': 'Ifinder', 'avatarUrl': '//1.bp.blogspot.com/-9sQhqjkwLJE/TxFT3qAjGMI/AAAAAAAAAFI/CAjJc44IyDo/s35/450X615boat-blue-sky-opt.jpg', 'profileUrl': 'https://www.blogger.com/profile/03621334866239360699', 'displayTime': 'Jan 24, 2012, 11:57:00 AM', 'deleteclass': 'item-control blog-admin pid-1719863298', 'id': '3525616148956578593', 'body': 'That the best way to add comment on blooger blog. Thank you!!!', 'timestamp': '1334250945493', 'permalink': 'https://www.mybloggertricks.com/2009/12/recent-comments-widget-by-feedburner.html?showCommentx3d1334250945493#c3525616148956578593', 'author': 'name': 'cmsforever.ru', 'avatarUrl': '//lh3.googleusercontent.com/zFdxGE77vvD2w5xHy6jkVuElKv-U9_9qLkRYK8OnbDeJPtjSZ82UPq5w6hJ-SAx3ds35', 'profileUrl': 'https://www.blogger.com/profile/04229750801813230582', 'displayTime': 'Apr 12, 2012, 10:15:00 PM', 'deleteclass': 'item-control blog-admin pid-547990794', 'id': '5751341382555970575', 'body': 'Sir,x3cbr /x3eI have a blog www.googlepass.blogspot.com. But this blog has no google adsese account. i disapproved with my two email id. Please suggest me what should i do for being google adsense approved. Should i make a new email, should i create a new blog, should i change my address. i am really disappoint. i am realy curious for google adsense income after reading your blog. I have pc, internet, mind x26amp; time, but no money and dont know with these things how can i make money without any investment. please guide me.', 'timestamp': '1362201918537', 'permalink': 'https://www.mybloggertricks.com/2009/12/recent-comments-widget-by-feedburner.html?showCommentx3d1362201918537#c5751341382555970575', 'author': 'name': 'Anonymous', 'avatarUrl': '//img1.blogblog.com/img/blank.gif', 'profileUrl': '', 'displayTime': 'Mar 2, 2013, 10:25:00 AM', 'deleteclass': 'item-control blog-admin pid-1182265781', 'id': '4506904341174070626', 'body': 'nice and helpful post. I really gained a lot from it. keep up the good work.', 'timestamp': '1371510004774', 'permalink': 'https://www.mybloggertricks.com/2009/12/recent-comments-widget-by-feedburner.html?showCommentx3d1371510004774#c4506904341174070626', 'author': 'name': 'David Marvel', 'avatarUrl': '//lh3.googleusercontent.com/-yjihLN3UkoA/AAAAAAAAAAI/AAAAAAAAAM4/VNw-dKZEW2s/s35-c/photo.jpg', 'profileUrl': 'https://www.blogger.com/profile/03831164273042919722', 'displayTime': 'Jun 18, 2013, 4:00:00 AM', 'deleteclass': 'item-control blog-admin pid-1784061391'];
var msgs = 'loadMore': 'Load more...', 'loading': 'Loading...', 'loaded': 'No more!', 'addComment': 'Add comment', 'reply': 'Reply', 'delete': 'Delete';
var config = 'blogId': '8193278726666811965', 'postId': '6641414220031522157', 'feed': 'https://www.mybloggertricks.com/feeds/6641414220031522157/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
Anup| Hack TutorsDec 6, 2009, 9:38:00 PM
Hmm... thts what I am looking for thanks a lot.
ReplyDelete
goravDec 9, 2009, 2:36:00 AM
Thank you mohammad. This widget is great!
ReplyDelete
Mohammad Mustafa AhmedzaiDec 9, 2009, 5:38:00 PM
@Anup and @gorav
I am glad you found it helpful
ReplyDelete
Praveen KumarFeb 6, 2010, 5:11:00 PM
but there is size limit also, how to avoid that
ReplyDelete
HD CafeOct 16, 2011, 9:55:00 PM
Cool widget, thank a lot.
ReplyDelete
IfinderJan 24, 2012, 11:49:00 AM
Thank You again.
Am already using and working. But not since for comments >200
Do you, Please release any additional code to make it work ?
Thank You again and again.
ReplyDelete
IfinderJan 24, 2012, 11:57:00 AM
Hope, Lot more from here and wish to include this blog in my blog's Link List of ' Blogs Ack with Love '. Thanking You Again.
ReplyDelete
cmsforever.ruApr 12, 2012, 10:15:00 PM
That the best way to add comment on blooger blog. Thank you!!!
ReplyDelete
AnonymousMar 2, 2013, 10:25:00 AM
Sir,
I have a blog www.googlepass.blogspot.com. But this blog has no google adsese account. i disapproved with my two email id. Please suggest me what should i do for being google adsense approved. Should i make a new email, should i create a new blog, should i change my address. i am really disappoint. i am realy curious for google adsense income after reading your blog. I have pc, internet, mind & time, but no money and dont know with these things how can i make money without any investment. please guide me.
ReplyDelete
David MarvelJun 18, 2013, 4:00:00 AM
nice and helpful post. I really gained a lot from it. keep up the good work.
ReplyDelete