examples/table_numeric2d.R

In Displayr/flipPictographs: Pictograph htmlwidgets

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")