# NOT RUN {
legend1 <- list(type= "circle", color="#1E77B4",opacity="1.0",circleSize="8",text= "C.CK",
textSize= "14",textWeight="normal")
legend2 <- list(type= "circle", color="#AEC7E8",opacity="1.0",circleSize="8",text= "C.NPK",
textSize= "14",textWeight="normal")
Circos(CircosLegend('legend01', title = "legend",data=list(legend1,legend2),size = 20))
# }
Run the code above in your browser using DataLab