| 
																	
																	
																		
																			
																		
																	
																	
																 | 
																@ -17,7 +17,11 @@ Generates a heatmap using ggplot for a dataframe. | 
															
														
														
													
														
															
																 | 
																 | 
																\examples{ | 
																 | 
																 | 
																\examples{ | 
															
														
														
													
														
															
																 | 
																 | 
																library(tidyverse) | 
																 | 
																 | 
																library(tidyverse) | 
															
														
														
													
														
															
																 | 
																 | 
																
 | 
																 | 
																 | 
																
 | 
															
														
														
													
														
															
																 | 
																 | 
																df<-data.frame("pats"=paste0("PAT", 1:20), "CytA"=rnorm(20,5), "CytB"=rnorm(20,5),"CytC"=c(rnorm(5,10),rnorm(5,5),rnorm(5,10),rnorm(5,5)),"CytD"=rnorm(20,5),"CytE"=c(rnorm(5,10),rnorm(5,5),rnorm(5,10),rnorm(5,5)),"CytF"=rnorm(20,5),"CytG"=c(rnorm(5,10),rnorm(5,5),rnorm(5,10),rnorm(5,5))) %>% gather(Cyt, Value,-pats) | 
																 | 
																 | 
																 | 
															
														
														
													
														
															
																 | 
																 | 
																 | 
																 | 
																 | 
																df<-data.frame("pats"=paste0("PAT", 1:20), "CytA"=rnorm(20,5), "CytB"=rnorm(20,5), | 
															
														
														
													
														
															
																 | 
																 | 
																 | 
																 | 
																 | 
																"CytC"=c(rnorm(5,10),rnorm(5,5),rnorm(5,10),rnorm(5,5)),"CytD"=rnorm(20,5), | 
															
														
														
													
														
															
																 | 
																 | 
																 | 
																 | 
																 | 
																"CytE"=c(rnorm(5,10),rnorm(5,5),rnorm(5,10),rnorm(5,5)),"CytF"=rnorm(20,5), | 
															
														
														
													
														
															
																 | 
																 | 
																 | 
																 | 
																 | 
																"CytG"=c(rnorm(5,10),rnorm(5,5),rnorm(5,10),rnorm(5,5))) | 
															
														
														
													
														
															
																 | 
																 | 
																 | 
																 | 
																 | 
																df<-gather(df, Cyt, Value,-pats) | 
															
														
														
													
														
															
																 | 
																 | 
																head(df) | 
																 | 
																 | 
																head(df) | 
															
														
														
													
														
															
																 | 
																 | 
																
 | 
																 | 
																 | 
																
 | 
															
														
														
													
														
															
																 | 
																 | 
																ggheatmap(df) | 
																 | 
																 | 
																ggheatmap(df) | 
															
														
														
													
												
													
														
															
																| 
																	
																	
																	
																 | 
																
 |