Untitled

年齡 <- c(11,16,19,18,20,23,19,21,24,29)
體重 <- c(23,26,34,29,33,27,23,36,30,40)

colors <- c("#0000FF", 
            "#FF0000")

plot(年齡, 體重,
     pch = 16,
     col = colors)

# Load ggplot2
library(ggplot2)

# Create data
data <- data.frame(
  name=c("A","B","C","D","E") ,  
  value=c(3,12,5,18,45)
  )

# Barplot
ggplot(data, aes(x=name, y=value)) + 
  geom_bar(stat = "identity", width=0.2,fill="pink",col="purple")