TikTok社群平台的使用是否影響中國對台灣的統戰行動

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的推薦機制很強，影片傳得又快又廣，可能被拿來影響大家的想法。中國近年除了軍事和外交手段，
#也常用網路和社群媒體來影響輿論，用一些看似娛樂或生活的內容，偷偷傳遞親中的觀點。所以想透過此研究，
#幫助我們了解中國利用TikTok是否影響台灣人對兩岸關係的看法，藉此加速統戰行動。

#資料描述
#本研究將使用《民主實驗室TikTok使用者網路調查》資料，此調查問卷中涵蓋受訪者的社群媒體使用習慣、
#對兩岸統一的看法，以及對中華民族的認同程度等項目。透過分析這些變項之間的關係，本研究將探討
#TikTok使用行為與中國對台灣統戰行動之間的可能關聯，藉以了解社群平台在認知戰與輿論影響中的潛在作用，
#並為後續政策制定與媒體識讀教育提供實證依據。

# S1與S2反映受訪者使用TikTok／抖音的頻率與單次使用時長，Q1則可作為其他社群媒體使用的控制變項。
#另一方面，Q14與Q15涉及民主價值與對民主運作的滿意度，Q19、Q21、Q29、Q30、Q33、Q34、Q35等題分別衡量受訪者
#對中國社會形象、統戰敘事、兩岸統一與民族認同等態度。透過上述題項的分析，來研究TikTok使用者與統戰的關聯。

# S1.請問您最近一年有多常使用TikTok抖音？
# S2.請問您平常單次使用TikTok抖音大概的時間長度？
# Q1.請問您平時日常生活主要使用下列哪些社群平台/社群軟體？（複選最多五個）
# Q14.有人說「不管甚麼情況，民主政治都是最好的體制」，也有人說「在有些情況下，獨裁的政治體制比民主政治好」以及「對我而言，任何一種政治體制都沒差」請問哪一種最接近您個人對民主的看法？
# Q15.整體來說，您對於我國民主的運作現況滿不滿意？
# Q19.有人說「對於普通老百姓來說，中國比台灣更安居樂業、更適合生活」請問您同不同意這樣的說法？
# Q21.有人說「中國籍配偶幾乎都是中國政府的統戰工具，台灣政府應該嚴格監控他們的行為，以防範滲透」請問您同不同意這樣的說法？  
# Q29.有人認為：「台灣必須盡一切可能守護兩岸和平，即使放棄民主自由（的體制）也沒關係」請問您同不同意這樣的說法？
# Q30.有些人希望兩岸能維持現狀，但即便兩岸統一，對普通民眾來說生活也不會有太多改變。請問您同不同意這樣的說法？
# Q33.「台灣人與中國人講著同樣的語言、有著相似的文化，是中華民族的一部分」請問您同不同意這樣的說法？
# Q34.「兩岸本就一家親，無論以什麼形式實現，在可預見的未來兩岸都必然統一」請問您同不同意這樣的說法？
# Q35.「新疆地區風景美麗，人民幸福快樂，中國政府也在當地文化保存上做了很多努力」請問您同不同意這樣的說法？


library(readxl)
library(sjPlot)
library(haven)
library(dplyr)

Attaching package: 'dplyr'

The following objects are masked from 'package:stats':

    filter, lag

The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union

library(stringr)
library(sjlabelled)

Attaching package: 'sjlabelled'

The following object is masked from 'package:dplyr':

    as_label

The following objects are masked from 'package:haven':

    as_factor, read_sas, read_spss, read_stata, write_sas, zap_labels

library(sjmisc)

data<-read_excel("民主實驗室TikTok使用者網路調查_資料檔0326.xlsx")

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

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

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

glimpse(data)

Rows: 2,612
Columns: 77
$ 編號           <chr> "A0001", "A0002", "A0003", "A0004", "A0005", "A0006", "…
$ 抖音活躍使用者 <dbl> 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1…
$ S0             <dbl> 8, 27, 14, 23, 21, 39, 20, 26, 52, 26, 49, 18, 24, 25, …
$ S0_AGE         <dbl> 21, 40, 27, 36, 34, 52, 33, 39, 65, 39, 62, 31, 37, 38,…
$ S1             <dbl> 4, 5, 4, 4, 5, 5, 4, 3, 3, 5, 3, 5, 3, 5, 4, 4, 5, 5, 5…
$ S2             <dbl> 4, 3, 4, 3, 3, 2, 4, 4, 4, 3, 3, 3, 3, 2, 4, 3, 2, 2, 3…
$ Q1_1           <dbl> 1, 11, 10, 2, 7, 6, 2, 2, 10, 12, 3, 10, 2, 7, 6, 11, 2…
$ Q1_2           <dbl> 10, 10, 13, 9, 6, 10, 10, 10, 2, 3, 1, 7, 9, 13, 4, 1, …
$ Q1_3           <dbl> 3, 5, NA, NA, 1, 5, 1, NA, 1, NA, 9, 9, 1, 2, 9, 8, 9, …
$ Q1_4           <dbl> 9, 12, NA, NA, 4, 9, 9, NA, 13, NA, NA, 5, 11, 11, NA, …
$ Q1_5           <dbl> NA, 9, NA, NA, 9, 2, NA, NA, NA, NA, NA, 8, 10, 9, NA, …
$ Q1_O           <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,…
$ Q2_1           <dbl> 3, 2, 8, 9, 1, 16, 3, 12, 20, 10, 10, 7, 2, 14, 2, 16, …
$ Q2_2           <dbl> 6, 11, 9, 2, 9, 5, 9, 4, 2, 18, 1, 9, 3, 9, 1, 12, 3, 1…
$ Q2_3           <dbl> 16, NA, NA, NA, 7, 7, 1, NA, NA, 17, NA, NA, 9, NA, NA,…
$ Q2_O           <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,…
$ Q3_1           <dbl> 1, 1, 1, 5, 2, 1, 5, 4, 1, 2, 2, 1, 1, 2, 7, 1, 1, 7, 1…
$ Q3_2           <dbl> NA, 4, 3, 2, 1, 4, 1, 1, 3, 4, 1, 4, 3, 1, NA, 2, NA, N…
$ Q3_3           <dbl> NA, 3, NA, NA, 5, NA, NA, NA, NA, 3, NA, 5, 4, NA, NA, …
$ Q3_O           <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,…
$ Q4             <dbl> 7, 3, 1, 7, 5, 1, 7, 1, 7, 3, 7, 4, 2, 2, 1, 3, 7, 7, 2…
$ Q4_O           <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,…
$ Q5             <dbl> 2, 5, 4, 3, 5, 5, 5, 5, 3, 5, 4, 5, 4, 5, 5, 5, 5, 4, 5…
$ Q6             <dbl> 2, 5, 5, 4, 4, 5, 4, 5, 3, 5, 4, 4, 4, 4, 4, 5, 5, 4, 5…
$ Q7             <dbl> 3, 5, 3, 4, 5, 4, 4, 5, 2, 5, 4, 5, 5, 4, 4, 5, 5, 4, 4…
$ Q8             <dbl> 2, 5, 3, 4, 4, 3, 3, 4, 3, 5, 4, 3, 2, 3, 1, 5, 4, 2, 2…
$ Q9             <dbl> 14, 2, 3, 6, 1, 2, 14, 14, 1, 11, 1, 1, 1, 1, 4, 7, 1, …
$ Q9_O           <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,…
$ Q10            <dbl> 10, 1, 3, 1, 2, 1, 10, 10, 2, 6, 2, 3, 2, 2, 2, 7, 3, 1…
$ Q10_O          <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,…
$ Q11            <dbl> 3, 3, 1, 8, 1, 2, 10, 6, 1, 4, 1, 1, 1, 1, 4, 4, 1, 1, …
$ Q11_O          <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,…
$ Q12            <dbl> 4, 4, 1, 1, 1, 5, 4, 6, 1, 6, 2, 1, 3, 1, 1, 4, 2, 2, 1…
$ Q13            <dbl> 2, 2, 10, 1, 1, 1, 10, 2, 2, 6, 2, 1, 1, 10, 2, 3, 10, …
$ Q13_O          <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,…
$ Q14            <dbl> 1, 1, 3, 2, 1, 1, 3, 3, 2, 1, 3, 1, 1, 1, 1, 3, 1, 1, 1…
$ Q15            <dbl> 4, 5, 1, 4, 2, 6, 4, 6, 4, 6, 4, 2, 4, 1, 3, 4, 4, 3, 2…
$ Q16            <dbl> 3, 3, 1, 3, 5, 1, 4, 6, 4, 6, 3, 6, 5, 6, 5, 4, 5, 5, 5…
$ Q17            <dbl> 3, 5, 1, 4, 5, 3, 2, 5, 4, 6, 4, 6, 5, 6, 4, 4, 4, 5, 6…
$ Q18            <dbl> 3, 2, 1, 6, 5, 1, 5, 5, 2, 5, 2, 5, 2, 5, 1, 4, 4, 3, 4…
$ Q19            <dbl> 2, 1, 1, 4, 1, 1, 2, 5, 4, 6, 3, 1, 1, 1, 1, 4, 2, 2, 1…
$ Q20            <dbl> 2, 2, 1, 5, 4, 1, 2, 6, 4, 5, 4, 3, 5, 1, 1, 4, 4, 2, 5…
$ Q21            <dbl> 3, 2, 1, 6, 1, 3, 5, 5, 3, 6, 3, 4, 5, 4, 2, 4, 5, 2, 3…
$ Q22            <dbl> 2, 3, 1, 6, 5, 1, 4, 5, 5, 6, 4, 5, 5, 6, 6, 4, 5, 4, 5…
$ Q23            <dbl> 3, 3, 1, 3, 1, 3, 3, 1, 1, 1, 1, 1, 1, 3, 4, 3, 3, 1, 1…
$ Q23_O          <chr> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,…
$ Q24            <dbl> 2, 1, 1, 4, 2, 1, 3, 6, 4, 6, 3, 2, 3, 1, 1, 5, 2, 2, 2…
$ Q25            <dbl> 3, 4, 1, 4, 2, 4, 3, 6, 4, 6, 3, 2, 3, 3, 1, 4, 2, 2, 2…
$ Q26            <dbl> 4, 3, 1, 3, 4, 1, 5, 6, 3, 6, 2, 4, 4, 4, 1, 4, 3, 4, 5…
$ Q27            <dbl> 3, 3, 1, 4, 4, 3, 4, 6, 2, 6, 2, 5, 5, 4, 3, 4, 4, 3, 6…
$ Q28            <dbl> 3, 3, 1, 3, 4, 3, 5, 5, 2, 5, 2, 5, 5, 3, 2, 4, 3, 4, 4…
$ Q29            <dbl> 4, 2, 1, 6, 4, 1, 1, 6, 4, 6, 2, 1, 2, 2, 3, 4, 2, 3, 1…
$ Q30            <dbl> 2, 1, 1, 6, 6, 1, 3, 6, 4, 6, 4, 2, 5, 2, 2, 4, 5, 2, 1…
$ Q31            <dbl> 2, 5, 1, 6, 4, 6, 5, 5, 4, 5, 3, 5, 2, 6, 1, 4, 4, 4, 5…
$ Q32            <dbl> 4, 5, 1, 5, 2, 3, 5, 6, 2, 6, 3, 2, 2, 2, 2, 4, 4, 3, 2…
$ Q33            <dbl> 3, 4, 1, 4, 3, 3, 4, 6, 4, 5, 3, 5, 2, 3, 1, 4, 4, 4, 3…
$ Q34            <dbl> 3, 1, 1, 3, 1, 1, 3, 6, 4, 6, 3, 2, 2, 1, 1, 4, 5, 3, 1…
$ Q35            <dbl> 3, 1, 1, 5, 1, 1, 4, 6, 4, 5, 3, 3, 4, 4, 2, 4, 2, 4, 3…
$ Q36            <dbl> 3, 4, 1, 4, 2, 4, 4, 5, 4, 5, 4, 3, 4, 4, 4, 4, 4, 3, 3…
$ Q37            <dbl> 3, 4, 1, 4, 2, 4, 4, 5, 4, 5, 4, 3, 4, 3, 4, 4, 4, 4, 3…
$ Q38            <dbl> 3, 4, 1, 3, 3, 4, 4, 5, 4, 4, 3, 4, 4, 5, 4, 4, 3, 4, 4…
$ Q39            <dbl> 3, 2, 1, 5, 4, 2, 1, 5, 3, 5, 2, 3, 2, 2, 1, 4, 2, 2, 2…
$ Q40            <dbl> 3, 2, 4, 4, 2, 2, 3, 4, 2, 3, 1, 2, 3, 3, 2, 1, 2, 3, 2…
$ Q41            <dbl> 3, 3, 1, 3, 3, 3, 4, 5, 4, 5, 4, 3, 3, 3, 4, 4, 4, 2, 3…
$ Q42            <dbl> 3, 3, 2, 3, 2, 3, 3, 5, 3, 5, 3, 3, 2, 3, 5, 4, 3, 3, 3…
$ Q43            <dbl> 3, 3, 1, 3, 2, 3, 3, 5, 3, 5, 3, 3, 3, 4, 3, 4, 3, 3, 3…
$ Q44            <dbl> 2, 2, 1, 1, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1…
$ Q45            <dbl> 6, 7, 7, 6, 7, 6, 6, 6, 5, 7, 5, 7, 6, 6, 6, 7, 6, 6, 7…
$ Q45_O          <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,…
$ Q46            <dbl> 2, 2, 2, 2, 2, 1, 3, 1, 2, 1, 2, 2, 2, 2, 2, 1, 2, 2, 2…
$ Q47            <dbl> 1, 6, 1, 5, 7, 11, 4, 5, 7, 7, 6, 8, 6, 7, 7, 3, 4, 5, …
$ Q48            <dbl> 12, 3, 2, 8, 3, 3, 4, 15, 8, 15, 8, 5, 2, 15, 3, 7, 8, …
$ SEX            <dbl> 2, 2, 1, 1, 1, 1, 2, 2, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1…
$ AGE            <dbl> 1, 3, 1, 2, 2, 4, 2, 2, 5, 2, 5, 2, 2, 2, 3, 2, 1, 1, 3…
$ EDU            <dbl> 5, 5, 5, 5, 5, 5, 5, 5, 4, 5, 4, 5, 5, 5, 5, 5, 5, 5, 5…
$ AREA           <dbl> 6, 2, 2, 1, 2, 2, 4, 5, 1, 5, 1, 4, 2, 5, 2, 4, 1, 1, 2…
$ WT             <dbl> 0.58816, 0.42450, 0.83300, 0.39765, 0.40682, 1.37133, 0…

save(data,file="data.rda")
load("data.rda")

head(data)  

# 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>, …

library(sjmisc)
data<-set_na(data,na=c(90:98,"NA"))

# 選擇變數
newdata<-data %>% select(S1,S2,Q1_1,Q1_2,Q1_3,Q1_4,Q1_5,Q14,Q15,Q19,Q21,Q29,Q30,Q33,Q34,Q35)

# 本研究最後將選擇Q1_1來當作TikTok社群平台的使用的標準
# Q1.請問您平時日常生活主要使用下列哪些社群平台/社群軟體？
table(newdata$Q1_1)

  1   2   3   4   5   6   7   8   9  10  11  12  13 
395 397 223  46 122 136 175  31 262 565 135  78  47 

newdata$Q1_1r<-rec(newdata$Q1_1,rec="9=1;else=0",as.num = F)
table(newdata$Q1_1r)

   0    1 
2350  262 

# 1表示在問題「請問您平時日常生活主要使用下列哪些社群平台/社群軟體？」上選擇TikTok的人，0表示選擇其他社群平台/社群軟體

# 選擇Q34來當作是否影響中國對台灣的統戰行動
# Q34.「兩岸本就一家親，無論以什麼形式實現，在可預見的未來兩岸都必然統一」請問您同不同意這樣的說法？(1)非常不同意(2)還蠻不同意(3)有點不同意(4)有點同意(5)還蠻同意(6)非常同意
table(newdata$Q34)

  1   2   3   4   5   6 
729 479 718 451 136  99 

newdata$Q34r<-rec(newdata$Q34,rec="1,2,3=0;4,5,6=1",as.num = F)
table(newdata$Q34r)

   0    1 
1926  686 

# 我把選擇非常、還滿、有點不同意的編碼成0，選擇非常、還滿、有點同意的編碼成1，簡化成只區分不同意和同意兩種

# 我覺得這兩題之間有可能的關聯為在Q1中選擇抖音的人在Q34中較有可能選擇同意

You can add options to executable code like this

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