0409

# Create data for the graph.
x <- c(11, 30, 39, 20)
labels <- c("吉伊", "小八", "烏薩奇", "小桃")


# Plot the chart with title and rainbow color pallet.
pie(x, labels, main = "吉伊卡哇成員喜愛度 - 餅狀圖", col = rainbow(length(x)))

we <- c(55, 70, 65, 80)
height <- c(155, 175, 160, 180)

plot(we,height)

# library
library(ggplot2)

# Iris dataset is natively provided by R

data3<- data.frame(we,height)
 
# use options!
ggplot(data3, aes(x=we, y=height)) + 
    geom_point(
        color="orange",
        fill="#69b3a2",
        shape=21,
        alpha=0.5,
        size=6,
        stroke = 2
        )

stem(height)

## 
##   The decimal point is 1 digit(s) to the right of the |
## 
##   15 | 5
##   16 | 0
##   17 | 5
##   18 | 0