Nhập xuất dữ liệu với SPSS

* Nhập xuất dữ liệu trong SPSS bằng Syntax
* Tác giả: Thực hành kinh tế lượng

* ===== NHẬP DỮ LIỆU =====

* Nhập dữ liệu từ Excel
GET DATA
  /TYPE=XLSX
  /FILE='C:\Data\survey_data.xlsx'
  /SHEET=name 'Sheet1'
  /CELLRANGE=full
  /READNAMES=on
  /ASSUMEDSTRWIDTH=32767.

* Nhập dữ liệu từ CSV
GET DATA
  /TYPE=TXT
  /FILE='C:\Data\survey_data.csv'
  /ENCODING='UTF8'
  /DELCASE=LINE
  /DELIMITERS=","
  /QUALIFIER='"'
  /ARRANGEMENT=DELIMITED
  /FIRSTCASE=2
  /VARIABLES=
  id F8.0
  age F8.0
  income F10.2
  gender A10
  region A20.

* Thiết lập thuộc tính biến
VARIABLE LABELS
  id 'Mã số khách hàng'
  age 'Tuổi'
  income 'Thu nhập hàng tháng (triệu đồng)'
  gender 'Giới tính'
  region 'Khu vực sinh sống'.

* Mã hóa giá trị
VALUE LABELS
  gender 1 'Nam' 2 'Nữ'
  /region 1 'Miền Bắc' 2 'Miền Trung' 3 'Miền Nam'.

* Thiết lập missing values
MISSING VALUES income (99, 999).

* ===== XUẤT DỮ LIỆU =====

* Xuất ra Excel
SAVE OUTFILE='C:\Output\processed_data.sav'.

SAVE TRANSLATE OUTFILE='C:\Output\data_export.xlsx'
  /TYPE=XLS
  /VERSION=12
  /MAP
  /REPLACE
  /FIELDNAMES
  /CELLS=VALUES.

* Xuất ra CSV với UTF-8
SAVE TRANSLATE OUTFILE='C:\Output\data_export.csv'
  /TYPE=CSV
  /ENCODING='UTF8'
  /MAP
  /REPLACE
  /FIELDNAMES
  /CELLS=VALUES.

* Xuất kết quả phân tích
OUTPUT EXPORT
  /CONTENTS EXPORT=VISIBLE LAYERS=PRINTSETTING MODELVIEWS=PRINTSETTING
  /XLSX DOCUMENTFILE='C:\Output\analysis_results.xlsx'
  /OPERATION=CREATEFILE.

// Nhập xuất dữ liệu trong Stata
// Tác giả: Thực hành kinh tế lượng

* ===== NHẬP DỮ LIỆU =====

* Nhập dữ liệu từ Excel
import excel "C:\Data\survey_data.xlsx", sheet("Sheet1") firstrow clear

* Hoặc sử dụng import delimited cho CSV
import delimited "C:\Data\survey_data.csv", encoding(UTF-8) clear

* Kiểm tra cấu trúc dữ liệu
describe
summarize

* ===== THIẾT LẬP THUỘC TÍNH BIẾN =====

* Đổi tên biến
rename (var1 var2 var3 var4) (id age income gender)

* Thiết lập variable labels
label variable id "Mã số khách hàng"
label variable age "Tuổi"
label variable income "Thu nhập hàng tháng (triệu đồng)"
label variable gender "Giới tính"

* Mã hóa giá trị cho biến phân loại
encode gender, generate(gender_coded)
label define gender_lbl 1 "Nam" 2 "Nữ"
label values gender_coded gender_lbl

* Xử lý missing values
replace income = . if income == 99 | income == 999
mvdecode _all, mv(99=.\999=.)

* ===== XUẤT DỮ LIỆU =====

* Lưu file Stata
save "C:\Output\processed_data.dta", replace

* Xuất ra Excel
export excel using "C:\Output\data_export.xlsx", ///
    firstrow(variables) replace

* Xuất ra CSV với encoding phù hợp
export delimited using "C:\Output\data_export.csv", ///
    encoding(UTF-8) replace

* Xuất kết quả phân tích ra Word/PDF
putdocx begin
putdocx paragraph, style(Title)
putdocx text ("Báo cáo phân tích dữ liệu")

summarize income age
putdocx paragraph
putdocx text ("Thống kê mô tả:")
putdocx table results = etable

putdocx save "C:\Output\analysis_report.docx", replace

* Xuất ra log file
log using "C:\Output\analysis_log.log", replace
// Thực hiện các phân tích...
log close

# Nhập xuất dữ liệu trong R

# Cài đặt và load các package cần thiết
if (!require(readxl)) install.packages("readxl")
if (!require(writexl)) install.packages("writexl")
if (!require(haven)) install.packages("haven")
if (!require(readr)) install.packages("readr")
if (!require(dplyr)) install.packages("dplyr")
if (!require(labelled)) install.packages("labelled")

library(readxl)
library(writexl)
library(haven)
library(readr)
library(dplyr)
library(labelled)

# ===== NHẬP DỮ LIỆU =====
# Nhập dữ liệu từ Excel
data <- read_excel("C:/Data/survey_data.xlsx",
sheet = "Sheet1",
col_names = TRUE,
locale = locale(encoding = "UTF-8"))

# Nhập dữ liệu từ CSV
data <- read_csv("C:/Data/survey_data.csv",
locale = locale(encoding = "UTF-8"))

# Nhập dữ liệu từ SPSS
data <- read_sav("C:/Data/survey_data.sav")

# Kiểm tra cấu trúc dữ liệu
str(data)
head(data)
summary(data)

# ===== THIẾT LẬP THUỘC TÍNH BIẾN =====
# Đổi tên biến
data <- data %>%
rename(
id = V1,
age = V2,
income = V3,
gender = V4,
region = V5
)
# Thiết lập variable labels
var_label(data$id) <- "Mã số khách hàng"
var_label(data$age) <- "Tuổi"
var_label(data$income) <- "Thu nhập hàng tháng (triệu đồng)"
var_label(data$gender) <- "Giới tính"
var_label(data$region) <- "Khu vực sinh sống"

# Mã hóa giá trị cho biến phân loại
data$gender <- factor(data$gender,
levels = c(1, 2),
labels = c("Nam", "Nữ"))

data$region <- factor(data$region,
levels = c(1, 2, 3),
labels = c("Miền Bắc", "Miền Trung", "Miền Nam"))
# Xử lý missing values
data$income[data$income %in% c(99, 999)] <- NA

# ===== XUẤT DỮ LIỆU =====
# Xuất ra Excel
write_xlsx(data, "C:/Output/data_export.xlsx")
# Xuất ra CSV với UTF-8
write_csv(data, "C:/Output/data_export.csv",
locale = locale(encoding = "UTF-8"))

# Xuất ra SPSS format (giữ nguyên labels)
write_sav(data, "C:/Output/data_export.sav")

# Xuất ra Stata format
write_dta(data, "C:/Output/data_export.dta")

# Tạo báo cáo HTML với R Markdown
if (!require(rmarkdown)) install.packages("rmarkdown")
library(rmarkdown)

# Tạo template báo cáo
report_template <- '
---
title: "Báo cáo phân tích dữ liệu"
author: "Thực hành kinh tế lượng"
date: "`r Sys.Date()`"
output: html_document
---