# Load the data
data(marginalDF)
marginalDataSubset = subset(marginalDF, stim=="LPS" & concGroup==3 & cell=="mDC")
# Make a data list
dataList = makeDataList(marginalDataSubset, "group", 1:5)
# Make a plot using the data list
GroupListBoxplot(dataList, xlabel="Cytokine", ylabel="Percent of All Cells",
xAxisLabels=c("TNFa","IL6","IL12","IFNa","AnyMarker"),
mainTitle="Stimulation = LPS and Concentration Group = 3 and Cell = mDC",
legendGroupNames=c("Adults","Neonates"), pointColor=c(2,4), testTitleCEX=.8, nCEX=.8,
pCEX=.8, legendColor=c(2,4), legendCEX=.7)
Run the code above in your browser using DataLab