circle

# Create data for the graph.
x <- c(112, 90, 56, 20)
labels <- c("漢堡", "薯條", "雞塊", "熱狗")

# Plot the chart with title and terrain color pallet.
pie(x, labels, main = "吃啥 - 餅狀圖", col = terrain.colors(length(x)))

# Save the file.
dev.off

## function (which = dev.cur()) 
## {
##     if (which == 1) 
##         stop("cannot shut down device 1 (the null device)")
##     .External(C_devoff, as.integer(which))
##     dev.cur()
## }
## <bytecode: 0x000002127bb2df08>
## <environment: namespace:grDevices>

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(iris, aes(x=Sepal.Length, y=Sepal.Width)) + 
    geom_point(
        color="lightblue",
        fill="#8F7A6E",
        shape=22,
        alpha=0.5,
        size=6,
        stroke = 1
        ) 

stem(height)

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