These are chat archives for JohnsonHsieh/DSC2016-R

14th
Jul 2016
Johnson
@JohnsonHsieh
Jul 14 2016 01:55
安安您好!
XC
@xchehub
Jul 14 2016 01:56
Hello ...
hsuan40
@hsuan40
Jul 14 2016 01:56
早安
Johnson
@JohnsonHsieh
Jul 14 2016 02:58
默默的更新明天的課程XD
Wush Wu
@wush978
Jul 14 2016 03:02
@@
王信凱
@jcsky
Jul 14 2016 03:04
照投影片打很容易出錯啊~~~
Wush Wu
@wush978
Jul 14 2016 03:04
話說我最近一直收到... 你們課程的學生跑來問我問題
然後我看到celeisgod 在FB抱怨ptt上都沒有問題可以解
王信凱
@jcsky
Jul 14 2016 03:05
喔喔!! wush978 本人!! nice to meet you !!
Wush Wu
@wush978
Jul 14 2016 03:08
Hi
王信凱
@jcsky
Jul 14 2016 03:12
今天才知道 R語言翻轉教室這個專案,用起來真的很棒啊~~ ^^
在這之前是在 tutorialpoint 學語法
Johnson
@JohnsonHsieh
Jul 14 2016 03:14
@wush978 你應該有入場票吧,來中研院聊天啊XD
XC
@xchehub
Jul 14 2016 03:14
最近在接觸 r-studio 發現這種互動方式很適合學習 programming
Wush Wu
@wush978
Jul 14 2016 03:20
我在上班
還沒賺錢,所以不敢趴趴走
Johnson
@JohnsonHsieh
Jul 14 2016 03:21
@wush978 只好開直撥你看惹
Wush Wu
@wush978
Jul 14 2016 03:21
...
swirl 0.5出了
先幫我想辦法merge吧
Johnson
@JohnsonHsieh
Jul 14 2016 04:06
王信凱
@jcsky
Jul 14 2016 06:07
flights[flights$month == 1 & flights$day == 1,]
請問為何最後需要一個 ,
Johnson
@JohnsonHsieh
Jul 14 2016 06:08
@jcsky: x[i, j], i for ith row, j for jth col
flights是一個二維資料表 (類似 matrix)
王信凱
@jcsky
Jul 14 2016 06:15
謝謝!
那以下為什麼可以這樣寫??
filter(flights, grepl(pattern = "AA", x = tailnum, fixed = TRUE))
我以為應該是這樣才對
filter(flights, grepl(pattern = "AA", x = flights$tailnum, fixed = TRUE))
Johnson
@JohnsonHsieh
Jul 14 2016 06:17
good question, 這是dplyr設計的方便之處
王信凱
@jcsky
Jul 14 2016 06:18
會自動帶入 flights 就是了
Johnson
@JohnsonHsieh
Jul 14 2016 06:19
dplyr::filter(flight, ...) 裡面所有的欄位名稱都會自動帶入flights
Wush Wu
@wush978
Jul 14 2016 06:28
有好有壞... XD
王信凱
@jcsky
Jul 14 2016 06:57

請問為什麼這樣是錯的呢?

mean(mutate(flights, gain=(arr_delay - dep_delay)), na.rm=TRUE)
1 NA
Warning message:
In mean.default(mutate(flights, gain = (arr_delay - dep_delay)), :
argument is not numeric or logical: returning NA

王信凱
@jcsky
Jul 14 2016 07:24

請算出1 月份平均的gain

answer04.1 <- local({
month_is_1 = filter(flights, month == 1)
avg = mean(mutate(month_is_1, gain=(arr_delay - dep_delay))$gain, na.rm = TRUE)
})
搞定了
planetoid
@planetoid
Jul 14 2016 08:12

slice(flights, 1) 第一列資料有些欄位沒有顯示,請教如何顯示其他欄位,主要是想要看到 carrier 欄位

Source: local data frame [1 x 16]

year month day dep_time dep_delay arr_time arr_delay
(int) (int) (int) (int) (dbl) (int) (dbl)
1 2013 1 1 517 2 830 11
Variables not shown: carrier (chr), tailnum (chr), flight
(int), origin (chr), dest (chr), air_time (dbl), distance
(dbl), hour (dbl), minute (dbl)

Johnson
@JohnsonHsieh
Jul 14 2016 08:16
@planetoid try slice(flights, 1) %>% data.frame
planetoid
@planetoid
Jul 14 2016 08:19
謝謝