xx <- data.frame(A=1:3, B=2:4, C=3:5)
rownames(xx) <- c("i", "ii", "iii")
p1 <- PictoStdChart(xx)
# Scaling
p2 <- PictoStdChart(xx*10, show.legend=T)
# Layout
x3 <- c(Mixed=2, Bus=9, Cyclists=14, Pedestrians=19,
SingleLaneBus=20, LightRail=22, DoubleLaneBus=43,
HeavyRail=80, SuburbanRail=100)
p3 <- PictoStdChart(x3, transpose=T, image="stickman", scale=1, hide.base.image = T,
icon.ncol=8, fill.direction="frombottom",
label.data.type="count", label.data.align.horizontal = "center")
p3b <- PictoStdChart(x3, transpose=T, image="stickman", scale=1, hide.base.image = T,
icon.ncol=8, fill.direction="frombottom", hide.label.top = T,
label.data.type="count", label.data.align.horizontal = "center")
# Spacing
# This example has been implemented, but running it will freeze RStudio
x4 <- matrix(c(2500,50,70,560,100,650,650,2500,1700,450,
2500,2400,750,650,125,1000,90,840,150,720,
4650,1830,1440,1200,1170,2500,4250,2700,5000,200),
byrow=T, ncol=5)
p4 <- PictoStdChart(x4, icon.ncol=10, scale=50, total.icons=500, image="waterdrop",
label.data.type="count", label.data.align.horizontal="right",
pad.row=200, pad.col=200, print.config=T)
# Data labels
x5 <- c(0.35, 0.28, 0.14, 0.12, 0.09, 0.03, 0)
p5 <- PictoStdChart(x5, icon.ncol=5, scale=0.01, transpose=T,
hide.base.image = T, fill.direction="frombottom",
label.data.type="percentage", total.icons=35)
p5b <- PictoStdChart(x5, icon.ncol=5, scale=0.01, transpose=T,
hide.base.image = T, fill.direction="frombottom",
label.data.type="proportion", total.icons=35)
p5c <- PictoStdChart(x5, icon.ncol=5, scale=0.01, transpose=T,
hide.base.image = T, fill.direction="frombottom",
label.data.type="count", total.icons=35)
# Lines
x6 <- data.frame(China=c(1,73,58,2100),
Japan=c(0,47,16,353),
US=c(1,9,2,54),
Vietnam=c(0,7,0,213),
Philippines=c(0,3,0,8))
rownames(x6) <- c("Aircraft carriers",
"Destroyers/frigates",
"Submarines",
"Fighter/bomber aircraft")
p6 <- PictoStdChart(x6, show.lines=T, scale=10, icon.ncol=10,image="circle",
label.left.align.horizontal="left", label.left.align.vertical="top",
label.top.align.horizontal="left", label.left.width=500,
label.font.family="Arial Black", label.font.size=9,
label.data.type="count",print.config=T,
label.top.height=NA)
afflicted <- matrix(c(3.46e8, 3.4e7, 1.2e8, 1e9), 2, 2)
papers <- matrix(c(194481, 154562, 1858, 10770), 2, 2)
p7a <- PictoStdChart(afflicted, image="stickman", icon.ncol=10, scale=1e7,
hide.base.image=T, fill.direction="fromtop", label.data.type="count",
label.data.position="header", pad.row=100, pad.col=100)
p7b <- PictoStdChart(papers, image="stack", icon.ncol=1, fill.direction="frombottom",
scale=500, hide.base.image = T, label.data.type="count",
label.data.position="footer")
# label colors
x8 <- data.frame(ArmedForces=c(2.3e6, 1.4e6),
ArtillaryPieces=c(13790,7429),
BattleTanks=c(6540,2785),
Submarines=c(70,73),
CombatAircraft=c(2571,3680),
Destroyers=c(17,62))
rownames(x8) <- c("China", "US")
p8 <- PictoStdChart(x8, icon.ncol=10, label.font.color="red", label.font.family="Arial Black", show.legend=T,
label.data.type="count", label.data.position="header", label.data.align.horizontal = "center")
# check padding
p9 <- PictoStdChart(xx*100, image="square", icon.palette = "Blues", scale=4, icon.ncol=10, background.color="gold", pad.col=100, pad.row=50, show.lines=T, label.bottom=colnames(x3), hide.label.top=T, hide.label.right=F, hide.label.left=F, hide.label.bottom=T, print.config=F, label.right=rownames(x3), label.left.align.horizontal = "right", label.right.align.horizontal = "left", table.by.row = T, label.top.align.vertical = "center", label.bottom.align.vertical = "center")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.