[問題] (已更新)將多個Function輸出的內容整理成矩陣

看板R_Language作者chrisli7 (Vic)時間7年前 (2016/10/04 01:27)推噓2(2推 0噓 12→)

留言14則, 4人參與討論串1/1

[問題類型]: 程式諮詢(我想用R 做某件事情，但是我不知道要怎麼用R 寫出來) [軟體熟悉度]: 新手(沒寫過程式，R 是我的第一次) [問題敘述]: 各位前輩好，因為自學R，見識可能短淺，實在想不出方法，希望前輩可以提供想法，謝謝！我目前遇到的問題是，我目前有寫幾個Function，然後把資料集丟入，在source區裡面，寫成以下的方式： function1(data1) function1(data2) function2(data3) . . function3(data7) 如果達成if條件，會return出一個矩陣，不知道是否有辦法自動讓這些判斷出來的矩陣，能夠用rbind的方式或是其他方式堆疊成一個新的矩陣呢？我用的方式是，先建立一個空矩陣，我在function中最後寫這個 newmatrix <- rbind(newmatrix,df3[,criteria]) 就是希望能夠在function執行完後可以重新覆寫我設立的矩陣讓他跑完，可是實際上第一個function執行完後跑出的newmatrix並不會真的改變。我在Console中打newmatrix，跑出來仍都是NA。很抱歉我的觀念也許不足，想請前輩們指點，謝謝！！因為我的function有點多，PO上來解釋也會搞得很複雜，若有前輩需要我再補上，謝謝！！ -------------------------------------------------------- 謝謝前輩！不好意思剛下班現在才回。以下是其中一個Function，會這樣寫是因為資料裡面是複選題，其他若還有需要補充解釋的煩請告訴我，我會盡快回答當時為何這麼寫的。我是用子集跟原本的資料集做比較，跑出一個criteria去選要return的資料 (上述的if條件我已經修改掉了) occupation <- function(x){ student<-x %>% filter(grepl("學生",occupation)) %>% nrow() salaryman<-x %>% filter(grepl("上班族",occupation)) %>% nrow() housekeeper<-x %>% filter(grepl("家管",occupation)) %>% nrow() turist<-x %>% filter(grepl("觀光客",occupation)) %>% nrow() others<-x %>% filter(grepl("其他",occupation)) %>% nrow() sum <- sum(student,salaryman,housekeeper,turist,others) percentage <- round((c(student,salaryman,housekeeper,turist,others)/sum),digits = 4) df1 <- matrix(c("學生","上班族","家管","觀光客","其他",student,salaryman,housekeeper,turist,others,percentage),nrow = 3,ncol = 5,byrow = T) student <- tasty %>% filter(grepl("學生",occupation)) %>% nrow() salaryman <- tasty %>% filter(grepl("上班族",occupation)) %>% nrow() housekeeper <- tasty %>% filter(grepl("家管",occupation)) %>% nrow() turist <- tasty %>% filter(grepl("觀光客",occupation)) %>% nrow() others <- tasty %>% filter(grepl("其他",occupation)) %>% nrow() sum <- sum(student,salaryman,housekeeper,turist,others) percentage_tasty <- round((c(student,salaryman,housekeeper,turist,others)/sum),digits = 4) difference_of_percentage <- percentage - percentage_tasty index <- percentage*difference_of_percentage df3 <- rbind(df1,difference_of_percentage,index) rownames(df3) <- c("名稱","次數","比例","與母體比例差","指數") criteria <- df3[4,] >= 0.015 new_matrix <- rbind(new_matrix,t(df3[,criteria])) return(new_matrix) } 以下是跑出的結果 > occupation(bike) 名稱次數比例與母體比例差指數 [1,] NA NA NA NA NA [2,] "學生" "8" "0.32" "0.1472" "0.047104" [3,] "觀光客" "1" "0.04" "0.0189" "0.000756" [4,] "其他" "3" "0.12" "0.0795" "0.00954" 但是這個表格沒有辦法堆疊越來越多，再按別的function又會重跑 > occupation(bus) 名稱次數比例與母體比例差指數 [1,] NA NA NA NA NA [2,] "學生" "19" "0.2262" "0.0534" "0.01207908" 請問前輩我該怎麼寫呢？感激不盡！！ -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 58.114.223.14 ※ 文章網址: https://www.ptt.cc/bbs/R_Language/M.1475515640.A.DA6.html

→

celestialgod

10/04 03:08, , 1^F

10/04 03:08, 1^F

→

celestialgod

10/04 03:08, , 2^F

10/04 03:08, 2^F

→

andrew43

10/04 08:23, , 3^F

10/04 08:23, 3^F