# first, delete existing windows to save memory:
deleteAllWindows(CytoscapeConnection())
cw <- CytoscapeWindow ('setNodeOpacityRule.test', graph=makeSimpleGraph())
displayGraph (cw)
layoutNetwork (cw, 'force-directed')
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')
# now restore full opacities
gene.types <- c("kinase", "transcription factor", "glycoprotein")
setNodeOpacityRule (cw, 'type', gene.types, c (255, 255, 255), mode='lookup', aspect='all');
# 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')
Run the code above in your browser using DataLab