• 質性研究

• RQDA package 介紹

• 資料展示

install.packages("RGtk2")
install.packages("RQDA", dependencies = T) 

install.packages("tm") # for word cloud
install.packages("wordcloud")

• dependencies : install other needed packages

require(RQDA)
RQDA()

setwd("D:/201802/data_management/tutorial")

建立專案後(.rqda)，讀入訪談稿。

• 查看案例數目

getCaseIds(fid = getFileIds(), nFiles = T)

• 查看案例名稱

getCaseNames(caseId = getCaseIds(nFiles = F))

summaryCodings()

getCodingTable()

getCodingsByOne(cid = 1, fid = 4, codingTable = c("coding") )

• code id = 1 (Curriculum)
• file id = 4 (Participant 1)

Code categories -> CTL + A -> Plot Selected Code Categries

輸出所有的code (亦可在GUI完成)

exportCodings(file = "Code.html", Fid = 1, order = "fname", 
                            append = F, codingTable = "coding")

• 讀入訪談稿

library(tm)
path <- DirSource("D:/201802/data_management/transcript")
words <- Corpus(path)     

• 文字轉換

toSpace <- content_transformer
            (function (x , pattern ) gsub(pattern, " ", x))
words <- tm_map(words, toSpace, "’")  # 移除特殊字元                  
words <- tm_map(words, removeWords, stopwords("SMART"))   
words <- tm_map(words, tolower)  # 均為小寫                          
words <- tm_map(words, stripWhitespace)  # 移除空格

• 查看讀入內容

inspect(words)

• 建立字頻矩陣

dtm <- TermDocumentMatrix(words)
m <- as.matrix(dtm)
v <- sort(rowSums(m),decreasing = T)
d <- data.frame(word = names(v),freq = v)
head(d, 10)

• 輸出文字雲

library(wordcloud)
set.seed(342)
wordcloud(words = d$word, freq = d$freq, min.freq = 1,
          max.words = 50, random.order = F, rot.per=0.2, 
          colors = brewer.pal(8, "Dark2"))

• 立意抽樣、滾雪球抽樣
• 台南地區四位不同師資背景的兒童英語教師
• 全程錄音半結構式深度訪談

例：
目前在工作上最感壓力的有哪些?
遇到這些工作壓力時將會採取何種因應策略?

install.packages("rJava")
install.packages("rjpod")

• 查看案例數目

getCaseIds(fid = getFileIds(), nFiles = T)

• 查看案例名稱

getCaseNames(caseId = getCaseIds(nFiles = F))

summaryCodings()

getCodingTable()

getCodingsByOne(cid = 2, fid = 1, codingTable = c("coding") )

• code id = 2 (學生程度差異大)
• file id = 1 (Linda-老師A訪談資料)

• 兒童英語教師知覺壓力與因應策略
• 師資背景變項與工作壓力及因應策略的關係

• 輸出code (以"學生程度差異大"為例)

exportCodings(file = "Code.html", Fid = getFileIds(), 
        order = "fname", append = F, codingTable = "coding")