[問題] dataframe使用ifelse將符合條件的print出

作者melodyheyhey (rebecca_caca)

看板R_Language

標題[問題] dataframe使用ifelse將符合條件的print出

時間Tue Dec 19 00:45:20 2017

[問題類型]: 程式諮詢(我想用R 做某件事情，但是我不知道要怎麼用R 寫出來) [軟體熟悉度]: 入門(寫過其他程式，只是對語法不熟悉) [問題敘述]: 請簡略描述你所要做的事情，或是這個程式的目的想只用ifelse函式將data frame 裡符合資料的印出 [程式範例]: 張貼能夠重現錯誤的程式碼，可以幫助版友更快的幫你解決問題 house = read.csv('D:/house.csv',header=TRUE,stringsAsFactors=FALSE) head(house) str(house) a=house$price if(a>5000){ print(a) } [環境敘述]: R-3.4.2 執行結果如下： house = read.csv('D:/house.csv',header=TRUE,stringsAsFactors=FALSE) > head(house) price unit_price measure parking parking_price floor floor2 nfloor area 1 545 35.86 15.20 0 0.0 5 25 5 A4 2 1568 41.42 37.86 0 0.0 6 36 12 A4 3 2100 34.80 53.20 1 16.9 2 4 11 A5 4 926 28.10 33.00 0 0.0 5 25 5 A11 5 1050 35.50 29.60 0 0.0 2 4 6 A11 6 750 42.47 17.66 0 0.0 2 4 3 A9 room hall bath house_age date house_type season 1 1 2 1 26.9 9903 公寓 Q1 2 3 2 2 5.9 9907 大樓 Q3 3 3 2 2 9.3 9907 大樓 Q3 4 3 2 2 26.2 9812 公寓 Q4 5 3 2 2 10.5 9902 大樓 Q1 6 2 2 1 36.7 9906 公寓 Q2 > str(house) 'data.frame': 2931 obs. of 16 variables: $ price : int 545 1568 2100 926 1050 750 1180 1416 4110 1295 ... $ unit_price : num 35.9 41.4 34.8 28.1 35.5 ... $ measure : num 15.2 37.9 53.2 33 29.6 ... $ parking : int 0 0 1 0 0 0 0 0 1 0 ... $ parking_price: num 0 0 16.9 0 0 ... $ floor : int 5 6 2 5 2 2 2 14 9 3 ... $ floor2 : int 25 36 4 25 4 4 4 196 81 9 ... $ nfloor : int 5 12 11 5 6 3 3 16 14 5 ... $ area : chr "A4" "A4" "A5" "A11" ... $ room : int 1 3 3 3 3 2 2 3 2 2 ... $ hall : int 2 2 2 2 2 2 2 2 2 2 ... $ bath : num 1 2 2 2 2 1 1 2 2 1 ... $ house_age : num 26.9 5.9 9.3 26.2 10.5 36.7 35.5 11.2 3.9 26.5 ... $ date : int 9903 9907 9907 9812 9902 9906 9907 9905 9907 9811 ... $ house_type : chr "公寓" "大樓" "大樓" "公寓" ... $ season : chr "Q1 " "Q3 " "Q3 " "Q4 " ... > a=house$price > if(a>5000){ + print(a) + } Warning message: In if (a > 5000) { : 條件的長度 > 1，因此只能用其第一元素 > 謝謝大家～～ [關鍵字]: 選擇性，也許未來有用 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 122.100.78.42 ※ 文章網址: https://www.ptt.cc/bbs/R_Language/M.1513615523.A.845.html ※ 編輯: melodyheyhey (223.136.63.202), 12/19/2017 00:50:45

→ cywhale: print(a[a>5000]) 12/19 01:23

→ andrew43: 像是 house[house$price > 5000, ] 12/19 09:05

→ melodyheyhey: 謝謝你們～可是有要求要用ifelse條件式印出的話要 12/19 09:21