cw <- new.CytoscapeWindow ('setNodeOpacityRule.test', graph=makeSimpleGraph())
displayGraph (cw)
control.points <- c (-3.0, 0.0, 3.0) # typical range of log-fold-change ratio values
opacities <- c (128, 80, 255)
setNodeOpacityRule (cw, node.attribute.name='lfc', control.points, opacities, mode='interpolate', aspect='all')
redraw (cw)
# now restore full opacities
gene.types <- c ("kinase", "transcription factor", "glycoprotein")
setNodeOpacityRule (cw, 'type', gene.types, c (255, 255, 255), mode='lookup', aspect='all');
redraw (cw)
# leaving node labels fully opaque -- fully visible -- change border and fill opacity
opacities <- c (10, 80, 255)
setNodeOpacityRule (cw, node.attribute.name='type', gene.types, opacities, mode='lookup', aspect='border,fill')
redraw (cw)
Run the code above in your browser using DataLab