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': '9094724250959046995', 'body': 'I sleep while reading post xD', 'timestamp': '1339303761092', 'permalink': 'https://www.mybloggertricks.com/2012/06/what-are-direct-ads-how-to-reach-direct.html?showCommentx3d1339303761092#c9094724250959046995', 'author': 'name': 'Aumkar Thakur', 'avatarUrl': '//lh3.googleusercontent.com/-zVQ_mVJgotw/AAAAAAAAAAI/AAAAAAAACK0/FNVkOzXqXFc/s35-c/photo.jpg', 'profileUrl': 'https://www.blogger.com/profile/02352440392837602137', 'displayTime': 'Jun 10, 2012, 9:49:00 AM', 'deleteclass': 'item-control blog-admin pid-2108503782', 'id': '2226728744555334739', 'body': 'Nice post....', 'timestamp': '1339324530558', 'permalink': 'https://www.mybloggertricks.com/2012/06/what-are-direct-ads-how-to-reach-direct.html?showCommentx3d1339324530558#c2226728744555334739', 'author': 'name': 'Anonymous', 'avatarUrl': '//img1.blogblog.com/img/blank.gif', 'profileUrl': '', 'displayTime': 'Jun 10, 2012, 3:35:00 PM', 'deleteclass': 'item-control blog-admin pid-531334590', 'id': '8602835966649895480', 'body': 'nice ...', 'timestamp': '1339495892222', 'permalink': 'https://www.mybloggertricks.com/2012/06/what-are-direct-ads-how-to-reach-direct.html?showCommentx3d1339495892222#c8602835966649895480', 'author': 'name': 'Akash singh', 'avatarUrl': '//lh3.googleusercontent.com/zFdxGE77vvD2w5xHy6jkVuElKv-U9_9qLkRYK8OnbDeJPtjSZ82UPq5w6hJ-SAx3ds35', 'profileUrl': 'https://www.blogger.com/profile/11706586053536852476', 'displayTime': 'Jun 12, 2012, 3:11:00 PM', 'deleteclass': 'item-control blog-admin pid-508255081', 'id': '4101156952152116708', 'body': 'nice post buddy keep it up', 'timestamp': '1339791729418', 'permalink': 'https://www.mybloggertricks.com/2012/06/what-are-direct-ads-how-to-reach-direct.html?showCommentx3d1339791729418#c4101156952152116708', 'author': 'name': 'Anonymous', 'avatarUrl': '//img1.blogblog.com/img/blank.gif', 'profileUrl': '', 'displayTime': 'Jun 16, 2012, 1:22:00 AM', 'deleteclass': 'item-control blog-admin pid-531334590', 'id': '7699022824807428741', 'body': 'well i have been trying to reach direct advertisers, but i think this is a very hard task as you need to do multiple things before being prepared for contacting an advertiser. Traffic Orientation, Quality of Content, Search Traffic, Page Rank etc make your advertiserx26#39;s decision for/against your offer. Well there is nothing to lose hope when one can keep trying to make things better. Third Party Advertising Companies share at most 60% of what direct advertisers offer, so you have to save this 40% loss and this is worth an effort.', 'timestamp': '1339837256008', 'permalink': 'https://www.mybloggertricks.com/2012/06/what-are-direct-ads-how-to-reach-direct.html?showCommentx3d1339837256008#c7699022824807428741', 'author': 'name': 'Anonymous', 'avatarUrl': '//img1.blogblog.com/img/blank.gif', 'profileUrl': '', 'displayTime': 'Jun 16, 2012, 2:00:00 PM', 'deleteclass': 'item-control blog-admin pid-6184187', 'id': '8911486150088745660', 'body': 'This is a very helpful post. Thank you for sharing. www.nnalcot.blogspot.com', 'timestamp': '1350269547741', 'permalink': 'https://www.mybloggertricks.com/2012/06/what-are-direct-ads-how-to-reach-direct.html?showCommentx3d1350269547741#c8911486150088745660', 'author': 'name': 'Napoleon Nalcot', 'avatarUrl': 'https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhiOuY6EEWDKM3HWp3Z4cw7GVqvVw-V09ipDSmQX3VC312VEi8KTYHErsc9_JJwVomaHEMjcCW4PUJvPHZ3353j0jZNbWei020F7hFHwP1UdXdJLEM6VXwgV3ssTZUdTF_YX75H457HxgKp/s35/mypicture002.jpg', 'profileUrl': 'https://www.blogger.com/profile/02450724641216255621', 'displayTime': 'Oct 15, 2012, 7:52:00 AM', 'deleteclass': 'item-control blog-admin pid-538106537', 'id': '7724950206746798370', 'body': 'Nice Post brother :)', 'timestamp': '1351698906759', 'permalink': 'https://www.mybloggertricks.com/2012/06/what-are-direct-ads-how-to-reach-direct.html?showCommentx3d1351698906759#c7724950206746798370', 'author': 'name': 'Ikram Ullah Khan x26amp; Company (Iukco)', 'avatarUrl': 'https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiNg3qEUGVWblbCbuZEjLATDOXAwXaTA_s7yxBt-uYIWk3fSiI4zkPLyq49HbcHWFIHDdlHht9qzgLOtf7lDCUG3RRm8sJDJUf6fUqBUmYx5rRclJ6wJa_lFx4a5sPfSSVlOnfLh7te9ok/s35/296773_232421793473944_189319581117499_561376_698690223_n.jpg', 'profileUrl': 'https://www.blogger.com/profile/09895188390232000952', 'displayTime': 'Oct 31, 2012, 8:55:00 PM', 'deleteclass': 'item-control blog-admin pid-298683677'];
var msgs = 'loadMore': 'Load more...', 'loading': 'Loading...', 'loaded': 'No more!', 'addComment': 'Add comment', 'reply': 'Reply', 'delete': 'Delete';
var config = 'blogId': '8193278726666811965', 'postId': '3187101306272877620', 'feed': 'https://www.mybloggertricks.com/feeds/3187101306272877620/comments/default', 'authorName': 'Qasim Zaib', 'authorUrl': 'https://www.blogger.com/profile/08938578237404814539', '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
Aumkar ThakurJun 10, 2012, 9:49:00 AM
I sleep while reading post xD
ReplyDelete
AnonymousJun 10, 2012, 3:35:00 PM
Nice post....
ReplyDelete
Akash singhJun 12, 2012, 3:11:00 PM
nice ...
ReplyDelete
AnonymousJun 16, 2012, 1:22:00 AM
nice post buddy keep it up
ReplyDelete
AnonymousJun 16, 2012, 2:00:00 PM
well i have been trying to reach direct advertisers, but i think this is a very hard task as you need to do multiple things before being prepared for contacting an advertiser. Traffic Orientation, Quality of Content, Search Traffic, Page Rank etc make your advertiser's decision for/against your offer. Well there is nothing to lose hope when one can keep trying to make things better. Third Party Advertising Companies share at most 60% of what direct advertisers offer, so you have to save this 40% loss and this is worth an effort.
ReplyDelete
Napoleon NalcotOct 15, 2012, 7:52:00 AM
This is a very helpful post. Thank you for sharing. www.nnalcot.blogspot.com
ReplyDelete
Ikram Ullah Khan & Company (Iukco)Oct 31, 2012, 8:55:00 PM
Nice Post brother :)
ReplyDelete