教育程度是否影響民眾對於TikTok平台上關於中國資訊的辨識？

Author

李采容

Quarto

Quarto enables you to weave together content and executable code into a finished document. To learn more about Quarto see https://quarto.org.

Running Code

When you click the Render button a document will be generated that includes both content and the output of embedded code. You can embed code like this:

## (一)研究問題
## 教育程度是否影響民眾對於TikTok平台上關於中國資訊的辨識？

## (二)資料描述
## 本研究欲使用《民主實驗室TikTok使用者網路調查》的資料，而在此份調查問卷中有詢問並統計出受訪者的教育程度，以及有些問題是可以推斷出使用者是否能對於中國相關資訊有基本的判別能力和信任態度等，如:Q32與Q35。

## 隨著短影音平台TikTok的普及，越來越多民眾是透過此平台去接收政治與社會的相關資訊。而教育程度的高低通常被視為是影響媒體識讀能力，以及接收者是否具備批判性思考的重要因素。因此，本研究欲透過此分析，來揭示不同教育層級在資訊接受與判斷上的差異。

## 自變項(IV):教育程度；依變項(DV):能辨識中國相關資訊

library(readxl)

data_raw <- read_excel("D:/Users/USER/Desktop/碩二上 民意/HW1_files/解壓縮抖音資料/民主實驗室TikTok使用者網路調查_資料檔0326.xlsx")

Warning: Expecting logical in AD1361 / R1361C30: got '社會民主黨'

Warning: Expecting logical in AD1975 / R1975C30: got '不一定'

Warning: Expecting logical in AD2298 / R2298C30: got '勞工黨'

codebook <- read_excel("D:/Users/USER/Desktop/碩二上 民意/HW1_files/解壓縮抖音資料/民主實驗室TikTok使用者網路調查_譯碼簿0326.xlsx")

head(data_raw)

# A tibble: 6 × 77
  編號  抖音活躍使用者    S0 S0_AGE    S1    S2  Q1_1  Q1_2  Q1_3  Q1_4  Q1_5
  <chr>          <dbl> <dbl>  <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
1 A0001              1     8     21     4     4     1    10     3     9    NA
2 A0002              1    27     40     5     3    11    10     5    12     9
3 A0003              1    14     27     4     4    10    13    NA    NA    NA
4 A0004              1    23     36     4     3     2     9    NA    NA    NA
5 A0005              1    21     34     5     3     7     6     1     4     9
6 A0006              1    39     52     5     2     6    10     5     9     2
# ℹ 66 more variables: Q1_O <chr>, Q2_1 <dbl>, Q2_2 <dbl>, Q2_3 <dbl>,
#   Q2_O <chr>, Q3_1 <dbl>, Q3_2 <dbl>, Q3_3 <dbl>, Q3_O <chr>, Q4 <dbl>,
#   Q4_O <chr>, Q5 <dbl>, Q6 <dbl>, Q7 <dbl>, Q8 <dbl>, Q9 <dbl>, Q9_O <chr>,
#   Q10 <dbl>, Q10_O <lgl>, Q11 <dbl>, Q11_O <chr>, Q12 <dbl>, Q13 <dbl>,
#   Q13_O <chr>, Q14 <dbl>, Q15 <dbl>, Q16 <dbl>, Q17 <dbl>, Q18 <dbl>,
#   Q19 <dbl>, Q20 <dbl>, Q21 <dbl>, Q22 <dbl>, Q23 <dbl>, Q23_O <chr>,
#   Q24 <dbl>, Q25 <dbl>, Q26 <dbl>, Q27 <dbl>, Q28 <dbl>, Q29 <dbl>, …

head(codebook)

# A tibble: 6 × 2
  題號           題目                                           
  <chr>          <chr>                                          
1 編號           <無>                                           
2 抖音活躍使用者 抖音活躍使用者                                 
3 S0             S0.請問您的西元出生年次？                      
4 S0_AGE         S0.請問您的年齡                                
5 S1             S1.請問您最近一年有多常使用TikTok抖音？        
6 S2             S2.請問您平常單次使用TikTok抖音大概的時間長度？

You can add options to executable code like this

## 研究問題:教育程度是否影響民眾對於TikTok平台上關於中國資訊的辨識？

library(readxl)
tiktok_raw <- read_excel("D:/Users/USER/Desktop/碩二上 民意/HW1_files/解壓縮抖音資料/民主實驗室TikTok使用者網路調查_資料檔0326.xlsx")

Warning: Expecting logical in AD1361 / R1361C30: got '社會民主黨'

Warning: Expecting logical in AD1975 / R1975C30: got '不一定'

Warning: Expecting logical in AD2298 / R2298C30: got '勞工黨'

save(tiktok_raw, file = "tiktok_raw.rda")

## 本次研究的IV是教育程度，所以變數一選擇的問題為題號EDU，欲了解各個階段的受訪者是否能辨識出中國資訊，對於中國資訊的敏感度如何。因此將教育程度分為高教育程度(大學及以上)、中等教育程度(高中職與專科)、低教育程度(國/初中以下)
## EDU:(1)國小及以下(2)國(初)中(3)高級中學(高中、高職)(4)專科(5)大學及以上
table(tiktok_raw$EDU)


   1    2    3    4    5 
  18   42  274  325 1953

library(sjmisc)
tiktok_raw$EDUr<-rec(tiktok_raw$EDU,rec="5=1; 3:4=2;1:2=3",as.num=FALSE)
table(tiktok_raw$EDUr)


   1    2    3 
1953  599   60

## 變數二選擇的是DV所需要的問題，Q9的題目與選項對於我的研究問題有最直接的相關，可以直接挑出選擇關於中華人民共和國/ 中國共產黨的回答
## Q9:有人說台灣的假訊息跟網軍操作很普遍又很嚴重，您認為台灣現在的假訊息跟網軍操作主要來自哪個陣營？
## (1)民進黨(2)國民黨(3)民眾黨(4)時代力量(5)親民黨(6)台灣基進(7)綠黨(8)小民參政歐巴桑聯盟(9)新黨(10)中華人民共和國/ 中國共產黨(11)美國(12)日本(13)都沒有假訊息(14)不知道/ 不清楚(90)其他國家：______
library(sjmisc)
table(tiktok_raw$Q9)


  1   2   3   4   5   6   7   8   9  10  11  12  13  14  90 
897 359  76  29  16  15   4   3   4 462  16   7  42 673   9

tiktok_raw$Q9r<-rec(tiktok_raw$Q9,rec="10=1; else=0",as.num=FALSE)
table(tiktok_raw$Q9r)


   0    1 
2150  462

## 第三個變數選擇的是Q35新疆地區風景美麗，人民幸福快樂，中國政府也在當地文化保存上做了很多努力請問您同不同意這樣的說法(中國新疆的人權問題一直被討論，那這題所要挑選出的回答就必須是支持Q35說法的選項)
## (1)非常不同意(2)還滿不同意(3)有點不同意(4)有點同意(5)還滿同意(6)非常同意
table(tiktok_raw$Q35)


  1   2   3   4   5   6 
545 535 722 582 145  83

tiktok_raw$Q35r<-rec(tiktok_raw$Q35,rec="4:6=1; else=0",as.num=FALSE)
table(tiktok_raw$Q35r)


   0    1 
1802  810

## 我將使用S2.請問您平常單次使用TikTok抖音大概的時間長度？這個題目來探討受訪者的使用習慣，使用時間較長的受訪者，會更頻繁的接觸到平台上的各類資訊，可能會對平台上的中國相關資訊更敏感，因此這可作為一個控制變數。而選擇3~4這三個選項可以控制過度短暫使用者（選項1和2）可能造成的偏誤。
## (1)10分鐘以內(2)10-30分鐘以內(3)30分鐘至1小時以內(4)1-3小時以內(5)3小時(含)以上
library(sjmisc)
table(tiktok_raw$S2)


  1   2   3   4   5 
531 687 579 255  83

tiktok_raw$S2r<-set_na(tiktok_raw$S2,na=c(1:2,"NA"))
tiktok_raw$S2r<-rec(tiktok_raw$S2,rec="3=1; 4=2;5=3",as.num=FALSE)## 將原本的選項一和二清除後，將選項三到五重新編碼為一二三
table(tiktok_raw$S2r)


  1   2   3 
579 255  83

{r} #| echo: false 2 * 2 ```

The echo: false option disables the printing of code (only output is displayed).