| 
																	
																	
																		
																			
																		
																	
																	
																 | 
																@ -32,5 +32,5 @@ g<-ggplot(mdf, aes(Cytokine, Value, color=Group))+ | 
															
														
														
													
														
															
																 | 
																 | 
																  geom_point(position=position_dodge(width = 0.75)) | 
																 | 
																 | 
																  geom_point(position=position_dodge(width = 0.75)) | 
															
														
														
													
														
															
																 | 
																 | 
																
 | 
																 | 
																 | 
																
 | 
															
														
														
													
														
															
																 | 
																 | 
																stat.test<-mdf \%>\% group_by(Cytokine) \%>\% t_test(Value~Group) | 
																 | 
																 | 
																stat.test<-mdf \%>\% group_by(Cytokine) \%>\% t_test(Value~Group) | 
															
														
														
													
														
															
																 | 
																 | 
																g+stat_pvalue_manual(ggstats_add_xy(stat.test, mdf, "Group"),  label = "p", tip.length = 0.02, hide.ns = T) | 
																 | 
																 | 
																 | 
															
														
														
													
														
															
																 | 
																 | 
																 | 
																 | 
																 | 
																g+stat_pvalue_manual(ggstats_add_xy(stat.test, mdf, "Cytokine","Group"),  label = "p", tip.length = 0.02, hide.ns = T) | 
															
														
														
													
														
															
																 | 
																 | 
																} | 
																 | 
																 | 
																} |