Untitled

/``{r, } time <- c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24) people <- c(10,11,10,12,10,9,8,8,7,8,9,10,15,16,18,18,20,50,60,80,150,180,190,200) plot(time,people, pch = 17, col= “skyblue”, main =“時間與玩家上線人數”, xlab =“時間/時”, ylab =“玩家數量/k”)

``` r
library(ggplot2)

data <- data.frame(
  time=c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24) ,  
  people=c(10,11,10,12,10,9,8,8,7,8,9,10,15,16,18,18,20,50,60,80,150,180,190,200)
  )
  
  ggplot(data, aes(x=time, y=people)) + 
  geom_bar(stat = "identity") +
  coord_flip()