r - Huge amount of data graphical representation -

-

i have large data.frame (ncols = 500, nrows = 14000). looks this: 

          sample1   sample2   sample3    .....     gene1       22         0        0.11     .....     gene2      0.112      0.1       0.4      .....      gene3      0.45        0        0.19     .....     .....      .....     .....     .....     .....

i plot such huge amount of data without applying statistic clear (simply using colors or other tools) difference in terms of of numbers (magnitude) ex. between gene1 , gene2 sample 1 , on. idea apart heatmap?

how using geom_raster ggplot2? 

#  make data set.seed(1) df <- data.frame( matrix( runif(25) , 5 , 5 ) ) #         x1        x2         x3         x4         x5 #1 0.5316382 0.4360309 0.09576886 0.56497254 0.43930824 #2 0.2383700 0.1531009 0.71377161 0.39367645 0.42211072 #3 0.5009796 0.6549886 0.05996069 0.08236798 0.08574704 #4 0.1171437 0.8765644 0.29892712 0.06071803 0.78011966 #5 0.5066046 0.5486397 0.34770099 0.07785835 0.09659246  #  abs difference between columns of dataframe out <- data.frame( t( apply( df , 1 , function(x) abs( diff( x ) ) ) ) )  #  plot using geom_raster     require( ggplot2 ) require( reshape2 ) out.melt <- melt( out ) out.melt$y <- rep( 1:10,times = 9 ) p <- ggplot( out.melt , aes( variable , y , fill = value ) ) + geom_raster() p

enter image description here


Comments

Post a Comment

Popular posts from this blog

Unable to remove the www from url on https using .htaccess -

-
i want remove www site url. ie. https://www.domainname.com.au https://domainname.com.au . i have tried various .htacces code nothing work me. here present code remove www http not work https. rewriteengine on rewritebase / rewritecond %{http_host} ^www\.(.*)$ [nc] rewriterule ^/(.*)$ http://%1/$1 [r=301,l] rewritecond %{https} off rewriterule ^(.*)$ https://domainname.com.au/$1 [r=301,l] rewriterule ^code-of-conducts/(.*)/$ code-of-conducts.php?type=$1 rewriterule ^parents/post-a-job/(.*)/edit/$ parents/post-a-job.php?action=edit&id=$1 rewriterule ^parents/post-a-job/(.*)/$ parents/post-a-job.php?job_type=$1 rewriterule ^parents/open-jobs/(.*)/delete/$ parents/open-jobs.php?action=delete&id=$1 rewriterule ^parent-profile/(.*)/$ parent-profile.php?id=$1 rewriterule ^parents/job-details/(.*)$ parents/job-details.php?applied_id=$1 rewriterule ^sitterprofile/(.*)/$ sitterprofile.php?id=$1 rewriterule ^sitter/job-board/state/(.*)/page/(.*)/$ sitter/job-board.ph...
Read more