# NOT RUN {
guides <- list(guide(fillAlpha = .4, adjustBorderColor = TRUE),
guide(fillAlpha = .4, adjustBorderColor = TRUE))
new("CategoryAxis", gridPosition = "start", gridThickness = 1, guides = guides)
# }
# NOT RUN {
new("CategoryAxis")
new("CategoryAxis", gridPosition = "start", 1) # 1 is not take into account
# }
# NOT RUN {
categoryAxis(gridPosition = "start", adjustBorderColor = TRUE)
setGridPosition(.Object = categoryAxis(), gridPosition = "start")
# }
Run the code above in your browser using DataLab