>icon.image <- "Stick woman"
>x = Gender
>x = mean(x[QFilter] == "Female") * 100
>library(flipPictographs)
>SinglePicto(x, 1, maximum.value=100,# as.numeric(maxVal),
    layout = QOutputSizeWidth/QOutputSizeHeight, number.rows = 1, number.cols = 1, 
    width.height.ratio = QOutputSizeWidth/QOutputSizeHeight, 
    image = "Stick woman", base.image = "Stick woman",
    is.custom.url = FALSE, hide.base.image = FALSE, fill.direction="From bottom", 
    label.data.position = "Below", label.data.align.horizontal = "Center",          
    label.data.font.size = 10, 
    label.data.font.family = "Arial", label.data.font.color = "White",
    label.data.suffix="% Female", 
    #label.data.100prc=(grepl("%", dLabSuffix) && dLab100Prc), 
    label.data.digits=0,
    auto.size=TRUE, icon.width=width, fill.icon.color="#07c8c8", base.icon.color="#cccccc", 
    background.color="transparent", pad.row = 0, pad.col = 0, 
    margin.top = 0, margin.right = 0, margin.bottom = 0, margin.left = 0)
Total time:0.44s
Time on R server:0.19s
Time evaluating code:0.10s
Bytes sent:7,225
Bytes received:4,792