網路及人際關係研究-為何人在網路上更願意與他人互動？
Sherry Wen
4/22/2021
一、研究動機
Z世代起即是網路原生世代，從小網路對Z世代來說就是隨手可得的資源。隨著網路日益發達，大家越來越習慣在網路上活動，也造成現實社會中人際關係日益疏離。許多人偏好在網路上與他人互動勝過於在現實生活中與他人互動，或是認為在網路上可以更加暢所欲言。因此，本研究欲探討為何人會在網路上更願意與他人互動。
二、研究假設
假設：為何人在網路上更願意與他人互動
假設一：比起中老年世代，年輕世代會更願意在網路上與他人互動
假設二：性別會影響在網路上與他人互動的意願
假設三：居住地會影響在網路上與他人互動的意願
假設四：網路的匿名性會增加人在網路上與他人互動的意願
假設五：相信網路匿名性的程度會影響在網路上與他人互動的意願
假設六：網路可以彌補現實生活中所缺乏的人際關係
三、資料描述
- 微笑小熊調查小棧-網路上的分身集合啦！
- 計畫主持人：劉正山教授
- 計畫執行單位：微笑小熊調查小棧
- 調查執行期間：2020.09.21-2020.10.20
- 原始檔名：1360.cvs
- 有效觀察值（N）=1,006
四、變數描述
依變數：在網路上是否比現實生活更願意與他人互動
自變數：世代、性別、居住地、網路環境特性
在網路上是否比現實生活更願意與他人互動作為Y，世代、性別、居住地、網路環境特性作為X。
初步處理資料檔
## 讀入資料檔並將變數名稱字串轉為變數標籤
library(readr)
X1360 <- read.csv("1360.csv")
View(X1360)
nrow(X1360) # 共1006列 ## [1] 1006ncol(X1360) # 共46欄## [1] 46讀入原始資料並轉為rda檔
library(sjlabelled)
X1360 <- read_csv("1360.csv") ##
## ─ Column specification ────────────────────────────
## cols(
## .default = col_double(),
## Residence = col_character(),
## Job = col_character(),
## `我想分享新名字是::一開始我們就先來「虛擬」一下吧！ 今天你收到了一份邀請函，邀請你擔任蘋果森林的管理者，你會為「蘋果森林」取個新名字嗎？（如果想分享你取的新名字，可以寫在下面的自填框喔！）` = col_logical(),
## `一開始我們就先來「虛擬」一下吧！ 今天你收到了一份邀請函，邀請你擔任蘋果森林的管理者，你會為「蘋果森林」取個新名字嗎？（如果想分享你取的新名字，可以寫在下面的自填框喔！）: Comments` = col_character(),
## `我會想跟牠做鄰居：:在這個森林裡，你可以與一隻動物當鄰居，你會選誰來當鄰居？` = col_character(),
## `我會想建設這個：:如果花費30個蘋果點數可以來建設你的森林，你最想蓋什麼？` = col_character(),
## `我認為是：:有人說網路世界是不同於現實的另一世界，你認同這句話嗎？` = col_character(),
## `我覺得應該是：:今天小熊看到有一個訊息進來，有個顯示著小兔子照片的帳號，加了小熊的好友。你若是小熊，你覺得那是小兔子本人的機率有多高？` = col_character(),
## `我覺得是這樣的關係：:有隻素未謀面的穿山甲想與小熊做朋友，並加了小熊的帳號。你覺得這是個真實的朋友關係嗎？` = col_character(),
## `我覺得是這樣的關係：:穿山甲跟小熊聊天好幾個月了，但未曾見過面。你覺得他們之間是真實的朋友關係嗎？` = col_character(),
## `對於網路上的身份，我覺得是：:你認為網路上所創立的身份，足夠代表你自己嗎？` = col_character(),
## `願意，我的理由是：:在網路世界中，你會更願意與人互動嗎？` = col_character(),
## `不願意，我的理由是：:在網路世界中，你會更願意與人互動嗎？` = col_character(),
## `我會這麼做：:在高度匿名網路平台中，發言時會讓你更加暢所欲言、還是會讓你更加小心翼翼？` = col_character(),
## `我覺得應該是：:你相不相信網路世界可以做到「完全匿名」這件事？` = col_character(),
## `我覺得應該是：:你覺得網路社群平台需不需設立這樣的「匿名版 」或「靠北版」？` = col_character(),
## `我的想法是：:你覺得社群網路可以彌補現實世界「人際關係」的不足嗎？` = col_character(),
## `我的想法是：:若現在生活中突然缺少了網路，是否會讓你對資訊產生焦慮感？` = col_character()
## )
## ℹ Use `spec()` for the full column specifications.str(X1360) # 看看資料的結構## spec_tbl_df[,46] [1,006 × 46] (S3: spec_tbl_df/tbl_df/tbl/data.frame)
## $ Gender : num [1:1006] 1 0 1 1 0 1 1 1 1 0 ...
## $ Born year : num [1:1006] 1994 1993 1974 1993 1965 ...
## $ EDU : num [1:1006] 5 5 4 5 3 5 6 6 5 5 ...
## $ Curloc : num [1:1006] 19 8 2 1 2 11 14 4 9 2 ...
## $ Residence : chr [1:1006] "18" "15" "2" "1" ...
## $ Job : chr [1:1006] "T" "K" "S" "S" ...
## $ 一開始我們就先來「虛擬」一下吧！ 今天你收到了一份邀請函，邀請你擔任蘋果森林的管理者，你會為「蘋果森林」取個新名字嗎？（如果想分享你取的新名字，可以寫在下面的自填框喔！） : num [1:1006] 2 1 1 2 2 2 1 2 1 2 ...
## $ 我想分享新名字是::一開始我們就先來「虛擬」一下吧！ 今天你收到了一份邀請函，邀請你擔任蘋果森林的管理者，你會為「蘋果森林」取個新名字嗎？（如果想分享你取的新名字，可以寫在下面的自填框喔！）: logi [1:1006] NA NA NA NA NA NA ...
## $ 一開始我們就先來「虛擬」一下吧！ 今天你收到了一份邀請函，邀請你擔任蘋果森林的管理者，你會為「蘋果森林」取個新名字嗎？（如果想分享你取的新名字，可以寫在下面的自填框喔！）: Comments : chr [1:1006] NA NA "\u8a31\u9858\u68ee\u6797" NA ...
## $ 在這個森林裡，你可以與一隻動物當鄰居，你會選誰來當鄰居？ : num [1:1006] 4 90 90 3 3 5 1 3 1 5 ...
## $ 我會想跟牠做鄰居：:在這個森林裡，你可以與一隻動物當鄰居，你會選誰來當鄰居？ : chr [1:1006] NA "\u5c0f\u5154\u5b50" "\u795e\u9f8d" NA ...
## $ 如果花費30個蘋果點數可以來建設你的森林，你最想蓋什麼？ : num [1:1006] 6 6 90 3 7 7 5 7 7 7 ...
## $ 我會想建設這個：:如果花費30個蘋果點數可以來建設你的森林，你最想蓋什麼？ : chr [1:1006] NA NA "\u4e0d\u60f3\u7834\u58de\u5927\u81ea\u7136" NA ...
## $ 有人說網路世界是不同於現實的另一世界，你認同這句話嗎？ : num [1:1006] 1 2 1 1 3 1 2 2 1 1 ...
## $ 我認為是：:有人說網路世界是不同於現實的另一世界，你認同這句話嗎？ : chr [1:1006] NA NA NA NA ...
## $ 像是《動物森友會》這樣純粹的線上社交生活，對你來說算不算真實？ : num [1:1006] 5 6 2 4 1 3 2 1 0 5 ...
## $ 今天小熊看到有一個訊息進來，有個顯示著小兔子照片的帳號，加了小熊的好友。你若是小熊，你覺得那是小兔子本人的機率有多高？ : num [1:1006] 2 2 2 2 2 2 3 2 3 2 ...
## $ 我覺得應該是：:今天小熊看到有一個訊息進來，有個顯示著小兔子照片的帳號，加了小熊的好友。你若是小熊，你覺得那是小兔子本人的機率有多高？ : chr [1:1006] NA NA NA NA ...
## $ 有隻素未謀面的穿山甲想與小熊做朋友，並加了小熊的帳號。你覺得這是個真實的朋友關係嗎？ : num [1:1006] 2 1 2 2 2 1 2 2 2 2 ...
## $ 我覺得是這樣的關係：:有隻素未謀面的穿山甲想與小熊做朋友，並加了小熊的帳號。你覺得這是個真實的朋友關係嗎？ : chr [1:1006] NA NA NA NA ...
## $ 穿山甲跟小熊聊天好幾個月了，但未曾見過面。你覺得他們之間是真實的朋友關係嗎？ : num [1:1006] 1 1 2 2 2 1 2 2 2 2 ...
## $ 我覺得是這樣的關係：:穿山甲跟小熊聊天好幾個月了，但未曾見過面。你覺得他們之間是真實的朋友關係嗎？ : chr [1:1006] NA NA NA NA ...
## $ 你認為網路上所創立的身份，足夠代表你自己嗎？ : num [1:1006] 4 1 5 1 3 1 3 2 5 4 ...
## $ 對於網路上的身份，我覺得是：:你認為網路上所創立的身份，足夠代表你自己嗎？ : chr [1:1006] NA NA NA NA ...
## $ 在網路世界中，你會更願意與人互動嗎？ : num [1:1006] 5 2 4 2 4 2 1 2 1 2 ...
## $ 願意，我的理由是：:在網路世界中，你會更願意與人互動嗎？ : chr [1:1006] NA NA NA NA ...
## $ 不願意，我的理由是：:在網路世界中，你會更願意與人互動嗎？ : chr [1:1006] NA NA NA NA ...
## $ 你有曾經閱讀過這類「靠北版」或「匿名版 」的經驗嗎？ : num [1:1006] 1 1 2 1 2 1 1 2 1 1 ...
## $ 你有曾經使用過（如：PO文、留言）這類「靠北版」或「匿名版 」的經驗嗎？ : num [1:1006] 1 2 2 2 2 1 2 2 2 2 ...
## $ 在高度匿名網路平台中，發言時會讓你更加暢所欲言、還是會讓你更加小心翼翼？ : num [1:1006] 2 1 2 2 2 1 2 2 1 2 ...
## $ 我會這麼做：:在高度匿名網路平台中，發言時會讓你更加暢所欲言、還是會讓你更加小心翼翼？ : chr [1:1006] NA NA NA NA ...
## $ 你相不相信網路世界可以做到「完全匿名」這件事？ : num [1:1006] 4 3 4 1 3 4 3 1 4 4 ...
## $ 我覺得應該是：:你相不相信網路世界可以做到「完全匿名」這件事？ : chr [1:1006] NA NA NA NA ...
## $ 你覺得網路社群平台需不需設立這樣的「匿名版 」或「靠北版」？ : num [1:1006] 2 2 3 2 3 2 2 3 3 2 ...
## $ 我覺得應該是：:你覺得網路社群平台需不需設立這樣的「匿名版 」或「靠北版」？ : chr [1:1006] NA NA NA NA ...
## $ 你覺得社群網路可以彌補現實世界「人際關係」的不足嗎？ : num [1:1006] 1 2 4 4 4 2 1 3 4 1 ...
## $ 我的想法是：:你覺得社群網路可以彌補現實世界「人際關係」的不足嗎？ : chr [1:1006] NA NA NA NA ...
## $ 若現在生活中突然缺少了網路，是否會讓你對資訊產生焦慮感？ : num [1:1006] 1 1 2 2 3 1 2 3 1 1 ...
## $ 我的想法是：:若現在生活中突然缺少了網路，是否會讓你對資訊產生焦慮感？ : chr [1:1006] NA NA NA NA ...
## $ 會感到錯失許多最新資訊:你覺得這種焦慮會來自於哪裡？（可複選，至多三個） : num [1:1006] 1 NA NA 1 NA 1 1 1 1 1 ...
## $ 不知道朋友（網友）近況:你覺得這種焦慮會來自於哪裡？（可複選，至多三個） : num [1:1006] NA 2 2 NA NA 2 NA 2 NA NA ...
## $ 怕別人聯絡不到我:你覺得這種焦慮會來自於哪裡？（可複選，至多三個） : num [1:1006] NA NA 3 3 3 3 NA 3 NA 3 ...
## $ 會讓我工作效率降低:你覺得這種焦慮會來自於哪裡？（可複選，至多三個） : num [1:1006] NA NA NA NA NA NA NA NA NA NA ...
## $ 生活遇到困難時無法逃避:你覺得這種焦慮會來自於哪裡？（可複選，至多三個） : num [1:1006] NA NA 5 NA NA NA NA NA 5 NA ...
## $ 我不知道來自哪裡:你覺得這種焦慮會來自於哪裡？（可複選，至多三個） : num [1:1006] NA NA NA NA NA NA NA NA NA NA ...
## $ 我的狀況是：:你覺得這種焦慮會來自於哪裡？（可複選，至多三個） : num [1:1006] NA NA NA NA NA NA NA NA NA NA ...
## - attr(*, "spec")=
## .. cols(
## .. Gender = col_double(),
## .. `Born year` = col_double(),
## .. EDU = col_double(),
## .. Curloc = col_double(),
## .. Residence = col_character(),
## .. Job = col_character(),
## .. `一開始我們就先來「虛擬」一下吧！ 今天你收到了一份邀請函，邀請你擔任蘋果森林的管理者，你會為「蘋果森林」取個新名字嗎？（如果想分享你取的新名字，可以寫在下面的自填框喔！）` = col_double(),
## .. `我想分享新名字是::一開始我們就先來「虛擬」一下吧！ 今天你收到了一份邀請函，邀請你擔任蘋果森林的管理者，你會為「蘋果森林」取個新名字嗎？（如果想分享你取的新名字，可以寫在下面的自填框喔！）` = col_logical(),
## .. `一開始我們就先來「虛擬」一下吧！ 今天你收到了一份邀請函，邀請你擔任蘋果森林的管理者，你會為「蘋果森林」取個新名字嗎？（如果想分享你取的新名字，可以寫在下面的自填框喔！）: Comments` = col_character(),
## .. `在這個森林裡，你可以與一隻動物當鄰居，你會選誰來當鄰居？` = col_double(),
## .. `我會想跟牠做鄰居：:在這個森林裡，你可以與一隻動物當鄰居，你會選誰來當鄰居？` = col_character(),
## .. `如果花費30個蘋果點數可以來建設你的森林，你最想蓋什麼？` = col_double(),
## .. `我會想建設這個：:如果花費30個蘋果點數可以來建設你的森林，你最想蓋什麼？` = col_character(),
## .. `有人說網路世界是不同於現實的另一世界，你認同這句話嗎？` = col_double(),
## .. `我認為是：:有人說網路世界是不同於現實的另一世界，你認同這句話嗎？` = col_character(),
## .. `像是《動物森友會》這樣純粹的線上社交生活，對你來說算不算真實？` = col_double(),
## .. `今天小熊看到有一個訊息進來，有個顯示著小兔子照片的帳號，加了小熊的好友。你若是小熊，你覺得那是小兔子本人的機率有多高？` = col_double(),
## .. `我覺得應該是：:今天小熊看到有一個訊息進來，有個顯示著小兔子照片的帳號，加了小熊的好友。你若是小熊，你覺得那是小兔子本人的機率有多高？` = col_character(),
## .. `有隻素未謀面的穿山甲想與小熊做朋友，並加了小熊的帳號。你覺得這是個真實的朋友關係嗎？` = col_double(),
## .. `我覺得是這樣的關係：:有隻素未謀面的穿山甲想與小熊做朋友，並加了小熊的帳號。你覺得這是個真實的朋友關係嗎？` = col_character(),
## .. `穿山甲跟小熊聊天好幾個月了，但未曾見過面。你覺得他們之間是真實的朋友關係嗎？` = col_double(),
## .. `我覺得是這樣的關係：:穿山甲跟小熊聊天好幾個月了，但未曾見過面。你覺得他們之間是真實的朋友關係嗎？` = col_character(),
## .. `你認為網路上所創立的身份，足夠代表你自己嗎？` = col_double(),
## .. `對於網路上的身份，我覺得是：:你認為網路上所創立的身份，足夠代表你自己嗎？` = col_character(),
## .. `在網路世界中，你會更願意與人互動嗎？` = col_double(),
## .. `願意，我的理由是：:在網路世界中，你會更願意與人互動嗎？` = col_character(),
## .. `不願意，我的理由是：:在網路世界中，你會更願意與人互動嗎？` = col_character(),
## .. `你有曾經閱讀過這類「靠北版」或「匿名版 」的經驗嗎？` = col_double(),
## .. `你有曾經使用過（如：PO文、留言）這類「靠北版」或「匿名版 」的經驗嗎？` = col_double(),
## .. `在高度匿名網路平台中，發言時會讓你更加暢所欲言、還是會讓你更加小心翼翼？` = col_double(),
## .. `我會這麼做：:在高度匿名網路平台中，發言時會讓你更加暢所欲言、還是會讓你更加小心翼翼？` = col_character(),
## .. `你相不相信網路世界可以做到「完全匿名」這件事？` = col_double(),
## .. `我覺得應該是：:你相不相信網路世界可以做到「完全匿名」這件事？` = col_character(),
## .. `你覺得網路社群平台需不需設立這樣的「匿名版 」或「靠北版」？` = col_double(),
## .. `我覺得應該是：:你覺得網路社群平台需不需設立這樣的「匿名版 」或「靠北版」？` = col_character(),
## .. `你覺得社群網路可以彌補現實世界「人際關係」的不足嗎？` = col_double(),
## .. `我的想法是：:你覺得社群網路可以彌補現實世界「人際關係」的不足嗎？` = col_character(),
## .. `若現在生活中突然缺少了網路，是否會讓你對資訊產生焦慮感？` = col_double(),
## .. `我的想法是：:若現在生活中突然缺少了網路，是否會讓你對資訊產生焦慮感？` = col_character(),
## .. `會感到錯失許多最新資訊:你覺得這種焦慮會來自於哪裡？（可複選，至多三個）` = col_double(),
## .. `不知道朋友（網友）近況:你覺得這種焦慮會來自於哪裡？（可複選，至多三個）` = col_double(),
## .. `怕別人聯絡不到我:你覺得這種焦慮會來自於哪裡？（可複選，至多三個）` = col_double(),
## .. `會讓我工作效率降低:你覺得這種焦慮會來自於哪裡？（可複選，至多三個）` = col_double(),
## .. `生活遇到困難時無法逃避:你覺得這種焦慮會來自於哪裡？（可複選，至多三個）` = col_double(),
## .. `我不知道來自哪裡:你覺得這種焦慮會來自於哪裡？（可複選，至多三個）` = col_double(),
## .. `我的狀況是：:你覺得這種焦慮會來自於哪裡？（可複選，至多三個）` = col_double()
## .. )nrow(X1360) # 確定是1006個觀察值## [1] 1006看看有那些變數，以及這些變數的名稱
names(X1360)## [1] "Gender"
## [2] "Born year"
## [3] "EDU"
## [4] "Curloc"
## [5] "Residence"
## [6] "Job"
## [7] "\u4e00\u958b\u59cb\u6211\u5011\u5c31\u5148\u4f86「\u865b\u64ec」\u4e00\u4e0b\u5427！ \u4eca\u5929\u4f60\u6536\u5230\u4e86\u4e00\u4efd\u9080\u8acb\u51fd，\u9080\u8acb\u4f60\u64d4\u4efb\u860b\u679c\u68ee\u6797\u7684\u7ba1\u7406\u8005，\u4f60\u6703\u70ba「\u860b\u679c\u68ee\u6797」\u53d6\u500b\u65b0\u540d\u5b57\u55ce？（\u5982\u679c\u60f3\u5206\u4eab\u4f60\u53d6\u7684\u65b0\u540d\u5b57，\u53ef\u4ee5\u5beb\u5728\u4e0b\u9762\u7684\u81ea\u586b\u6846\u5594！）"
## [8] "\u6211\u60f3\u5206\u4eab\u65b0\u540d\u5b57\u662f::\u4e00\u958b\u59cb\u6211\u5011\u5c31\u5148\u4f86「\u865b\u64ec」\u4e00\u4e0b\u5427！ \u4eca\u5929\u4f60\u6536\u5230\u4e86\u4e00\u4efd\u9080\u8acb\u51fd，\u9080\u8acb\u4f60\u64d4\u4efb\u860b\u679c\u68ee\u6797\u7684\u7ba1\u7406\u8005，\u4f60\u6703\u70ba「\u860b\u679c\u68ee\u6797」\u53d6\u500b\u65b0\u540d\u5b57\u55ce？（\u5982\u679c\u60f3\u5206\u4eab\u4f60\u53d6\u7684\u65b0\u540d\u5b57，\u53ef\u4ee5\u5beb\u5728\u4e0b\u9762\u7684\u81ea\u586b\u6846\u5594！）"
## [9] "\u4e00\u958b\u59cb\u6211\u5011\u5c31\u5148\u4f86「\u865b\u64ec」\u4e00\u4e0b\u5427！ \u4eca\u5929\u4f60\u6536\u5230\u4e86\u4e00\u4efd\u9080\u8acb\u51fd，\u9080\u8acb\u4f60\u64d4\u4efb\u860b\u679c\u68ee\u6797\u7684\u7ba1\u7406\u8005，\u4f60\u6703\u70ba「\u860b\u679c\u68ee\u6797」\u53d6\u500b\u65b0\u540d\u5b57\u55ce？（\u5982\u679c\u60f3\u5206\u4eab\u4f60\u53d6\u7684\u65b0\u540d\u5b57，\u53ef\u4ee5\u5beb\u5728\u4e0b\u9762\u7684\u81ea\u586b\u6846\u5594！）: Comments"
## [10] "\u5728\u9019\u500b\u68ee\u6797\u88e1，\u4f60\u53ef\u4ee5\u8207\u4e00\u96bb\u52d5\u7269\u7576\u9130\u5c45，\u4f60\u6703\u9078\u8ab0\u4f86\u7576\u9130\u5c45？"
## [11] "\u6211\u6703\u60f3\u8ddf\u7260\u505a\u9130\u5c45：:\u5728\u9019\u500b\u68ee\u6797\u88e1，\u4f60\u53ef\u4ee5\u8207\u4e00\u96bb\u52d5\u7269\u7576\u9130\u5c45，\u4f60\u6703\u9078\u8ab0\u4f86\u7576\u9130\u5c45？"
## [12] "\u5982\u679c\u82b1\u8cbb30\u500b\u860b\u679c\u9ede\u6578\u53ef\u4ee5\u4f86\u5efa\u8a2d\u4f60\u7684\u68ee\u6797，\u4f60\u6700\u60f3\u84cb\u4ec0\u9ebc？"
## [13] "\u6211\u6703\u60f3\u5efa\u8a2d\u9019\u500b：:\u5982\u679c\u82b1\u8cbb30\u500b\u860b\u679c\u9ede\u6578\u53ef\u4ee5\u4f86\u5efa\u8a2d\u4f60\u7684\u68ee\u6797，\u4f60\u6700\u60f3\u84cb\u4ec0\u9ebc？"
## [14] "\u6709\u4eba\u8aaa\u7db2\u8def\u4e16\u754c\u662f\u4e0d\u540c\u65bc\u73fe\u5be6\u7684\u53e6\u4e00\u4e16\u754c，\u4f60\u8a8d\u540c\u9019\u53e5\u8a71\u55ce？"
## [15] "\u6211\u8a8d\u70ba\u662f：:\u6709\u4eba\u8aaa\u7db2\u8def\u4e16\u754c\u662f\u4e0d\u540c\u65bc\u73fe\u5be6\u7684\u53e6\u4e00\u4e16\u754c，\u4f60\u8a8d\u540c\u9019\u53e5\u8a71\u55ce？"
## [16] "\u50cf\u662f《\u52d5\u7269\u68ee\u53cb\u6703》\u9019\u6a23\u7d14\u7cb9\u7684\u7dda\u4e0a\u793e\u4ea4\u751f\u6d3b，\u5c0d\u4f60\u4f86\u8aaa\u7b97\u4e0d\u7b97\u771f\u5be6？"
## [17] "\u4eca\u5929\u5c0f\u718a\u770b\u5230\u6709\u4e00\u500b\u8a0a\u606f\u9032\u4f86，\u6709\u500b\u986f\u793a\u8457\u5c0f\u5154\u5b50\u7167\u7247\u7684\u5e33\u865f，\u52a0\u4e86\u5c0f\u718a\u7684\u597d\u53cb。\u4f60\u82e5\u662f\u5c0f\u718a，\u4f60\u89ba\u5f97\u90a3\u662f\u5c0f\u5154\u5b50\u672c\u4eba\u7684\u6a5f\u7387\u6709\u591a\u9ad8？"
## [18] "\u6211\u89ba\u5f97\u61c9\u8a72\u662f：:\u4eca\u5929\u5c0f\u718a\u770b\u5230\u6709\u4e00\u500b\u8a0a\u606f\u9032\u4f86，\u6709\u500b\u986f\u793a\u8457\u5c0f\u5154\u5b50\u7167\u7247\u7684\u5e33\u865f，\u52a0\u4e86\u5c0f\u718a\u7684\u597d\u53cb。\u4f60\u82e5\u662f\u5c0f\u718a，\u4f60\u89ba\u5f97\u90a3\u662f\u5c0f\u5154\u5b50\u672c\u4eba\u7684\u6a5f\u7387\u6709\u591a\u9ad8？"
## [19] "\u6709\u96bb\u7d20\u672a\u8b00\u9762\u7684\u7a7f\u5c71\u7532\u60f3\u8207\u5c0f\u718a\u505a\u670b\u53cb，\u4e26\u52a0\u4e86\u5c0f\u718a\u7684\u5e33\u865f。\u4f60\u89ba\u5f97\u9019\u662f\u500b\u771f\u5be6\u7684\u670b\u53cb\u95dc\u4fc2\u55ce？"
## [20] "\u6211\u89ba\u5f97\u662f\u9019\u6a23\u7684\u95dc\u4fc2：:\u6709\u96bb\u7d20\u672a\u8b00\u9762\u7684\u7a7f\u5c71\u7532\u60f3\u8207\u5c0f\u718a\u505a\u670b\u53cb，\u4e26\u52a0\u4e86\u5c0f\u718a\u7684\u5e33\u865f。\u4f60\u89ba\u5f97\u9019\u662f\u500b\u771f\u5be6\u7684\u670b\u53cb\u95dc\u4fc2\u55ce？"
## [21] "\u7a7f\u5c71\u7532\u8ddf\u5c0f\u718a\u804a\u5929\u597d\u5e7e\u500b\u6708\u4e86，\u4f46\u672a\u66fe\u898b\u904e\u9762。\u4f60\u89ba\u5f97\u4ed6\u5011\u4e4b\u9593\u662f\u771f\u5be6\u7684\u670b\u53cb\u95dc\u4fc2\u55ce？"
## [22] "\u6211\u89ba\u5f97\u662f\u9019\u6a23\u7684\u95dc\u4fc2：:\u7a7f\u5c71\u7532\u8ddf\u5c0f\u718a\u804a\u5929\u597d\u5e7e\u500b\u6708\u4e86，\u4f46\u672a\u66fe\u898b\u904e\u9762。\u4f60\u89ba\u5f97\u4ed6\u5011\u4e4b\u9593\u662f\u771f\u5be6\u7684\u670b\u53cb\u95dc\u4fc2\u55ce？"
## [23] "\u4f60\u8a8d\u70ba\u7db2\u8def\u4e0a\u6240\u5275\u7acb\u7684\u8eab\u4efd，\u8db3\u5920\u4ee3\u8868\u4f60\u81ea\u5df1\u55ce？"
## [24] "\u5c0d\u65bc\u7db2\u8def\u4e0a\u7684\u8eab\u4efd，\u6211\u89ba\u5f97\u662f：:\u4f60\u8a8d\u70ba\u7db2\u8def\u4e0a\u6240\u5275\u7acb\u7684\u8eab\u4efd，\u8db3\u5920\u4ee3\u8868\u4f60\u81ea\u5df1\u55ce？"
## [25] "\u5728\u7db2\u8def\u4e16\u754c\u4e2d，\u4f60\u6703\u66f4\u9858\u610f\u8207\u4eba\u4e92\u52d5\u55ce？"
## [26] "\u9858\u610f，\u6211\u7684\u7406\u7531\u662f：:\u5728\u7db2\u8def\u4e16\u754c\u4e2d，\u4f60\u6703\u66f4\u9858\u610f\u8207\u4eba\u4e92\u52d5\u55ce？"
## [27] "\u4e0d\u9858\u610f，\u6211\u7684\u7406\u7531\u662f：:\u5728\u7db2\u8def\u4e16\u754c\u4e2d，\u4f60\u6703\u66f4\u9858\u610f\u8207\u4eba\u4e92\u52d5\u55ce？"
## [28] "\u4f60\u6709\u66fe\u7d93\u95b1\u8b80\u904e\u9019\u985e「\u9760\u5317\u7248」\u6216「\u533f\u540d\u7248 」\u7684\u7d93\u9a57\u55ce？"
## [29] "\u4f60\u6709\u66fe\u7d93\u4f7f\u7528\u904e（\u5982：PO\u6587、\u7559\u8a00）\u9019\u985e「\u9760\u5317\u7248」\u6216「\u533f\u540d\u7248 」\u7684\u7d93\u9a57\u55ce？"
## [30] "\u5728\u9ad8\u5ea6\u533f\u540d\u7db2\u8def\u5e73\u53f0\u4e2d，\u767c\u8a00\u6642\u6703\u8b93\u4f60\u66f4\u52a0\u66a2\u6240\u6b32\u8a00、\u9084\u662f\u6703\u8b93\u4f60\u66f4\u52a0\u5c0f\u5fc3\u7ffc\u7ffc？"
## [31] "\u6211\u6703\u9019\u9ebc\u505a：:\u5728\u9ad8\u5ea6\u533f\u540d\u7db2\u8def\u5e73\u53f0\u4e2d，\u767c\u8a00\u6642\u6703\u8b93\u4f60\u66f4\u52a0\u66a2\u6240\u6b32\u8a00、\u9084\u662f\u6703\u8b93\u4f60\u66f4\u52a0\u5c0f\u5fc3\u7ffc\u7ffc？"
## [32] "\u4f60\u76f8\u4e0d\u76f8\u4fe1\u7db2\u8def\u4e16\u754c\u53ef\u4ee5\u505a\u5230「\u5b8c\u5168\u533f\u540d」\u9019\u4ef6\u4e8b？"
## [33] "\u6211\u89ba\u5f97\u61c9\u8a72\u662f：:\u4f60\u76f8\u4e0d\u76f8\u4fe1\u7db2\u8def\u4e16\u754c\u53ef\u4ee5\u505a\u5230「\u5b8c\u5168\u533f\u540d」\u9019\u4ef6\u4e8b？"
## [34] "\u4f60\u89ba\u5f97\u7db2\u8def\u793e\u7fa4\u5e73\u53f0\u9700\u4e0d\u9700\u8a2d\u7acb\u9019\u6a23\u7684「\u533f\u540d\u7248 」\u6216「\u9760\u5317\u7248」？"
## [35] "\u6211\u89ba\u5f97\u61c9\u8a72\u662f：:\u4f60\u89ba\u5f97\u7db2\u8def\u793e\u7fa4\u5e73\u53f0\u9700\u4e0d\u9700\u8a2d\u7acb\u9019\u6a23\u7684「\u533f\u540d\u7248 」\u6216「\u9760\u5317\u7248」？"
## [36] "\u4f60\u89ba\u5f97\u793e\u7fa4\u7db2\u8def\u53ef\u4ee5\u5f4c\u88dc\u73fe\u5be6\u4e16\u754c「\u4eba\u969b\u95dc\u4fc2」\u7684\u4e0d\u8db3\u55ce？"
## [37] "\u6211\u7684\u60f3\u6cd5\u662f：:\u4f60\u89ba\u5f97\u793e\u7fa4\u7db2\u8def\u53ef\u4ee5\u5f4c\u88dc\u73fe\u5be6\u4e16\u754c「\u4eba\u969b\u95dc\u4fc2」\u7684\u4e0d\u8db3\u55ce？"
## [38] "\u82e5\u73fe\u5728\u751f\u6d3b\u4e2d\u7a81\u7136\u7f3a\u5c11\u4e86\u7db2\u8def，\u662f\u5426\u6703\u8b93\u4f60\u5c0d\u8cc7\u8a0a\u7522\u751f\u7126\u616e\u611f？"
## [39] "\u6211\u7684\u60f3\u6cd5\u662f：:\u82e5\u73fe\u5728\u751f\u6d3b\u4e2d\u7a81\u7136\u7f3a\u5c11\u4e86\u7db2\u8def，\u662f\u5426\u6703\u8b93\u4f60\u5c0d\u8cc7\u8a0a\u7522\u751f\u7126\u616e\u611f？"
## [40] "\u6703\u611f\u5230\u932f\u5931\u8a31\u591a\u6700\u65b0\u8cc7\u8a0a:\u4f60\u89ba\u5f97\u9019\u7a2e\u7126\u616e\u6703\u4f86\u81ea\u65bc\u54ea\u88e1？（\u53ef\u8907\u9078，\u81f3\u591a\u4e09\u500b）"
## [41] "\u4e0d\u77e5\u9053\u670b\u53cb（\u7db2\u53cb）\u8fd1\u6cc1:\u4f60\u89ba\u5f97\u9019\u7a2e\u7126\u616e\u6703\u4f86\u81ea\u65bc\u54ea\u88e1？（\u53ef\u8907\u9078，\u81f3\u591a\u4e09\u500b）"
## [42] "\u6015\u5225\u4eba\u806f\u7d61\u4e0d\u5230\u6211:\u4f60\u89ba\u5f97\u9019\u7a2e\u7126\u616e\u6703\u4f86\u81ea\u65bc\u54ea\u88e1？（\u53ef\u8907\u9078，\u81f3\u591a\u4e09\u500b）"
## [43] "\u6703\u8b93\u6211\u5de5\u4f5c\u6548\u7387\u964d\u4f4e:\u4f60\u89ba\u5f97\u9019\u7a2e\u7126\u616e\u6703\u4f86\u81ea\u65bc\u54ea\u88e1？（\u53ef\u8907\u9078，\u81f3\u591a\u4e09\u500b）"
## [44] "\u751f\u6d3b\u9047\u5230\u56f0\u96e3\u6642\u7121\u6cd5\u9003\u907f:\u4f60\u89ba\u5f97\u9019\u7a2e\u7126\u616e\u6703\u4f86\u81ea\u65bc\u54ea\u88e1？（\u53ef\u8907\u9078，\u81f3\u591a\u4e09\u500b）"
## [45] "\u6211\u4e0d\u77e5\u9053\u4f86\u81ea\u54ea\u88e1:\u4f60\u89ba\u5f97\u9019\u7a2e\u7126\u616e\u6703\u4f86\u81ea\u65bc\u54ea\u88e1？（\u53ef\u8907\u9078，\u81f3\u591a\u4e09\u500b）"
## [46] "\u6211\u7684\u72c0\u6cc1\u662f：:\u4f60\u89ba\u5f97\u9019\u7a2e\u7126\u616e\u6703\u4f86\u81ea\u65bc\u54ea\u88e1？（\u53ef\u8907\u9078，\u81f3\u591a\u4e09\u500b）"將這個原始資料轉存為R專屬的rda格式
save(X1360, file = "X1360.rda", compress = T)取出變數名稱當作變數標籤
varlabels <- colnames(X1360)
colnames(X1360)[1:46] <- paste("V", 1:46, sep="")
sjlabelled::set_label(X1360) <- varlabels
save(X1360, file = "X1360.rda", compress = T)批次清理無效值
X1360 <- sjmisc::set_na(X1360, na="NA")變數編碼與描述
varlabels #列出每個變數的標籤## [1] "Gender"
## [2] "Born year"
## [3] "EDU"
## [4] "Curloc"
## [5] "Residence"
## [6] "Job"
## [7] "\u4e00\u958b\u59cb\u6211\u5011\u5c31\u5148\u4f86「\u865b\u64ec」\u4e00\u4e0b\u5427！ \u4eca\u5929\u4f60\u6536\u5230\u4e86\u4e00\u4efd\u9080\u8acb\u51fd，\u9080\u8acb\u4f60\u64d4\u4efb\u860b\u679c\u68ee\u6797\u7684\u7ba1\u7406\u8005，\u4f60\u6703\u70ba「\u860b\u679c\u68ee\u6797」\u53d6\u500b\u65b0\u540d\u5b57\u55ce？（\u5982\u679c\u60f3\u5206\u4eab\u4f60\u53d6\u7684\u65b0\u540d\u5b57，\u53ef\u4ee5\u5beb\u5728\u4e0b\u9762\u7684\u81ea\u586b\u6846\u5594！）"
## [8] "\u6211\u60f3\u5206\u4eab\u65b0\u540d\u5b57\u662f::\u4e00\u958b\u59cb\u6211\u5011\u5c31\u5148\u4f86「\u865b\u64ec」\u4e00\u4e0b\u5427！ \u4eca\u5929\u4f60\u6536\u5230\u4e86\u4e00\u4efd\u9080\u8acb\u51fd，\u9080\u8acb\u4f60\u64d4\u4efb\u860b\u679c\u68ee\u6797\u7684\u7ba1\u7406\u8005，\u4f60\u6703\u70ba「\u860b\u679c\u68ee\u6797」\u53d6\u500b\u65b0\u540d\u5b57\u55ce？（\u5982\u679c\u60f3\u5206\u4eab\u4f60\u53d6\u7684\u65b0\u540d\u5b57，\u53ef\u4ee5\u5beb\u5728\u4e0b\u9762\u7684\u81ea\u586b\u6846\u5594！）"
## [9] "\u4e00\u958b\u59cb\u6211\u5011\u5c31\u5148\u4f86「\u865b\u64ec」\u4e00\u4e0b\u5427！ \u4eca\u5929\u4f60\u6536\u5230\u4e86\u4e00\u4efd\u9080\u8acb\u51fd，\u9080\u8acb\u4f60\u64d4\u4efb\u860b\u679c\u68ee\u6797\u7684\u7ba1\u7406\u8005，\u4f60\u6703\u70ba「\u860b\u679c\u68ee\u6797」\u53d6\u500b\u65b0\u540d\u5b57\u55ce？（\u5982\u679c\u60f3\u5206\u4eab\u4f60\u53d6\u7684\u65b0\u540d\u5b57，\u53ef\u4ee5\u5beb\u5728\u4e0b\u9762\u7684\u81ea\u586b\u6846\u5594！）: Comments"
## [10] "\u5728\u9019\u500b\u68ee\u6797\u88e1，\u4f60\u53ef\u4ee5\u8207\u4e00\u96bb\u52d5\u7269\u7576\u9130\u5c45，\u4f60\u6703\u9078\u8ab0\u4f86\u7576\u9130\u5c45？"
## [11] "\u6211\u6703\u60f3\u8ddf\u7260\u505a\u9130\u5c45：:\u5728\u9019\u500b\u68ee\u6797\u88e1，\u4f60\u53ef\u4ee5\u8207\u4e00\u96bb\u52d5\u7269\u7576\u9130\u5c45，\u4f60\u6703\u9078\u8ab0\u4f86\u7576\u9130\u5c45？"
## [12] "\u5982\u679c\u82b1\u8cbb30\u500b\u860b\u679c\u9ede\u6578\u53ef\u4ee5\u4f86\u5efa\u8a2d\u4f60\u7684\u68ee\u6797，\u4f60\u6700\u60f3\u84cb\u4ec0\u9ebc？"
## [13] "\u6211\u6703\u60f3\u5efa\u8a2d\u9019\u500b：:\u5982\u679c\u82b1\u8cbb30\u500b\u860b\u679c\u9ede\u6578\u53ef\u4ee5\u4f86\u5efa\u8a2d\u4f60\u7684\u68ee\u6797，\u4f60\u6700\u60f3\u84cb\u4ec0\u9ebc？"
## [14] "\u6709\u4eba\u8aaa\u7db2\u8def\u4e16\u754c\u662f\u4e0d\u540c\u65bc\u73fe\u5be6\u7684\u53e6\u4e00\u4e16\u754c，\u4f60\u8a8d\u540c\u9019\u53e5\u8a71\u55ce？"
## [15] "\u6211\u8a8d\u70ba\u662f：:\u6709\u4eba\u8aaa\u7db2\u8def\u4e16\u754c\u662f\u4e0d\u540c\u65bc\u73fe\u5be6\u7684\u53e6\u4e00\u4e16\u754c，\u4f60\u8a8d\u540c\u9019\u53e5\u8a71\u55ce？"
## [16] "\u50cf\u662f《\u52d5\u7269\u68ee\u53cb\u6703》\u9019\u6a23\u7d14\u7cb9\u7684\u7dda\u4e0a\u793e\u4ea4\u751f\u6d3b，\u5c0d\u4f60\u4f86\u8aaa\u7b97\u4e0d\u7b97\u771f\u5be6？"
## [17] "\u4eca\u5929\u5c0f\u718a\u770b\u5230\u6709\u4e00\u500b\u8a0a\u606f\u9032\u4f86，\u6709\u500b\u986f\u793a\u8457\u5c0f\u5154\u5b50\u7167\u7247\u7684\u5e33\u865f，\u52a0\u4e86\u5c0f\u718a\u7684\u597d\u53cb。\u4f60\u82e5\u662f\u5c0f\u718a，\u4f60\u89ba\u5f97\u90a3\u662f\u5c0f\u5154\u5b50\u672c\u4eba\u7684\u6a5f\u7387\u6709\u591a\u9ad8？"
## [18] "\u6211\u89ba\u5f97\u61c9\u8a72\u662f：:\u4eca\u5929\u5c0f\u718a\u770b\u5230\u6709\u4e00\u500b\u8a0a\u606f\u9032\u4f86，\u6709\u500b\u986f\u793a\u8457\u5c0f\u5154\u5b50\u7167\u7247\u7684\u5e33\u865f，\u52a0\u4e86\u5c0f\u718a\u7684\u597d\u53cb。\u4f60\u82e5\u662f\u5c0f\u718a，\u4f60\u89ba\u5f97\u90a3\u662f\u5c0f\u5154\u5b50\u672c\u4eba\u7684\u6a5f\u7387\u6709\u591a\u9ad8？"
## [19] "\u6709\u96bb\u7d20\u672a\u8b00\u9762\u7684\u7a7f\u5c71\u7532\u60f3\u8207\u5c0f\u718a\u505a\u670b\u53cb，\u4e26\u52a0\u4e86\u5c0f\u718a\u7684\u5e33\u865f。\u4f60\u89ba\u5f97\u9019\u662f\u500b\u771f\u5be6\u7684\u670b\u53cb\u95dc\u4fc2\u55ce？"
## [20] "\u6211\u89ba\u5f97\u662f\u9019\u6a23\u7684\u95dc\u4fc2：:\u6709\u96bb\u7d20\u672a\u8b00\u9762\u7684\u7a7f\u5c71\u7532\u60f3\u8207\u5c0f\u718a\u505a\u670b\u53cb，\u4e26\u52a0\u4e86\u5c0f\u718a\u7684\u5e33\u865f。\u4f60\u89ba\u5f97\u9019\u662f\u500b\u771f\u5be6\u7684\u670b\u53cb\u95dc\u4fc2\u55ce？"
## [21] "\u7a7f\u5c71\u7532\u8ddf\u5c0f\u718a\u804a\u5929\u597d\u5e7e\u500b\u6708\u4e86，\u4f46\u672a\u66fe\u898b\u904e\u9762。\u4f60\u89ba\u5f97\u4ed6\u5011\u4e4b\u9593\u662f\u771f\u5be6\u7684\u670b\u53cb\u95dc\u4fc2\u55ce？"
## [22] "\u6211\u89ba\u5f97\u662f\u9019\u6a23\u7684\u95dc\u4fc2：:\u7a7f\u5c71\u7532\u8ddf\u5c0f\u718a\u804a\u5929\u597d\u5e7e\u500b\u6708\u4e86，\u4f46\u672a\u66fe\u898b\u904e\u9762。\u4f60\u89ba\u5f97\u4ed6\u5011\u4e4b\u9593\u662f\u771f\u5be6\u7684\u670b\u53cb\u95dc\u4fc2\u55ce？"
## [23] "\u4f60\u8a8d\u70ba\u7db2\u8def\u4e0a\u6240\u5275\u7acb\u7684\u8eab\u4efd，\u8db3\u5920\u4ee3\u8868\u4f60\u81ea\u5df1\u55ce？"
## [24] "\u5c0d\u65bc\u7db2\u8def\u4e0a\u7684\u8eab\u4efd，\u6211\u89ba\u5f97\u662f：:\u4f60\u8a8d\u70ba\u7db2\u8def\u4e0a\u6240\u5275\u7acb\u7684\u8eab\u4efd，\u8db3\u5920\u4ee3\u8868\u4f60\u81ea\u5df1\u55ce？"
## [25] "\u5728\u7db2\u8def\u4e16\u754c\u4e2d，\u4f60\u6703\u66f4\u9858\u610f\u8207\u4eba\u4e92\u52d5\u55ce？"
## [26] "\u9858\u610f，\u6211\u7684\u7406\u7531\u662f：:\u5728\u7db2\u8def\u4e16\u754c\u4e2d，\u4f60\u6703\u66f4\u9858\u610f\u8207\u4eba\u4e92\u52d5\u55ce？"
## [27] "\u4e0d\u9858\u610f，\u6211\u7684\u7406\u7531\u662f：:\u5728\u7db2\u8def\u4e16\u754c\u4e2d，\u4f60\u6703\u66f4\u9858\u610f\u8207\u4eba\u4e92\u52d5\u55ce？"
## [28] "\u4f60\u6709\u66fe\u7d93\u95b1\u8b80\u904e\u9019\u985e「\u9760\u5317\u7248」\u6216「\u533f\u540d\u7248 」\u7684\u7d93\u9a57\u55ce？"
## [29] "\u4f60\u6709\u66fe\u7d93\u4f7f\u7528\u904e（\u5982：PO\u6587、\u7559\u8a00）\u9019\u985e「\u9760\u5317\u7248」\u6216「\u533f\u540d\u7248 」\u7684\u7d93\u9a57\u55ce？"
## [30] "\u5728\u9ad8\u5ea6\u533f\u540d\u7db2\u8def\u5e73\u53f0\u4e2d，\u767c\u8a00\u6642\u6703\u8b93\u4f60\u66f4\u52a0\u66a2\u6240\u6b32\u8a00、\u9084\u662f\u6703\u8b93\u4f60\u66f4\u52a0\u5c0f\u5fc3\u7ffc\u7ffc？"
## [31] "\u6211\u6703\u9019\u9ebc\u505a：:\u5728\u9ad8\u5ea6\u533f\u540d\u7db2\u8def\u5e73\u53f0\u4e2d，\u767c\u8a00\u6642\u6703\u8b93\u4f60\u66f4\u52a0\u66a2\u6240\u6b32\u8a00、\u9084\u662f\u6703\u8b93\u4f60\u66f4\u52a0\u5c0f\u5fc3\u7ffc\u7ffc？"
## [32] "\u4f60\u76f8\u4e0d\u76f8\u4fe1\u7db2\u8def\u4e16\u754c\u53ef\u4ee5\u505a\u5230「\u5b8c\u5168\u533f\u540d」\u9019\u4ef6\u4e8b？"
## [33] "\u6211\u89ba\u5f97\u61c9\u8a72\u662f：:\u4f60\u76f8\u4e0d\u76f8\u4fe1\u7db2\u8def\u4e16\u754c\u53ef\u4ee5\u505a\u5230「\u5b8c\u5168\u533f\u540d」\u9019\u4ef6\u4e8b？"
## [34] "\u4f60\u89ba\u5f97\u7db2\u8def\u793e\u7fa4\u5e73\u53f0\u9700\u4e0d\u9700\u8a2d\u7acb\u9019\u6a23\u7684「\u533f\u540d\u7248 」\u6216「\u9760\u5317\u7248」？"
## [35] "\u6211\u89ba\u5f97\u61c9\u8a72\u662f：:\u4f60\u89ba\u5f97\u7db2\u8def\u793e\u7fa4\u5e73\u53f0\u9700\u4e0d\u9700\u8a2d\u7acb\u9019\u6a23\u7684「\u533f\u540d\u7248 」\u6216「\u9760\u5317\u7248」？"
## [36] "\u4f60\u89ba\u5f97\u793e\u7fa4\u7db2\u8def\u53ef\u4ee5\u5f4c\u88dc\u73fe\u5be6\u4e16\u754c「\u4eba\u969b\u95dc\u4fc2」\u7684\u4e0d\u8db3\u55ce？"
## [37] "\u6211\u7684\u60f3\u6cd5\u662f：:\u4f60\u89ba\u5f97\u793e\u7fa4\u7db2\u8def\u53ef\u4ee5\u5f4c\u88dc\u73fe\u5be6\u4e16\u754c「\u4eba\u969b\u95dc\u4fc2」\u7684\u4e0d\u8db3\u55ce？"
## [38] "\u82e5\u73fe\u5728\u751f\u6d3b\u4e2d\u7a81\u7136\u7f3a\u5c11\u4e86\u7db2\u8def，\u662f\u5426\u6703\u8b93\u4f60\u5c0d\u8cc7\u8a0a\u7522\u751f\u7126\u616e\u611f？"
## [39] "\u6211\u7684\u60f3\u6cd5\u662f：:\u82e5\u73fe\u5728\u751f\u6d3b\u4e2d\u7a81\u7136\u7f3a\u5c11\u4e86\u7db2\u8def，\u662f\u5426\u6703\u8b93\u4f60\u5c0d\u8cc7\u8a0a\u7522\u751f\u7126\u616e\u611f？"
## [40] "\u6703\u611f\u5230\u932f\u5931\u8a31\u591a\u6700\u65b0\u8cc7\u8a0a:\u4f60\u89ba\u5f97\u9019\u7a2e\u7126\u616e\u6703\u4f86\u81ea\u65bc\u54ea\u88e1？（\u53ef\u8907\u9078，\u81f3\u591a\u4e09\u500b）"
## [41] "\u4e0d\u77e5\u9053\u670b\u53cb（\u7db2\u53cb）\u8fd1\u6cc1:\u4f60\u89ba\u5f97\u9019\u7a2e\u7126\u616e\u6703\u4f86\u81ea\u65bc\u54ea\u88e1？（\u53ef\u8907\u9078，\u81f3\u591a\u4e09\u500b）"
## [42] "\u6015\u5225\u4eba\u806f\u7d61\u4e0d\u5230\u6211:\u4f60\u89ba\u5f97\u9019\u7a2e\u7126\u616e\u6703\u4f86\u81ea\u65bc\u54ea\u88e1？（\u53ef\u8907\u9078，\u81f3\u591a\u4e09\u500b）"
## [43] "\u6703\u8b93\u6211\u5de5\u4f5c\u6548\u7387\u964d\u4f4e:\u4f60\u89ba\u5f97\u9019\u7a2e\u7126\u616e\u6703\u4f86\u81ea\u65bc\u54ea\u88e1？（\u53ef\u8907\u9078，\u81f3\u591a\u4e09\u500b）"
## [44] "\u751f\u6d3b\u9047\u5230\u56f0\u96e3\u6642\u7121\u6cd5\u9003\u907f:\u4f60\u89ba\u5f97\u9019\u7a2e\u7126\u616e\u6703\u4f86\u81ea\u65bc\u54ea\u88e1？（\u53ef\u8907\u9078，\u81f3\u591a\u4e09\u500b）"
## [45] "\u6211\u4e0d\u77e5\u9053\u4f86\u81ea\u54ea\u88e1:\u4f60\u89ba\u5f97\u9019\u7a2e\u7126\u616e\u6703\u4f86\u81ea\u65bc\u54ea\u88e1？（\u53ef\u8907\u9078，\u81f3\u591a\u4e09\u500b）"
## [46] "\u6211\u7684\u72c0\u6cc1\u662f：:\u4f60\u89ba\u5f97\u9019\u7a2e\u7126\u616e\u6703\u4f86\u81ea\u65bc\u54ea\u88e1？（\u53ef\u8907\u9078，\u81f3\u591a\u4e09\u500b）"library(sjmisc)
library(sjPlot)## Install package "strengejacke" from GitHub (`devtools::install_github("strengejacke/strengejacke")`) to load all sj-packages at once!names(X1360)## [1] "V1" "V2" "V3" "V4" "V5" "V6" "V7" "V8" "V9" "V10" "V11" "V12"
## [13] "V13" "V14" "V15" "V16" "V17" "V18" "V19" "V20" "V21" "V22" "V23" "V24"
## [25] "V25" "V26" "V27" "V28" "V29" "V30" "V31" "V32" "V33" "V34" "V35" "V36"
## [37] "V37" "V38" "V39" "V40" "V41" "V42" "V43" "V44" "V45" "V46"依變數：「在網路上是否比現實生活更願意與他人互動」
# 他人：是指陌生人，而非親朋好友
# （V25）在網路世界中，你會更願意與人互動嗎？(1~6)
# table(X1360$V25)
X1360$V25r <- rec(X1360$V25, rec="1:3=0[yes]; 4:6=1[no]", as.num=F)
frq(X1360$V25)##
## 在網路世界中，你會更願意與人互動嗎？ (x) <numeric>
## # total N=1006 valid N=1006 mean=2.63 sd=1.28
##
## Value | N | Raw % | Valid % | Cum. %
## --------------------------------------
## 1 | 126 | 12.52 | 12.52 | 12.52
## 2 | 557 | 55.37 | 55.37 | 67.89
## 3 | 17 | 1.69 | 1.69 | 69.58
## 4 | 180 | 17.89 | 17.89 | 87.48
## 5 | 118 | 11.73 | 11.73 | 99.20
## 6 | 8 | 0.80 | 0.80 | 100.00
## <NA> | 0 | 0.00 | <NA> | <NA>frq(X1360$V25r)##
## 在網路世界中，你會更願意與人互動嗎？ (x) <categorical>
## # total N=1006 valid N=1006 mean=0.30 sd=0.46
##
## Value | Label | N | Raw % | Valid % | Cum. %
## ----------------------------------------------
## 0 | yes | 700 | 69.58 | 69.58 | 69.58
## 1 | no | 306 | 30.42 | 30.42 | 100.00
## <NA> | <NA> | 0 | 0.00 | <NA> | <NA>plot_frq(X1360$V25r)
自變數
解釋變數一：「世代」
年齡原始資料是依資料中V2中受訪對象出生西元年做計算。年輕世代：20歲以下、20-29歲;中老年世代：30-39歲、40-49歲、50-59歲、60歲以上，藉此重新編碼，來探討是否年輕世代的人相較於中老年世代的人傾向在網路上與他人互動。
# 年輕世代：20歲以下、20-29歲 1
# 中老年世代：30-39歲、40-49歲、50-59歲、60歲以上 0
# 探討是否年輕世代的人相較於第中老年世代的人更傾向在網路上與他人互動
X1360$V2r <- 2021- as.numeric(X1360$V2)
#hist(X1360$V2)
X1360$V2r[X1360$V2<=(2021-2001)] <- 1
X1360$V2r[X1360$V2<=(2021-1992) & X1360$V2>=(2021-2001)] <- 1
X1360$V2r[X1360$V2<=(2021-1982) & X1360$V2>=(2021-1991)] <- 0
X1360$V2r[X1360$V2<=(2021-1972) & X1360$V2>=(2021-1981)] <- 0
X1360$V2r[X1360$V2<=(2021-1962) & X1360$V2>=(2021-1971)] <- 0
X1360$V2r[X1360$V2>=(2021-1961)] <- 0解釋變數二：「性別」
性別原始資料是依資料中V1受訪對象性別做分類，藉此探討性別是否會影響人在網路上與他人互動的意願。
# （V1）您的性別？
# 探討性別是否會影響人在網路上與他人互動的意願
X1360$V1r <- rec(X1360$V1, rec="1=1[男性]; 0=0[女性]", as.num=F)
frq(X1360$V1r)##
## Gender (x) <categorical>
## # total N=1006 valid N=1006 mean=0.46 sd=0.50
##
## Value | Label | N | Raw % | Valid % | Cum. %
## -----------------------------------------------------
## 0 | 女性 | 540 | 53.68 | 53.68 | 53.68
## 1 | 男性 | 466 | 46.32 | 46.32 | 100.00
## <NA> | <NA> | 0 | 0.00 | <NA> | <NA>解釋變數三：「居住地」
居住地原始資料是依資料中V5受訪對象的居住地做分類，將台北市、新北市、基隆市、桃園市、新竹市、新竹縣作為北部，苗栗縣、台中市、彰化縣、南投縣作為中部，雲林縣、嘉義市、嘉義縣、台南市、高雄市、屏東縣作為南部，台東縣、花蓮縣、宜蘭縣作為東部，澎湖縣、金門縣、連江縣、中國大陸地區、其他地區則作為其他，藉此重新編碼，來探討居住在不同地區是否會影響人在網路上與他人互動的意願。
相較於中北部，東南部及其他地區資源相對較少，因此居住地會影響與他人在網路上互動之意願。
# （V5）您的居住地？
# 北部：台北市、新北市、基隆市、桃園市、新竹市、新竹縣：1
# 中部：苗栗縣、台中市、彰化縣、南投縣：2
# 南部：雲林縣、嘉義市、嘉義縣、台南市、高雄市、屏東縣：3
# 東部：台東縣、花蓮縣、宜蘭縣：4
# 其他：澎湖縣、金門縣、連江縣、中國大陸地區、其他地區：5
# 探討居住在不同的地區是否會影響與他人在網路上互動的意願
X1360$V5r <- rec(X1360$V5, rec="1:6=1[北部]; 7:10=2[中部]; 11:16=3[南部]; 17:19=4[東部]; 20:24=5[其他]", as.num=F)
frq(X1360$V5r)##
## Residence (x) <categorical>
## # total N=1006 valid N=1005 mean=1.99 sd=1.02
##
## Value | Label | N | Raw % | Valid % | Cum. %
## -----------------------------------------------------
## 1 | 北部 | 444 | 44.14 | 44.18 | 44.18
## 2 | 中部 | 191 | 18.99 | 19.00 | 63.18
## 3 | 南部 | 329 | 32.70 | 32.74 | 95.92
## 4 | 東部 | 20 | 1.99 | 1.99 | 97.91
## 5 | 其他 | 21 | 2.09 | 2.09 | 100.00
## <NA> | <NA> | 1 | 0.10 | <NA> | <NA>解釋變數四：「網路的匿名性」
網路匿名性原始資料是依資料中V30受訪對象對網路的匿名性做分類，將可以更加暢所欲言編碼為增加意願，將更加小心翼翼、與現實沒有明顯區別編碼為減少或沒有明顯區別。藉此來探討網路匿名性對於人在網路上與他人互動意願的關聯性。
# （V30）在高度匿名網路平台中，發言時會讓你更加暢所欲言、還是會讓你更加小心翼翼？
# 我覺得更加暢所欲言 1
# 我覺得更加小心翼翼 2
# 我覺得與現實生活不會有明顯的差別 3
# 探討網路匿名性對於人在網路上與他人互動意願的關聯性
X1360$V30r <- rec(X1360$V30, rec="1=1[增加]; 2:3=0[減少或沒有明顯區別]", as.num=F)
frq(X1360$V30r)##
## 在高度匿名網路平台中，發言時會讓你更加暢所欲言、還是會讓你更加小心翼翼？ (x) <categorical>
## # total N=1006 valid N=999 mean=0.27 sd=0.45
##
## Value | Label | N | Raw % | Valid % | Cum. %
## -----------------------------------------------------------------------------------------------
## 0 | 減少或沒有明顯區別 | 725 | 72.07 | 72.57 | 72.57
## 1 | 增加 | 274 | 27.24 | 27.43 | 100.00
## <NA> | <NA> | 7 | 0.70 | <NA> | <NA>解釋變數五：「相信網路匿名性的程度」
相信網路匿名性的程度原始資料是依資料中V32受訪對象對網路的匿名性的信任程度做分類，將資料進行二分，重新編碼為相信與不相信，來探討對於網路匿名性的信任程度是否會影響人在網路上與他人互動的意願。
# （V32）你相不相信網路世界可以做到「完全匿名」這件事？
# 相信，現在科技進步有新技術可以加密 1
# 相信，只要大家不知道我是誰就是匿名 2
# 不相信，仍有許多知名網路公司被盜取資料 3
# 不相信，都會有被破解的一天只是早晚而已 4
# 探討對於網路匿名性的信任程度是否會影響人在網路上與他人互動的意願
X1360$V32r <- rec(X1360$V32, rec="1:2=1[相信]; 3:4=0[不相信]", as.num=F)
frq(X1360$V32r)##
## 你相不相信網路世界可以做到「完全匿名」這件事？ (x) <categorical>
## # total N=1006 valid N=999 mean=0.19 sd=0.39
##
## Value | Label | N | Raw % | Valid % | Cum. %
## -----------------------------------------------------------
## 0 | 不相信 | 811 | 80.62 | 81.18 | 81.18
## 1 | 相信 | 188 | 18.69 | 18.82 | 100.00
## <NA> | <NA> | 7 | 0.70 | <NA> | <NA>解釋變數六：「網路可以彌補現實生活中所缺乏的人際關係」
網路彌補人際關係原始資料是依資料中V36受訪對象在網路上是否可彌補現實人際關係認同程度做分類，將資料進行二分，重新編碼為可以與不可以，來探討網路是否能彌補現實人際關係的不足。
人與人在現實生活中日益疏離、在現實中未獲得良好人際關係，因而想在網路上尋求認同感。
# （V36）你覺得社群網路可以彌補現實世界「人際關係」的不足嗎？
# 可以，它可以更讓我暸解朋友 1
# 可以，它可以幫助我交到新朋友 2
# 不行，無助於現實生活的人際關係 3
# 不行，大家都是隱姓埋名，關係是脆弱的 4
# 探討網路是否能能彌補現實人際關係的不足
X1360$V36r <- rec(X1360$V36, rec="1:2=1[可以]; 3:4=0[不可以]", as.num=F)
frq(X1360$V36r)##
## 你覺得社群網路可以彌補現實世界「人際關係」的不足嗎？ (x) <categorical>
## # total N=1006 valid N=991 mean=0.46 sd=0.50
##
## Value | Label | N | Raw % | Valid % | Cum. %
## -----------------------------------------------------------
## 0 | 不可以 | 533 | 52.98 | 53.78 | 53.78
## 1 | 可以 | 458 | 45.53 | 46.22 | 100.00
## <NA> | <NA> | 15 | 1.49 | <NA> | <NA>