台灣民主化調查

研究問題

測試上傳

資料描述

knitr::opts_chunk$set(echo = TRUE) knitr::opts_knit$set(root.dir = here::here())

library(here)

library(haven)

檢查目前的專案根目錄

here::here() # 讀取資料（檔案在 data/ 資料夾內） sav_path <- here(“data”, “TEDS2024_indQ_utf8.sav”)

if (!file.exists(sav_path)) stop(“找不到檔案：”, sav_path)

TEDS2024 <- read_sav(sav_path)

若 data 資料夾不存在則建立

if (!dir.exists(here(“data”))) dir.create(here(“data”))

儲存備份檔

save(TEDS2024, file = here(“data”, “TEDS2024_indQ.rda”)) # 清空暫存區（保留主要物件） rm(list = setdiff(ls(), “TEDS2024”))

重新讀入 .rda 檔（確認是否成功儲存）

load(here(“data”, “TEDS2024_indQ.rda”))

str(TEDS2024_indQ)

查看資料內容

nrow(TEDS2024) # 看有多少筆觀察值

names(TEDS2024) # 看變數名稱

str(TEDS2024) # 看資料結構