library(tidyverse)

####建立tibble
as_tibble(iris)      #將資料框轉換為tibble

tibble(
  x = 1:5,
  y = 1,
  z = x ^ 2 + y
)                    #使用tibble()將一個向量建立為tibble

tribble(
  ~x, ~y, ~z, 
  #--|--|---- 
  "a", 2, 3.6, 
  "b", 1, 8.5
)


####列印
tibble(
  a = lubridate::now() + runif(1e3) * 86400, b = lubridate::today() + runif(1e3) * 30, c = 1:1e3,
  d = runif(1e3),
  e = sample(letters, 1e3, replace = TRUE)
)

nycflights13::flights %>%
  print(n = 10, width = Inf)    #顯示10行所有列

####與舊程式碼進行互動
#如果比較舊的函式不支援tibble，可以用as.data.frame()將tibble轉換為資料框
(tb <- tibble(
  x = 1:5,
  y = 1,
  z = x ^ 2 + y
))
class(as.data.frame(tb))