#ヒストグラム

> height <- c(160, 160, 160, 165, 170, 170, 170, 170, 175, 175, 180, 185, 185, 185, 190)
> hist(height)


#散布図

> score <- c(600, 500, 720, 430, 500, 550, 430, 500, 850, 400)
> words <- c(340, 190, 465, 170, 130, 225,140, 310, 580, 120)
> plot(score,words)


#箱ひげ図

> nns <- c(350, 285, 315, 340, 210, 185, 120, 740, 425, 155)
> ns <- c(365, 570, 645, 540, 645, 665, 880, 550, 410, 585)
> boxplot(nns,ns, names=c("NNS", "NS"))


#円グラフ

> share  <- c(32.4, 21.0, 8.3, 4.1, 3.6,30.5)
> names(share) <- c("NOKIA", "SAMSUNG", "LG", "Apple", "RIM", "Others")
> pie(share,main="Mobile Phone Market Share", clockwise=TRUE)